e) = 0 Then
        sInfFile = NormalizePath(App.Path) &amp; App.Title &amp; ".inf"
        If Len(Dir$(sInfFile)) = 0 Then sInfFile = ""
    End If
    FindInfFile = (Len(sInfFile) &gt; 0)
End Function

Public Function ReadIniFile(ByVal sSection As String, ByVal sKey As String,
 Optional ByVal sDefault As String = "") As String
    Dim sBuffer As String

    '
    ' Wenn die .INI-Datei erfolgreich gelesen worden ist,
    ' wird jede vom Windows-API GetPrivateProfileString
    ' angehngte Null wieder entfer