IsArray

Public Function IsArray(ByVal Expression As Variant) As Boolean

Returns True if the specified variable/expression is an array.

Public Function PrintElements(pParameter As Variant)
   Dim lItem As String
   
   If TypeName(pParameter) = "Collection" Or IsArray(pParameter) Then
       For Each lItem In pParameter
           SendDebug lItem
       Next
   End If
End Function

See also: