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