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