I am a newbie to XML.
This is my small vbs to add new names into an existing xml file.

Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("names.xml")

Dim objCurrNode, objNewNode, objNewText
Set objNewNode = objXMLDoc.createElement("name")
Set objNewText = objXMLDoc.createTextNode("John")
objNewNode.appendChild(objNewText)

Set objCurrNode = objXMLDoc.documentElement
objCurrNode.appendChild(objNewNode)
Set objCurrNode = objCurrNode.lastChild


Set objNewNode = objXMLDoc.createElement("name")
Set objNewText = objXMLDoc.createTextNode("Alex")
objNewNode.appendChild(objNewText)

Set objCurrNode = objXMLDoc.documentElement
objCurrNode.appendChild(objNewNode)
Set objCurrNode = objCurrNode.lastChild

objXMLDoc.Save("names2.xml")

This is the input file.
Names.xml
<names>
   <name>Alice</name>
   <name>Bert</name>
   <name>Charlie</name>
   <name>Diane</name>
   <name>Eric</name>
</names>

This is the output file.
<names>
    <name>Alice</name>
    <name>Bert</name>
    <name>Charlie</name>
    <name>Diane</name>
    <name>Eric</name>
    <name>John</name><name>Alex</name></names>

My question is, how can I write it on separate line for the new added names?.
Thanks.