xml troubles

[MarkT]

I have this code

Private Sub Form_Load()
Dim objDoc As MSXML2.DOMDocument 'this is a dom document which stores your xml
Dim objRootElement As IXMLDOMElement ' Create a root xml element
Dim objCurrentElement As IXMLDOMElement
Dim i As Integer
 
    Set objDoc = New DOMDocument
    
    Set objRootElement = objDoc.createElement("root")
    objDoc.appendChild objRootElement
    
    For i = 1 To 3
        Set objCurrentElement = objDoc.createElement("header")
        objRootElement.appendChild objCurrentElement
        
        objCurrentElement.setAttribute "name", "entry" & i
        objCurrentElement.setAttribute "parent", "entry" & i - 1
        objCurrentElement.setAttribute "text", "This is entry " & i
    Next i
    
    Debug.Print objDoc.xml
End Sub

This will create some xml that looks like this

<root>
    <header name="entry1" parent="" text="This is entry 1"/>
    <header name="entry2" parent="" text="This is entry 2"/>
    <header name="entry3" parent="" text="This is entry 3"/>
</root> 

What I need to do now is change this so I can insert a new line so it looks like this.

<root>
    <header name="entry1" parent="" text="This is entry 1"/>        
    <header name="entry2" parent="" text="This is entry 2"/>
        <menuitem name="sub1" parent="entry2">Added Item<menuitem/>
    <header name="entry3" parent="" text="This is entry 3"/>
</root> 

How do you go about inserting a new element where you need to?