Sub FindNode()
Dim oXmlDoc As DOMDocument
Dim oXmlNode As IXMLDOMNode
Set oXmlDoc = New DOMDocument
oXmlDoc.async = False
oXmlDoc.Load (ThisWorkbook.Path & "\EmployeeSales.xml")
Set oXmlNode = oXmlDoc.SelectsingleNode ("//FirstName[text()='Mike']")
Debug.Print oXmlNode.XML
End Sub