error 13

[David]

Después de llamar a la función que retorna el array. Coloca esto:

Código vb:

MsgBox TypeName(vChildComp)
 

Así sabremos qué es lo que devuelve cuando no retorna un array.