Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" _
(ByRef saArray() As Any) As Long 
 
Dim a() As Long 
ReDim a(0) 
If (SafeArrayGetDim(a) > 0) Then 
    Debug.Print "Массив данных существует" 
Else 
    Debug.Print "Массив данных не существует" 
End If