Как определить, инициализирован динамический массив или нет? - VBA

Формулировка задачи:

Собственно вопрос в теме: как определить на VBA инициализирован динамический массив или нет, пуст или не пуст? есть массив как Паблик, объявленный в другом модуле. Еще Dim, Redim не инициализированный или уже инициализированный через, например

redim a(0)

Из формы (по реакции клика на кнопку) обращаюсь к нему через VarType(a), чтобы определить пуст или непуст ----- как следствие ошибка что не так происходит? Может есть еще методы Заранее спасибо ответившим, Алексей

Решение задачи: «Как определить, инициализирован динамический массив или нет?»

textual
                            Листинг программы 
                        

                            Function ArrayInited(sArray) As Boolean
    On Error Resume Next
    If LBound(sArray) <= UBound(sArray) Then If Err <> 9 Then ArrayInited = True
End Function
                        