Remove Focus From Text Box Once Something Has Been Typed In It

[gmaxey]

Private Sub txtResearch_Change()
  If Len(txtResearch.Text) > 0 Then txtResearch.BackColor = RGB(whatever the normal valid color is)
lbl_Exit:
    Exit Sub
End Sub

Private Sub cbThreat_Change()
  If cbThreat.ListIndex <> -1 Then cbThreat.BackColor = RGB(whatever then normal color is)
lbl_Exit:
    Exit Sub
End Sub

Private Sub EnterBut_Click()
  If Len(txtResearch.Text) = Then
    txtResearch.BackColor = RGB(whatever the invalid color is)
    txtResearch.SetFocus
    Exit Sub
  End If
 If cbThreat.ListIndex = -1 Then
   cbThreat.BackColor = RGB(whatever the invalid color is)
   cbThreat.SetFocus
   Exit Sub
 End If
 Tag = 1
 Hide
lbl_Exit:
  Exit Sub
End Sub