Sub FindNode()
Dim oXmlDoc As DOMDocument
Dim oXmlNode As IXMLDOMNode
Dim oXmlNodes As IXMLDOMNodeList
Set oXmlDoc = New DOMDocument
oXmlDoc.async = False
oXmlDoc.Load (ThisWorkbook.Path & "\EmployeeSales.xml")
Set oXmlNodes = oXmlDoc.SelectNodes("//Employee[InvoiceAmount>3000]")
For Each oXmlNode In oXmlNodes
Debug.Print oXmlNode.Text
Next
End Sub