Private Sub Text1_LostFocus()If Not IsNumeric(Me.Text1.Text) ThenMsgBox ("Ingrese solo numeros")End IfEnd Sub