Data Type VisualBasic Script

Sub ArrayTest3()
    Dim intNum1 As Integer
    Dim intNum(1 To 10) As Integer
    Debug.Print "Array: " & (VarType(intNum1) > vbArray),
    Debug.Print "Type: " & (VarType(intNum1) And Not vbArray)
    Debug.Print "Array: " & (VarType(intNum) > vbArray),
    Debug.Print "Type: " & (VarType(intNum) And Not vbArray)
End Sub