各位大侠一定要帮帮忙啊！很多方法都搞不定

Dim b As Long
Dim a As String
Label7.Caption = GetFromIni("IP地址", "IP", "c:\ip.ini")
Label8.Caption = GetFromIni("服务端口", "port", "c:\port.ini")
b = Label8.Caption
a = Label7.Caption
Winsock1.LocalIP = a
Winsock1.LocalPort = b在编译时出现错误：错误的参数号或无效的参数赋值。前面只声明了一个INI文件读写的：Private 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
Private 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
Function GetFromIni(strSectionHeader As String, strVariableName As String, strFileName As String) As String
    Dim strReturn As String
    strReturn = String(255, Chr(0))
    GetFromIni = Left$(strReturn, GetPrivateProfileString(strSectionHeader, ByVal strVariableName, "", strReturn, Len(strReturn), strFileName))
End Function请大家帮忙看看第一段代码应该如何修改，感激不尽！