Sub ReadXMLDoc()
Dim xmldoc As MSXML2.DOMDocument50
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
If xmldoc.Load("C:\yourFile.xml") Then
Debug.Print xmldoc.XML
Debug.Print xmldoc.Text
End If
End Sub