Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If Not IsNumeric(.Value) Then
.Value = ""
.SetFocus
MsgBox "Numbers only", vbCritical, "Input error:"
End If
End With
End Sub