Ascount Checker !!!!

Hej....
jeg er lige løbet ind i et prob. (Igen).
Jeg har følgende kode som nok skal laves lidt om. men koden skal kunne tjekke om den given konto (bruger og password) er 2 variabler string. Der efter skal koden logge sig ind og tjekke om men har adgang til serveren.
Jeg giver 250 point da jeg håber at i vil lavet et eksempel:

Private Declare Function GetTickCount Lib \"kernel32\" () As Long
Dim IP As String
Dim t1 As Long
Dim t2 As Long
Dim Port As Long
Dim Wait As Byte
Dim TimeOut As Long

Private Sub Form_Load()

End Sub

Private Sub Go_Click()

IP = \"ftp.mobilixnet.dk\"
Port = 21
TimeOut = 2000

Wsock.RemoteHost = IP
Wsock.RemotePort = Port

t1 = GetTickCount
Wait = 0
Wsock.Connect
While Wait = 0
    DoEvents
    t2 = GetTickCount - t1
    Debug.Print \"wait\", t2
    If t2 > TimeOut Then Wait = 2
Wend

Select Case Wait
    Case 1
        \'forbindelse er oprettet
        MsgBox \"Forbindelsen til serveren \" + IP + \", port \" + CStr(Port) _
          + \" blev oprettet på \" + CStr(t2) + \" millisekunder.\", vbInformation, \"Success!!\"
    Case 2
        \'forbindelse ej oprettet
        MsgBox \"Forbindelsen til serveren \" + IP + \", port \" + CStr(Port) + \" kunne ikke oprettes.\" _
          + vbCrLf + \"(T=\" + CStr(t2) + \" millisekunder.\", vbInformation, \"Fejl!!\"
    Case Else
        MsgBox \"Programmet er stødt på en uforudset fejl. Server status ukendt.\" + vbCrLf _
          + IP + \", port \" + CStr(Port) + \", T=\" + CStr(t2) + \" millisekunder\"
End Select

Wsock.Close

End Sub

Private Sub WSock_Connect()
Wait = 1
End Sub

Hvis der er noget:
Truti [DK]
ICQ: 72755522
Mail: maac@mail1.stofanet.dk