VB的烦人问题

这是一段VB程序,声明的是ini模块,但运行后提示错误的参数号或无效的属性赋值,小弟不太会调试,有没有高手指点一下!谢谢!
Public Function GetKey(Tmp_File As String, Tmp_Key As String) As String
Dim File As Long
File = FreeFile
If FileExist(Tmp_File) = False Then
GetKey = ""
Call WritePrivateProfileString("Setup Information", "Server", "", App.Path + "\Setup.ini")
Call WritePrivateProfileString("Setup Information", "User", "", App.Path + "\Setup.ini")
Call WritePrivateProfileString("Setup Information", "Password", "", App.Path + "\Setup.ini")

Exit Function
End If
Open Tmp_File For Input As File
Do While Not EOF(1)
Line Input #File, buffer
If Left(buffer, Len(Tmp_Key)) = Tmp_Key Then
pos = InStr(buffer, "=")
GetKey = Trim(Mid(buffer, pos + 1))
End If
Loop
Close File

End Function

WritePrivateProfileString应该是一个winapi函数，需要先声明的
把下面这句先声明试试：

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

把"+"全部改成"&"

VB的烦人问题 烦人的问题 脸上烦人的问题 电脑的烦人问题 很烦人的问题 一个烦人的问题 QQ的烦人问题！！ 烦人的面子问题~ 烦人的网络问题~！~！ 烦人的电脑问题！