IsArray( variablename )
Sub Main Dim MArray(1 To 5) As Integer, MCheck MCheck = IsArray(MArray) Print MCheck End Sub