Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias _
  "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long
 
 
Function ReadINI(ByVal IniFile As String, ByVal Section As String, ByVal Key As _
  String)
 
    Dim RetVal As String, Lenth As Integer
    RetVal = String(255, 0)
 
    Length = GetPrivateProfileString(Section, Key, "", RetVal, Len(RetVal), _
      IniFile)
 
    ReadINI = Left(RetVal, Length)
 
End Function
 
Private Sub Test()
    Dim value As String
 
    value = ReadINI("C:\PfadZur\Datei.ini", "Sektion", "Schluessel")
 
    MsgBox (value)
 
End Sub