Ordenar String con Tags Guias

[dwaks]

ok el texto se me devuelve asi:
<IDPadre>
<IDHijo>
<IDnieto>pepe</IDnieto>
<IDnieto>pablo</IDnieto>
</IDHijo>
<IDHijo>
<IDnieto>Yeny</IDnieto>
<IDnieto>Lorena</IDnieto>
</IDHijo>
</IDPadre>

Como ves viene un padre, varios hijos y los nietos.
Lo que hago yo es un Split para <IDPadre> lo que me ubica un array asi:

texto = Split(nodes.txt,"<IDPadre>") 'nodes.txt es la variable que tiene el string

texto(1) tiene el contenido que finaliza con </IDPadre> y para quitar este tag hago lo mismo, otro split.

texto2 = Split(texto,"</IDPadre>")

Ahora estoy con el texto hijo ya que el padre lo quite y todo queda ubicado en:
texto2(0)

Ahora como tengo varios hijos lo que hago es hacer otro split y este si tendra muchos registro asi que hago el split asi:

text3 = split(texto2(0),"<IDHijo>")

For i = 0 to UBound(text3)
text4 = split(text3(i),"</IDHijo>")
texto4 = replace(text4(0)," ","")
'final = EnMedio(texto4, "<IDnieto>", "</IDnieto>")
if LEN(TRIM(texto4))>0 then
Response.Write(LEN(TRIM(texto4)) & "|" & texto4 & " - ")
end if
Next

Esto me tira un error grave y es que no tengo los tag <IDnieto>23</IDnieto> en una sola linea sino que es parte de 2 lineas y debo hacer no se quizas otro split interno que cree un array y que la guia sea el salto de linea.

Por eso estoy horita en eso a ver como le llego a la linea precisa y poder entonces hechar a correr tu funcion.