Visual Basic - Ayuda!!!!

Hola a todos/as. Estoy utilizando arrays dinamicos en mi programa, pero tengo un problema al intentar recorrer dicho array y es el siguiente: si no existen datos me da un error, ¿como puede comprobar que existen datos?

Asi lo recorre pero me da error:

for i = Lbound(Agenda) To Ubound(Agenda)
If Agenda(i).nombre = "Andres" then
for j = Lbound(Agenda(i).hijos) To Ubound(Agenda(i).hijos)
'Me daria error porque el array dinamico de hijos de andres no contiene nada

GRACIAS!!!!!!!!

dim ini, fin, ini2, fin2 as integer

ini=Lbound(Agenda)
fin=Ubound(Agenda)

if fin>=ini then
____for i = ini To fin
____If Agenda(i).nombre = "Andres" then
____ini2=Lbound(Agenda(i).hijos)
____fin2=Ubound(Agenda(i).hijos)
____if fin2 >= ini2 then
__________for j = To
____end if
end if


__________
Pruebalo, pero la idea, es comprobar antes de hacer las instrucciones

adios