<A><B><C><D>Wert</D></C></B></A>

<A>
        <B>
                 <C>
                            <D>Wert</D>
                 </C>
        </B>
</A>

    Dim XMLDoc As New DOMDocument
    Dim oRoot As IXMLDOMElement
    Dim Node1 as IXMLDOMElement
    Dim Node2 as  IXMLDOMElement
    Dim Node3 as  IXMLDOMElement
 
    Set oRoot = XMLDoc.createElement("A")
    XMLDoc.appendChild oRoot
 
    Set Node1 = XMLDoc.createElement("B")
    oRoot.appendChild Node1
 
    Set Node2 = XMLDoc.createElement("C")
    Node1.appendChild Node2
 
    Set Node3 = XMLDoc.createElement("D")
    Node3.Text = "Wert"
    Node2.appendChild Node3
 
    XMLDoc.save ("file.xml")