在VB中如何新建2級結(jié)點

Set oRoot = oDoc.createElement("Root")
    Set oDoc.documentElement = oRoot
    oRoot.setAttribute "部門編號", "897"
    ' 加入子結(jié)點
    Set oNode = oDoc.createElement("Document")
    oNode.Text = "Demo"
    oRoot.appendChild oNode
    Set oNode = oDoc.createElement("CreateDate")
    oRoot.appendChild oNode
    oNode.Text = "Demo"
    比如要在子結(jié)點下再增加一級結(jié)點如何加
    ---------------------------------------------------------------
    Set oNodeChild = oDoc.createElement("Document")
    oNodeChild.Text = "Demo"
    oNode.appendChild oNodeChild
    ---------------------------------------------------------------
    createElement("")
    appendChild 就可以的呀