vb新手问题请大侠帮忙

Private Sub Command1_Click()
Dim Rusult As Integer
On Error GoTo ErrHandler
Passwordstr = Text1.Text
If Passwordstr = 2007 Then
'密码确认为2007
'Load Form2此句原码有错，已修改，但与下句重复
Form2.Show '密码正确打开新窗体
Else
Rusult = MsgBox("Password Denied,Please input again.", VisualBasicOKOnly, "Error!")
Text1.Text = ""
'密码错误，清空文本框，请重新输入
End If
Exit Sub
ErrHandler:'拼写错误,已修改
MsgBox Err.Description '显示出错信息
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error GoTo ErrHandler
If KeyAscill = 13 Then
'按下回车，确认输入完成
Command1_Click '调用确定按钮Click事件处理子程序
End If
Exit Sub
ErrHandler
MsgBox Err.Description '显示出错信息

End Sub

Private Sub Command2_Click()
'Unload Password
Unload Form1
End Sub

Option Explicit
Private Sub Command1_Click()
Dim Rusult As Integer, Passwords