How have you defined GetPrivateProfileString in your code?
Try the following code and see if it works
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Public Function ReadINI(ByVal INISection As String, ByVal INIKey As String, ByVal INIFile As String) As String
Dim StringBuffer As New StringBuilder(2000)
Dim StringBufferSize As Integer
StringBufferSize = StringBuffer.Capacity
StringBufferSize = GetPrivateProfileString(INISection, INIKey, "", StringBuffer, StringBufferSize, INIFile)
Return StringBuffer.ToString()
End Function