[vb6] need a little help with this shop upgrader

Im trying to make this shop upgrader, its pretty simple.

The problem im having is, when I start the program in vb6 to test it, I enter my login info, and hit login and its says
Run-time error '13':

Type mismatch

So I hit debug, and it highlights this part of my code.

Code (Text):

1. If neoLogin(Wrapper, Form1) Then
2.  

This is the login I am using, just in case it might help

Code (Text):

1. Private Sub cmdLogin_Click()
2.     If neoLogin(Wrapper, Form1) Then
3.         strHTML = Wrapper.GetWrapper("http://www.neopets.com/market.phtml?type=edit")
4.         cmdUpgrade.Enabled = True
5.     End If
6. End Sub