Public Function INILesen(Key As String, _
  Optional DefaultValue As String = "", _
  Optional Paragraph As String = "Einstellungen", _
  Optional PublicSetting As Boolean = False) As String
 
    If INIFileName = "" Then _
    INIFileName = App.Path & "\" & App.EXEName & ".INI"
 
  INILesen = String$(255, 0)
  If Key <> "" Then
    Call GetPrivateProfileString(Paragraph, Key, "", _
      INILesen, 255&, INIFileName)
  End If
  INILesen = Replace(INILesen, Chr(0), "")
  If INILesen = "" Then INILesen = DefaultValue
End Function