Option Explicit
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
 
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 = Left$(sValue, lResult)
End Function