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