'This may maynot work I am working on it
Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long ' Write INI file
Public Function Readini(Header As String, Value As String, Default As String, ini As String) As String
Read = Space(255) ' buffer\final variable
Read2 = GetPrivateProfileString(Header, Value, Default, Read, 255, ini)
Read = Left(Read, Read2)
Readini = Read
End Function