IsNumeric関数

構文
IsNumeric(expression)
引数expresionには、数式または文字列式を含むバリアント型の式を指定します。

解説
引数expresionが、数値として認識できる場合はTrueを返します。それ以外はFalseを返します。
IsNumeric関数は、引数expresionが日付式の場合はFalseを返します。

サンプル
次の例は、ユーザーが入力した値が数値かどうか判定します。

Sub Sample()
    Dim a As Variant
    a = InputBox("数値または文字を入力してください")
    If IsNumeric(a) Then
        MsgBox a & "は数値です"
    Else
        MsgBox a & "は文字です"
    End If
End Sub