XMLDOM Object

x = " soap soap "
Dim xmldoc
Set xmldoc = WScript.CreateObject("microsoft.xmldom")

'msxml2.domdocument
xmldoc.loadXML(x)
'xmldoc.load("C:\test_automation\vbscript\test.xml")

Set y =  xmldoc.documentElement
Set z = y.childNodes

For i=1 To z.length Step 1
    Set s = z.nextNode
        MsgBox s.nodeName
        MsgBox s.text
Next