XL 2013 connaitre le type de variable tableau un ou 2 dim et le sens

Sub list_Wupdate_disponible()
    Dim tablo, sessionWupdate As Object, updateSearcher As Object
    Set sessionWupdate = CreateObject("Microsoft.Update.Session")
    sessionWupdate.ClientApplicationID = "0+0=la tète a toto"

    Set updateSearcher = sessionWupdate.CreateUpdateSearcher()
    Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")
    For i = 0 To searchResult.Updates.Count - 1
        Set Update = searchResult.Updates.Item(i)
        'MsgBox Update.Title
        Cells(i + 1, 1) = Update.Title
    Next
End Sub

Option Explicit

#If VBA7 Then
  Private Type Pointer: Value As LongPtr: End Type
  Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef src As Any, ByVal Size As LongPtr)
#Else
  Private Type Pointer: Value As Long: End Type
  Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByRef dest As Any, ByRef src As Any, ByVal Size As Long)
#End If

Private Type TtagVARIANT
    vt As Integer
    r1 As Integer
    r2 As Integer
    r3 As Integer
    sa As Pointer
End Type

Public Function GetDims(source As Variant) As Integer
    Dim va As TtagVARIANT
    RtlMoveMemory va, source, LenB(va)                                            ' read tagVARIANT              '
    If va.vt And &H2000 Then Else Exit Function                                   ' exit if not an array         '
    If va.vt And &H4000 Then RtlMoveMemory va.sa, ByVal va.sa.Value, LenB(va.sa)  ' read by reference            '
    If va.sa.Value Then RtlMoveMemory GetDims, ByVal va.sa.Value, 2               ' read cDims from tagSAFEARRAY '
End Function

Sub a()
    Dim t(1 To 2, 0)  
    'Dim t()
    'Dim t(-2 To 3)
   
    MsgBox GetDims(t)
End Sub