判断是否为数字

Sub test()
　　If Not VBA.IsNumeric([a1]) Then MsgBox "非数字"
End Sub