Creating an XML Document in VBScript

I am creating a XML file in VBScript. However, my XML file is in the
wrong format. Any help is appreciated.

This is the format currently:
<catalog><disc></disc><title>AVI 2</title></catalog>

Here is the desired format:
<catalog><disc><title>AVI 2</title></disc></catalog>

Here is my code:


Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("C:\videocatalog\vid.xml")
Dim objCurrNode, objNewNode, objNewText
makeDisc()
makeFiles()
objXMLDoc.save("C:\videocatalog\vid.xml")


'*******************************
'* makeDisc *
'*******************************
Sub makeDisc()
Set objNewNode = objXMLDoc.createElement("disc")
Set objNewText = objXMLDoc.createTextNode("")
objNewNode.appendChild(objNewText)
Set objCurrNode = objXMLDoc.documentElement
objCurrNode.appendChild(objNewNode)
Set objCurrNode = objCurrNode.lastChild
End Sub 'makeDisc subroutine

'******************************
'* makeFiles *
'******************************
Sub makeFiles()
Set Root = objXMLDoc.documentElement
Set NodeList = Root.getElementsByTagName("disc")
For Each Elem In NodeList
Set objNewNode = objXMLDoc.createElement("title")
Set objNewText = objXMLDoc.createTextNode("AVI 2")
objNewNode.appendChild(objNewText)
Set objCurrNode = objXMLDoc.documentElement
objCurrNode.appendChild(objNewNode)
Set objCurrNode = objCurrNode.lastChild
objNewNode.appendChild(objNewText)
Next

End Sub 'makeDisc subroutine