Private Declare Function GetPrivateProfileString Lib "kernel32" _
  Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
  ByVal lpKeyName As String, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Integer, _
  ByVal lpFileName As String) As Integer
 
 
 
     Dim myIniFile As String = "F:\daten\test1.ini"
     Dim resultlength As Integer = 1025
     Dim result As String = Microsoft.VisualBasic.StrDup(resultlength, " ")
 
     Dim appl As String = "PC4470"
     Dim ret As Integer = GetPrivateProfileString _
        (appl, Nothing, String.Empty, result, resultlength, myIniFile)
     If ret < 1 Then
        MsgBox("Profile Lesevorgang scheitert")
     Else
        Dim keys() As String = Microsoft.VisualBasic.Split(result, vbNullChar)
 
        result = Microsoft.VisualBasic.StrDup(resultlength, " ")
 
        For i As Integer = 0 To keys.Length - 1
           If keys(i).Trim <> String.Empty Then
              ret = GetPrivateProfileString(appl, keys(i).Trim, _
                    String.Empty, result, resultlength, myIniFile)
              If ret < 1 Then
                 MsgBox("Profile Lesevorgang scheitert: " & keys(i))
              Else
                 Console.WriteLine(keys(i) & ": " & result.Substring(0, ret))
              End If
           End If
        Next i
     End If