Dim XMLFile As String = "...opentranssamp1.xml"
 
        Dim XMLDocument As XPathDocument = New XPathDocument(XMLFile)
        Dim XMLNavigator As XPathNavigator = XMLDocument.CreateNavigator
 
        XMLNavigator.MoveToRoot()
 
        Dim XMLIterator As XPathNodeIterator = XMLNavigator.Select( _
          "//ORDER_ITEM")
 
        Debug.WriteLine(XMLIterator.Count)
 
        While XMLIterator.MoveNext()
            Debug.WriteLine(XMLIterator.Current.OuterXml)
        End While

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov