【VBScript】数値であるかのチェック

Function IsNumeric(target)
On Error Resume Next

	'空である時はFalseで返す
	if target = "" then
		IsNumeric = false
		exit function
	end if

	'数値に変換
	dim temp
	temp = cint(target)

	'エラーがあるかで分岐
	If Err.Number <> 0  Then
        	'数値でない時
		IsNumeric = false
	else
        	'数値の時
		IsNumeric = true
	end if

On Error Goto 0
End Function

'実行例
msgbox IsNumeric(123)        '結果：True
msgbox IsNumeric("012345")   '結果：True
msgbox IsNumeric("abc")      '結果：False
msgbox IsNumeric("")         '結果：False