Dim len As Integer = GetPrivateProfileString(Nothing, Nothing, _
          String.Empty, result, 100, pfad)
        For Each section As String In result.Split(Chr(0))
            If section.Length = 0 Then Exit For
            Debug.WriteLine("[" & section & "]")
            len = GetPrivateProfileString(section, Nothing, String.Empty, _
              result, 100, pfad)
            For Each key As String In result.Split(Chr(0))
                If key.Length = 0 Then Exit For
                len = GetPrivateProfileString(section, key, String.Empty, _
                  result, 100, pfad)
                Dim value As String = result.Substring(0, len)
                Debug.WriteLine(key & "=" & value)
            Next
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist