Как отличить вариативную переменную с массивом от вариативного массива?

Private Sub t()
Dim v, aV()
    v = Array(1):   Debug.Print VarType(v), TypeName(v)     ' 8204 | Variant()
    aV = Array(1):  Debug.Print VarType(aV), TypeName(aV)   ' 8204 | Variant()
End Sub

Function PRDX_Arr_Check_IsVariant_NotArray(a) As Boolean
Dim i%
    API_Memory_Copy_Int_Any i, a, 2
    PRDX_Arr_Check_IsVariant_NotArray = (i < 16384) ' &H4000
End Function
'==================================================================================================
Private Sub Test()
Dim v, aV(), aSt$(), t!, n&
Const nEl& = 10000000  ' 10 mln
 
ReDim aV(nEl), aSt(nEl)
t = Timer
    For n = 1 To nEl
        aSt(n) = "MiddleStringWithIndex_" & n
        aV(n) = aSt(n)
    Next n
Debug.Print Round(Timer - t, 2), "Create"
 
t = Timer
    PRDX_Arr_Check_IsVariant_NotArray aV
Debug.Print Round(Timer - t, 2), "aV"
 
t = Timer
    PRDX_Arr_Check_IsVariant_NotArray aSt
Debug.Print Round(Timer - t, 2), "aSt"
 
v = aV: t = Timer
    PRDX_Arr_Check_IsVariant_NotArray v
Debug.Print Round(Timer - t, 2), "Var_aV"
 
v = aSt: t = Timer
    PRDX_Arr_Check_IsVariant_NotArray v
Debug.Print Round(Timer - t, 2), "Var_aSt"
End Sub

Declare PtrSafe Sub API_Memory_Copy_Int_Any Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Integer, Source As Any, ByVal Length As LongPtr)

Sub testVariantStringWinApi()
  #If Win64 Then
    Const ptrSz^ = 8, varSz^ = 24
  #Else
    Const ptrSz& = 4, varSz& = 16
  #End If
    Dim v1, v2, lp0 As LongPtr
    'Проверяем копирование варианта со строкой внутри
    v1 = "fafaf"
    CopyMemory v2, v1, varSz
    Debug.Print StrPtr(v1) = StrPtr(v2) 'True
    
    'Проверяем копирование варианта со строковым массивом внутри
    ReDim sArr$(2): sArr(0) = "a": sArr(1) = "b": sArr(2) = "c"
    v1 = sArr
    CopyMemory v2, v1, varSz
    v1(0) = "n"                         'изменяем 1й элемент массива в первой переменной
    Debug.Print v1(0) = v2(0)           'True
    
    CopyMemory v2, Empty, varSz 'освобождаем указатель
End Sub