Private Sub text1_lostfocus()
If Text1.Text <> "" And Not isnumberic(Text1.Text) Then
MsgBox "a值输入有误：含有非数字字符！", , "输入有误"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

IsNumeric