I think you need to enumerate through the children of each node you are enumerating

VB Code:
  1. Dim nodelist2 As IXMLDOMNodeList

  2. For Each xNode In nodeList

  3.     Set nodelist2 = xNode.childNodes

  4.     For Each xNode In nodelist2

  5.          ' etc...

Off the top of my head right now I can't think of a better way, but I'm sure there is one...