'benötigte API-Funktionen
Public Declare Function WritePrivateProfileString Lib _
  "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
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
 
  'Dieses Zeichen wird anstelle eines Leerzeichen benutzt
  Public Const strReplace = 164
 
'Beispiel: Speichern in INI-Datei
'WriteIniString "Abschnitt-Name", "Schlüssel", "Wert des Schlüssels", "Pfad der" & _
  "INI-Datei"
 
'Eintrag aus INI-Datei lesen
Public Function GetIniString(ByVal Sektion As String, ByVal Titel As String, _
  ByVal Vorgabe As String, ByVal INIFile As String, Optional ByVal nSize As _
  Integer = 256) As String
    Dim lResult As Long
    Dim sValue As String
 
    sValue = Space$(nSize)
    lResult = GetPrivateProfileString(Sektion, Titel, Vorgabe, sValue, nSize, _
      INIFile)
    GetIniString = Replace(Left$(sValue, lResult), Chr(strReplace), " ")
End Function
 
Public Sub WriteIniString(ByVal Sektion As String, ByVal KeyName As String, _
  ByVal strString As String, ByVal INIFile As String)
    WritePrivateProfileString Sektion, KeyName, Replace(strString, " ", Chr( _
    strReplace)), INIFile
End Sub