IsArray , IsDate , IsEmpty , IsNull , IsNumeric , IsObject

IsArray( ? )
IsDate( ? )
IsEmpty( ? )
IsNull( ? )
IsNumeric( ? )
IsObject( ? )

Option Explicit

Dim strAry
Dim strDate
Dim strEmpty
Dim strNull
Dim strNum
Dim strNum2
Dim strNum3
Dim strObj
Dim result
Dim strNon

strAry = Array( "acha" , "porute" , "piipo" )
strDate = Now
strEmpty = Empty
strNull = Null
strNum = 1.618033
strNum2 = "1.618033"
strNum3 = "1.618033acha"
Set strObj = CreateObject("WScript.Shell")

result = IsArray( strAry ))
WScript.Echo "配列ですか？ = " & result    ' 配列ですか？ = True

result = IsDate( strDate ))
WScript.Echo "日付ですか？ = " & result    ' 日付ですか？ = True

result = IsEmpty( strEmpty ))
WScript.Echo "空ですか？ = " & result      ' 空ですか？ = True

result = IsNull( strNull ))
WScript.Echo "ヌルですか？ = " & result    ' ヌルですか？ = True

result = IsNumeric( strNum ))
WScript.Echo "数値ですか？ = " & result    ' 数値ですか？ = True

result = IsObject( strObj ))
WScript.Echo "オブジェクトですか？ = " & result    ' オブジェクトですか？ = True

' ちょっとお試し.
result = IsDate( strAry ))
WScript.Echo "日付ですか！？ = " & result ' 日付ですか！？ = False

result = IsEmpty( strNull ))
WScript.Echo "空ですか！？ = " & result   ' 空ですか！？ = False

result = IsNull( strEmpty ))
WScript.Echo "ヌルですか！？ = " & result ' ヌルですか！？ = False

result = IsNumeric( strNum2 ))
WScript.Echo "数値ですか２！？ = " & result ' 数値ですか２！？ = True

result = IsNumeric( strNum3 ))
WScript.Echo "数値ですか３！？ = " & result ' 数値ですか３！？ = False

' Emptyの扱いをお試し.
result = IsEmpty( strNon ))
WScript.Echo "空ですか？？ = " & result   ' 空ですか？？ = True

result = IsNull( strNon ))
WScript.Echo "ヌルですか？？ = " & result ' ヌルですか？？ = False

Numericは「""」の中身が数字だけだと数値に勝手に置換されますので、Trueが返ります。つまり「strNum2 + 5」という式もエラーになりません。
EmptyとNULLの違いは気を付けましょう。