当文本框未输入数字点击了计算按钮，怎么显示提醒:“请输入数字“

当文本框未输入数字点击了计算按钮，如何显示提醒:“请输入数字“
当文本框未输入数字点击了计算按钮，如何显示提
醒:“请输入数字“
[解决办法]
Private Sub Command1_Click()
   'If (Val(Text1) = 0) Then   ' 如果数字不可以为０
   If (Text1 = "") Then        ' TextBox 没有输入数据
      MsgBox "请输入数字！", vbExclamation
      Exit Sub
   End If
End Sub

[解决办法]
Sub Command1_Click()
Dim x As Long
On Error Goto ErrProc:
x = Val(Text1.Text)
...
Exit Sub
ErrProc:
If Err.Number = 438 Then 
    MsgBox "请输入数字"
Else
    MsgBox "发生未知错误"
End If
End Sub
[解决办法]
为 1 楼做一点补充：

Private Sub Command1_Click()
    If Not IsNumeric(Text1) Then        'TextBox 输入非数字（包括空或空格）
        MsgBox "请输入数字", vbExclamation, "对不起"
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1)
        Exit Sub
    End If
End Sub