Public Function INIGetValue(ByVal Path$, ByVal Sect$, ByVal key$) As String
Dim Result&, buffer$
 
    buffer = Space$(64)
    Result = GetPrivateProfileString(Sect, key, vbNullString, buffer, Len( _
      buffer), Path)
    INIGetValue = Left$(buffer, Result)
 
End Function