Private Sub Command1_Click( )
Dim Response
If Text1.Text = Text1.Tag Then
MsgBox "Good! Password Accepted.", vbOKOnly + vbExclamation, "Access Granted!"
Form1.Hide
Form2.Show
Else
Response = MsgBox("Error! Password is wrong.", vbRetryCancel + vbCritical, "Access Denied!")
...