Beispiel:

Option Explicit
 
Public Declare Function GetPrivateProfileString _
    Lib "kernel32" 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
 
Public Function ReadMyIniSetting(sIniFilePath As String, _
                                 sSection As String, _
                                 sKey As String) As String
  '// -----------------------------------------------------
  '// Methode:   | Gibt e. Wert aus einer INI-Datei zurück
  '// -----------------------------------------------------
  '// Parameter: | sIniFilePath = gültiger Pfad zu einer
  '//            |                INI-Datei
  '//            | sSection = Sektionsname [...]
  '//            | sKey = Schlüsselname
  '// -----------------------------------------------------
  '// Rückgabe:  | Wert, sofern vorhanden
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const MAX_LEN   As Long = 1024
  Dim sBuffer     As String
 
  sBuffer = VBA.String(MAX_LEN, 0)
  If GetPrivateProfileString(sSection, _
      sKey, _
      vbNullString, _
      sBuffer, _
      Len(sBuffer), _
      sIniFilePath) Then
    ReadMyIniSetting = _
        VBA.Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  End If
 
End Function