XML VisualBasic Script

Sub IterateThruElements() 
    Dim xmldoc As MSXML2.DOMDocument50 
    Dim xmlNode As MSXML2.IXMLDOMNode 
    Dim xmlNodeList As MSXML2.IXMLDOMNodeList 
    Dim myNode As MSXML2.IXMLDOMNode 
    Set xmldoc = New MSXML2.DOMDocument50 
    xmldoc.async = False 
    xmldoc.Load ("C:\yourFile.xml") 
    Set xmlNodeList = xmldoc.getElementsByTagName("*") 
    For Each xmlNode In xmlNodeList 
        For Each myNode In xmlNode.childNodes 
          If myNode.nodeType = NODE_TEXT Then 
            Debug.Print xmlNode.nodeName & "=" & xmlNode.Text 
          End If 
        Next myNode 
    Next xmlNode 
    Set xmlDoc = Nothing 
End Sub