Sub ArrayTest2() Dim intNum1 As Integer Dim intNum(1 To 10) As Integer Debug.Print "intnum1: " & VarType(intNum1) Debug.Print "intnum: " & VarType(intNum)End Sub