这是样本xml文件，我想实现的结果是：

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<list title="test">
 <item url="url1" id="0">
  <![CDATA[description1]]>
 </item>
 <item url="url2" id="1">
  <![CDATA[description2]]>
 </item>
 <item url="url3" id="2">
  <![CDATA[description3]]>
 </item>
</list>

下面是我的方法：
Dim myfile As String
myfile = App.Path & "\list.xml"
myDom.Load (myfile)

Dim RootNode
Set RootNode = myDom.documentElement
Dim myInsElement
Set myInsElement = myDom.createElement("item")

Dim newitem
Set newitem = RootNode.appendChild(myInsElement)
newitem.setAttribute "url", "myurl"
newitem.setAttribute "id", "4"
Dim newSection
Set newSection = RootNode.appendChild(myDom.createCDATASection("Description"))

myDom.save myfile

但是运行后得到的xml文件如下：
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<list title="test">
 <item url="url1" id="0">
  <![CDATA[description1]]>
 </item>
 <item url="url2" id="1">
  <![CDATA[description2]]>
 </item>
</list>

这是样本xml文件，我想实现的结果是：

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<list title="test">
 <item url="url1" id="0">
  <![CDATA[description1]]>
 </item>
 <item url="url2" id="1">
  <![CDATA[description2]]>
 </item>
 <item url="url3" id="2">
  <![CDATA[description3]]>
 </item><item url="myurl" id="4"/><![CDATA[description4]]>
</list>
是哪里出了问题？或者如何才能实现我想要的结果呢？谢谢。