Checking If Variable Is Multi-dimensional

Is there a quick way to check if a variable is an array or multi-dimensional? I am trying to send variables to a sub to print to excel but I am sending mixed variables - some are one dimension, some are two dimensional.

Here is what I am using:


Private Sub Send(Item As Variant, Top As Integer, ToSheet As String, Row As Integer, Column As Integer)

'Sends values to Excel

' Loop counter
Dim i As Integer

For i = 0 To Top - 1
ActiveWorkbook. Sheets(ToSheet). Cells(i + Row, Column).Value = Item(i)
Next

End Sub

I suppose I could set up a second routine to handle one dimensional variables, but I thought I would ask the pros -