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.
