Try the TextBox1_Exit Sub:
VB Code:
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2.  
  3. End Sub