Visual Basic

Dim fso as FileSystemObject
Dim txtStr as TextStream

Set txtStr = fso.OpenTextFile(file path)
Do While Not(txtStr.AtEndOfStream)
     txtStr.ReadLine
Loop

Public Declare Function GetPrivateProfileString _
                                  Lib "kernel32" 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


Public Declare Function WritePrivateProfileString Lib "kernel32" _
                        Alias "WritePrivateProfileStringA" _
                        (ByVal lpApplicationName As String, _
                        ByVal lpKeyName As Any, _ 
                        ByVal lpString As Any, _ 
                        ByVal lpFileName As String) As Long

Dim l_sStringRead as String
Dim l_lRet as Long

l_sStringRead= "                                                                 "
               ' I do this to allow some memory for the string which will be passed
               ' as a parameter

l_lRet = GetPrivateProfileString("Section", "Parameter", "DefaultResult",_
                                 l_sStringRead , Len(l_sStringRead ), "MyINIfile.INI")
l_sStringRead = Left(l_sStringRead , l_lRet) ' l_lRet = length of string returned

Dim l_lRet as Long
l_lRet = WritePrivateProfileString("Section", "Parameter", _
                                   "ValueToStore", "MyINIfile.INI")

Show(int* x)
{
    int* y;
    cout *x << endl;
    y = x += sizeof(int);
    cout << *y << endl;
}

You see the Standards change. - Fellow co-worker

Dim abc as String
...
fsoStream.WriteLine abc

Dim abc as Integer
...
fsoStream.WriteLine CStr(abc)

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)