Sub Load_ReadXMLDoc()
Dim oMyDoc As DOMDocument
Set oMyDoc = New DOMDocument
oMyDoc.async = False
oMyDoc.Load (ThisWorkbook.Path & "\SalesByRegion.xml")
Debug.Print oMyDoc.XML
Set oMyDoc = Nothing
End Sub