SoloCodigo

GRACIAS pero ya lo he solucionado solo. saludos y si quereis saber como se hace pues preguntarmelo que estare encantado de decirslo.

PUES ... TENED Y INVESTIGAR

Public Function EncontrarSecciones(ByVal sFileName As String) As String()
       
            Dim n As Integer
            Dim Sections() As String
            ReDim aSections(0)
               
            sBuffer = New String(ChrW(0), 32767)
           
            n = GetPrivateProfileSectionNames(sBuffer, sBuffer.Length, sFileName)
           
            If n > 0 Then
             
                sBuffer = sBuffer.Substring(0, n - 1).TrimEnd()
                Sections = sBuffer.Split(ChrW(0))
            End If
         
            Return aSections
        End Function

SALUDOS Y GRACIAS A TODOS POR AYUARNOS UNOS A LOS OTROS YA VEIS QUE NO SOY DE ESOS QUE SE GUARDAN LOS CODIGOS PARA PISOTEAR A LA GENTE SI TODOS NOS AYUDAMOS CADA VEZ IREMOS CRECIENDO MAS y adquiriendo mas conocimientos
saludos chavales y perdonar por no publicarlo antes ya que no me he pasado por aqui desde hace unos dias ya que he estado un poco liado.