Sub test() Dim objDOM As New DOMDocument Dim rtResult As Boolean Dim nodeList As IXMLDOMNodeList Dim obj As IXMLDOMNode rtResult = objDOM.Load("C:\sample-1.xml") ' rtResult = objDOM.Load("C:\work.xml") If rtResult = True Then objDOM.setPro…