Declare Function GetPrivateProfileString Lib "kernel32" Alias _ "GetPrivateProfileStringA" (Byval lpApplicationName As String, _ lpKeyName As Any, Byval lpDefault As String, _ Byval lpRetunedString As String, Byval nSize As Long, _ Byval lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" _Alias "WritePrivateProfileStringA" _ (Byval lpApplicationName As String, _Byval lpKeyName As Any, Byval lpString As String, _Byval lpFileName As String) As Long
'Initialize or wherever main code section you are for: Dim OldValue As String Dim NewValue As String
