Private Sub Text1_LostFocus() > If Screen.ActiveControl.Name = "cmdCancel" Then Exit Sub > > 'Other validations here >End Sub