IsNumeric 函数：

返回指示表达式是否可评估为数值的“Boolean”值。

语   法：

IsNumeric (表达式)
必需的 expression参数是包含数值表达式或字符串 表达式的 Variant。

备   注：

如果整个 表达式 被识别为数字，则“IsNumeric”返回“True”，否则，返回“False”。
如果 表达式 是 数据表达式，则“IsNumeric”返回“False”。

示   例：

Dim MyVar, MyCheck
MyVar = "1500"                ' 指定值.1500
MyCheck = IsNumeric(MyVar)    ' 返回值:True.

MyVar = "1500.95"             ' 指定值.1500.95
MyCheck = IsNumeric(MyVar)    ' 返回值:True.

MyVar = "&H5DC"               ' 指定值.1500_16进制
MyCheck = IsNumeric(MyVar)    ' 返回值:True.

MyVar = "&O2734"              ' 指定值.1500_8进制
MyCheck = IsNumeric(MyVar)    ' 返回值:True.

MyVar = "1.50E+03"            ' 指定值.1500_科学计数
MyCheck = IsNumeric(MyVar)    ' 返回值:True.

MyVar = "-1500"               ' 指定值.1500_负数
MyCheck = IsNumeric(MyVar)    ' 返回值:True.

MyVar = "1500 Help"             ' 指定值.
MyCheck = IsNumeric(MyVar)    ' 返回值:False.