求VB程序代码

控件command和text
Private Sub Command1_Click()
Static a As Integer
If Text1.Text = "123" Then
MsgBox "密码正确"
Else
a = a + 1
End If
Select Case a
Case 1
MsgBox "密码错误请重新输入!你还有两次机会"
Text1.Text = ""
Text1.SetFocus
Case 2
MsgBox "密码错误请重新输入!你还有一次机会"
Text1.Text = ""
Text1.SetFocus
Case Is > 2
MsgBox "你三次输入密码错误,程序将自动关闭"
End
End Select
End Sub

Private Sub Command1_Click()
Dim User As String, Pwd As String, X As Single
On Error Resume Next
For X = 1 To 3
If Text1.Text = User And Text2.Text = Pwd Then
MsgBox "帐号密码输入正确!", vbInformation + vbOKOnly, "登录成功"""
Else
MsgBox "帐号密码输入有误!", vbInformation + vbOKOnly, "请重新输入"""
End If
Next

End Sub