procedimiento recursivo

[ebu]

hola!
aqui os planteo otra duda haber si me la podeis solucionar.
he creado un procedimiento recursivo:

Public Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)
For i = 0 To nLevel - 1
sPadStr = sPadStr + " "
Next i
Range("C1").Select
vChild = swComp.GetChildren
For i = 0 To UBound(vChild)
Set swChildComp = vChild(i)
konfigMatrix = swModel.GetConfigurationNames
For j = 0 To UBound(konfigMatrix)
ActiveCell.FormulaR1C1 = konfigMatrix(j)
ActiveCell.Offset(0, 1).Select
Next j
Erase konfigMatrix
TraverseComponent swChildComp, nLevel + 1
Next i
End Sub

el caso es q el programa no termina o termina y me da un error 28. lo logico seria poner un if para q finalice el ciclo pero como ando con dos arrays dinamicos (vChild y konfigMatrix) desconozco sus longitudes x lo q no se q condicion poner en el if. alguien me puede ayudar?
gracias!