在VB中如何新建2级结点（等....）

Set oRoot = oDoc.createElement("Root")
Set oDoc.documentElement = oRoot
oRoot.setAttribute "部门编号", "897"
' 加入子结点
Set oNode = oDoc.createElement("Document")
oNode.Text = "Demo"
oRoot.appendChild oNode

Set oNode = oDoc.createElement("CreateDate")
oRoot.appendChild oNode
oNode.Text = "Demo"

比如要在子结点下再增加一级结点如何加
---------------------------------------------------------------

Set oNodeChild = oDoc.createElement("Document")
oNodeChild.Text = "Demo"
oNode.appendChild oNodeChild

---------------------------------------------------------------

createElement("")
appendChild 就可以的呀