Tom Martin wrote:

The code that you provided was helpful and here is what I did attached
to a button click...

Dim objXML As New MSXML2.DOMDocument
Dim NodeList As MSXML2.IXMLDOMNode
  Dim xNode As MSXML2.IXMLDOMNode

objXML.async = False
objXML.Load ("C:\Documents and Settings\Tom\Desktop\new xml test aop.xml")
'objXML.Load ("c:\users\BillGates\Documents\competition.xml")
Set NodeList =
objXML.selectSingleNode("/ArrayOfCompetition/Competition/EventName")

The code posted by William used
  selectNodes
and not
  selectSingleNode
Only selectNodes gives you a NodeList you can iterate over, selectSingleNode returns the first matched node or Nothing if none is found.