Function GetFromINI(AppName$, KeyName$) As String
 
Dim RetStr As String
    RetStr = String(255, Chr(0))
    GetFromINI = Left(RetStr, GetPrivateProfileString _
    (AppName$, ByVal KeyName$, "", RetStr, Len(RetStr), INIFileName))
End Function
 
Function GetFavorite(AppName$, KeyName$, Filename$) As String
Dim RetStr As String
    RetStr = String(255, Chr(0))
GetFavorite = Left(RetStr, GetPrivateProfileString _
(AppName$, ByVal KeyName$, "", RetStr, Len(RetStr), INIFileName))
End Function