Sub LoadXML()
   
   Dim xmlDoc As DOMDocument
   Set xmlDoc = New DOMDocument

   ' Отключаем асинхронную загрузку.
   xmlDoc.Async = False

   ' Загрузка XML.
   xmlDoc.Load (ThisWorkbook.Path & "\Продажи.xml")

   ' Печатаем с потрохами.
   Debug.Print xmlDoc.XML

   ' Чистка.
   Set xmlDoc = Nothing

End Sub

Sub FindNode()

   Dim xmlDoc As DOMDocument
   Dim xmlNode As IXMLDOMNode
   Dim xmlNodes As IXMLDOMNodeList

   ' Загружаем.
   Set xmlDoc = New DOMDocument
   xmlDoc.async = False
   xmlDoc.Load (ThisWorkbook.Path & "\Продажи.xml")

   ' Находим работников по заданному критерию.
   Set xmlNodes = xmlDoc.SelectNodes("//Сотрудник[Выручка>1000]")
   
   ' Проверяем каждый найденный элемент.
   For Each xmlNode In xmlNodes
      Debug.Print xmlNode.Text
   Next

End Sub