Public Function GetConfigValue(ByRef sOption$) As String
 GetConfigValue = INIGetValue(App.Path & CONST_DIR_CONFIG & "config.ini", _
   "Config", sOption$)
End Function
 
Public Function INIGetValue(ByVal Path$, ByVal Sect$, ByVal Key$) As String
  Dim Result&, Buffer$
 
  Buffer = Space$(500)
  Result = GetPrivateProfileString(Sect, Key, vbNullString, Buffer, Len( _
    Buffer), Path)
  INIGetValue = Left$(Buffer, Result)
 
End Function