吳前輩請幫忙!!(編號：2508)

Private Sub cnd_Submit_Click()
If Text_UserName.Text = UserName And Text_password = PassWord Then
MsgBox "歡迎使用本系統!"
Unload Form_PassWord
End If
Else
Counter = Counter + 1
MsgBox "密碼錯誤!"
If Counter ＞ 2 Then
MsgBox "您無法登入本系統，請洽系統管理員。"
Unload Form_PassWord
End
End If
End If
End Sub
__________________________________________________________________________________
Private Sub Form_Load()
Counter = 0
UserName = "TK"
PassWord = "12345"
請吳前輩幫我看那裡不對因為程式無法執行,謝謝!!!!