VB找人帮写一个登陆网页的代码

'登录
Private Sub CmdLogIn_Click()
CmdLogIn.Enabled = False
'判断空
If Trim(TxtUser.Text) = "" Then
TxtUser.SetFocus
SetStatue "用户名不能空"
Exit Sub
End If
If Trim(TxtPwd.Text) = "" Then
TxtUser.SetFocus
SetStatue "密码不能空"
Exit Sub
End If
userid = Replace(Trim(TxtUser.Text), "'", "")
Password = Replace(Trim(TxtPwd.Text), "'", "")
'WebbLogin.Navigate PSiteUrl & "/update/UserLogin.asp?username=" & UserName & "&password=" & UserPwd
WebbLogin.Navigate PSiteUrl & "/alogin.asp?username=" & userid & "&password=" & Password
SetStatue "正在连接网络,请稍候"
End Sub

网页打不开.