Password Attemp

Private Sub cmdLogin_Click()
If txtPassword.Text = "training" Then
EmployeeStartup.Show
Unload Me
Else
If MsgBox("Do you want to try again ?", vbQuestion + vbYesNo, "Invalid Login") = vbNo Then
End
End If
End If
End Sub
Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
cmdExit = True
End Select
End Sub
Private Sub cmdExit_Click()
End
End Sub