Dim tempdoc As MSXML.DOMDocument
    Dim tempnode As MSXML.IXMLDOMNode 
    Dim tempelement As MSXML.IXMLDOMElement 
    Dim tempattribute As MSXML.IXMLDOMElement 
    Dim root As MSXML.IXMLDOMElement     '生成一个XML DOMDocument 对象     Set tempdoc = New MSXML.DOMDocument 
    
    '生成根节点并把它设置为文件的根 
    Set root = tempdoc.createElement("MyRoot") 
    Set tempdoc.documentElement = root 
     
    '生成孩子节点添加到根节点上去,并且为这个节点设置一个属性 
    Set tempnode = tempdoc.createNode(MSXML.NODE_ELEMENT, "MyNode", "") 
    tempnode.Text = "MyNodeValue" 
    root.appendChild tempnode 
    '取得元素节点的接口,添加属性 
    Set tempelement = tempnode 
    tempelement.setAttribute "MyAttribute", "MyAttributeValue" 
     
    '写xml文件 
    Open "MyXMLFile.xml" for output as #1 
        Print #1, root.XML 
    Close #1