Динамический массив и Пустота

[AlexEL]

Писал макрос в MS Word и столкнулся с проблемой.
Как проще определить, что динамический массив пуст?
Я нашел только такой способ:

Dim A() As Long, i&
Erase A
On Error Resume Next
i = -1
i = UBound(A) - LBound(A)
On Error GoTo 0
If i < 0 Then
‘ массив пуст
End If

Может все не так сложно?

Буду благодарен за книги и документацию с практическими примерами по Visual Basic применительно именно к MS Word.