this will stop it from haveing an error

Code:
Private Sub cmdEnter_Click() 

If CInt(Val( _
	txtPassword.Text)) = 123 Then  _
	
frmServices.Show 
Else
MsgBox ("Wrong Password. Please Try again"), vbRetryCancel 
End If 


End Sub 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift  _
	As Integer)

If keycode= 13 Then debug.Print  _
	"ENTER"'this is to check for enter
End Sub''cmdEnter_Click()