VB Code:
  1. Set oxmlNodeList = XMLdoc.documentElement.selectNodes("//title")

  2.     Dim oxmlElement As IXMLDOMElement

  3.     

  4.     For lngIndex = 0 To oxmlNodeList.length - 1

  5.         Set oxmlElement = oxmlNodeList(lngIndex).parentNode

  6.         MsgBox oxmlElement.getAttribute("num")

  7.     Next
Since you've marked this as resolved, if you need more help it would be better to start a new thread.