Public Function INIGetValue(ByVal Path$, ByVal Sect$, ByVal Key$) As String
  Dim Buffer As String
 
  Buffer = Space(500)
  GetPrivateProfileString Sect, Key, vbNullString, Buffer, Len(Buffer), Path
 
  INIGetValue = Buffer
End Function