ayuda a obtener valores

[ximex]

Hola amigos tengo el siguiente XML
<root>
<usuario>
<usu1>
<archivos>
<archivo>xxxx</archivo>
<archivo>yyyy</archivo>
<archivo>zzzz</archivo>
</archivos>
</usu1>
</usuario>
<usuario>
<usu2>
<archivos>
<archivo>xxxx</archivo>
<archivo>yyyy</archivo>
<archivo>zzzz</archivo>
</archivos>
</usu2>
</usuario>
</root>

y necesito sacar los archivos de un usuario por lo que estoy haciendo lo siguiente:

ObjXML.Load (strArchivoXML)
For Each objNodoPadre In ObjXML.selectNodes("/root/usuario/" & strUsu)
For i = 1 To objNodoPadre.selectNodes("archivos/archivo").length
strNombreArch = objNodoPadre.Attributes.Item(i)

Next

Next


pero no logro obtener los nombres.. me da Error


gracias lo necesito de forma urgente...

kriños a todos

[ximex]

logre sacarlo....


Dim ObjXML As MSXML2.DOMDocument40
Dim objNodoPadre As MSXML2.IXMLDOMNode
Dim objNodoHijo As MSXML2.IXMLDOMNode

Set ObjXML = CreateObject("MSXML2.DOMDocument.4.0")

strArchivoXML = "c:/pruebaUs.xml"
ObjXML.Load (strArchivoXML)
For Each objNodoPadre In ObjXML.selectNodes("/root/usuario/" & strUsu)
For Each objNodoHijo In objNodoPadre.selectNodes("archivos/archivo")
strNombreArch = objNodoHijo.Text
next
next


de esta forma voy obteniendo cada uno de los nombres de archivos y asi puedo manejar cada uno de ellos.