Use IsArray function to check if a variable is an array
Sub arrayTest5()
Dim intScores1 As Integer
Dim intScores2(4) As Integer
Debug.Print "Is intScores1 an array: " & IsArray(intScores1)
Debug.Print "Is intScores2 an array: " & IsArray(intScores2)
End Sub