Dim oRoot As IXMLDOMElement
Dim oNode As IXMLDOMNode

Set oDoc = New DOMDocument
oDoc.resolveExternals = True

Set oNode = oDoc.createProcessingInstruction("xml", "version='1.0'")
Set oNode = oDoc.insertBefore(oNode, oDoc.childNodes.Item(0))

Set oRoot = oDoc.createElement("Root")
Set oDoc.documentElement = oRoot

Set oNode = oDoc.createElement("Name")
oNode.Text = "Олег"
oRoot.appendChild oNode

oDoc.Save App.Path & "\test.xml"