error 13

[ebu]

hola de nuevo!perdonen el retraso...
tengo el siguiente procedimiento recursivo:
Sub hijos(swComp As object)

Dim vChildComp As Variant 'object ()
Dim i As Integer
Dim swChildComp As object

vChildComp = swComp.GetChildren 'se llena el array con unos objetos
For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)

swChildComp.ReferencedConfiguration = a

hijos swChildComp
Next i

cuando vchildcomp=empty (el typename q tenia cuando me daba el error) no entra en el bucle.
el caso es q una vez dentro de la funcion hijos, cuando vuelve a llamar a la misma funcion puede q vchildcomp=empty. en este caso entraria en el bucle con el siguiente object del array q ha cargado en la primera vuelta y continuaria bien.
mi problema es q a veces vchildcomp=empty cuando no lo es, es decir, aun habiendo objetos el array no los carga. pero al ejecutar por segunda vez si los carga.debe de ser algun problema del programa de donde 'exporto' los objetos.

x lo menos se soluciono lo del error 13!
muchas gracias!