Самый простой подход, работающий для массивов всех типов: обработка ошибки 9.

Ниже я покажу способ, работающий для всех массивов, кроме строковых, на примере массива типа Long:

В модуле:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Public Declare Function VarPtrArray Lib "msvbvm60.DLL" Alias "VarPtr" (Ptr() As Any) As Long

Public Function MassivInitzializirovan(lngTest As Long) As Boolean
Dim lngResult As Long
CopyMemory lngResult, ByVal lngTest, 4
MassivInitzializirovan = lngResult
End Function

В форме:

Private Sub Command1_Click()
Dim blnResult As Boolean
Dim lngArray() As Long

blnResult = MassivInitzializirovan(VarPtrArray(lngArray))
Debug.Print blnResult

ReDim lngArray(1)
blnResult = MassivInitzializirovan(VarPtrArray(lngArray))
Debug.Print blnResult

End Sub