Public Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, _
    ByVal lpString As String, _
    ByVal lpFileName As String) As Integer
 
    Public 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 sValue As String
 
sValue = Space$(255)
 
GetPrivateProfileString("Abschnitt", "Schlüssel", "Default", sValue, Len( _
  sValue), "Datei.ini")