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