I'm trying to make a Neo Login.
One I run the program and try to login I get this error:


Then when i click on debug, this is what it highlights:


Here is my whole code:
Code:
Private Sub cmdLogin_Click()
Dim strHTML As String

strHTML = w.GetWrapper("http://www.neopets.com/login/")
strHTML = w.PostWrapper("http://www.neopets.com/login.phtml", "destination=&username=" & User & "&password=" & Pass, "http://www.neopets.com/login/")

If InStr(1, strHTML, "badpassword") Then
MsgBox "Invalid Password/Username...", vbOKOnly, "ERROR"
ElseIf InStr(1, strHTML, "this account has been ") Then
MsgBox "This account has been frozen... :(", vbOKOnly, "ERROR"
ElseIf InStr(1, strHTML, "index") Then
MsgBox "You succesfully logged in as" & txtUser & "!", vbOKOnly, "ERROR"
cmdLogin.Enabled = False
cmdLogout.Enabled = True
Else
MsgBox "Unknown Error...", vbOKOnly, "ERROR"
End If
End Sub

Private Sub cmdLogout_Click()
Dim strHTML As String

strHTML = w.GetWrapper("http://neopets.com/logout.phtml", "http://www.neopets.com/")
strHTML = w.PostWrapper("http://www.neopets.com/logout.phtml", "http://www.neopets.com/")

If InStr(1, strHTML, "index") Then
MsgBox "Status:Logged Out", vbOKOnly, "YAY!"
End If
End Sub
@(you need an account to see links), @(you need an account to see links)

If anyone could tell me what I could be doing wrong, I would really appreciate it