Форматирование файла xml

[amator_roma]

Нужно создать xml файл с отступами и тд

<?xml version="1.0" encoding="windows-1251"?>
 <UkrainianCadastralExchangeFile>
  <AdditionalPart>
   <FileDate>Vasa</FileDate>
  </AdditionalPart>
 </UkrainianCadastralExchangeFile>

а у меня все получается в одной строчке, использую MSXML2.DOMDocument VB6
вот код

Private Sub Form_Load()
 Dim rootnode As IXMLDOMElement
 Dim subnode As IXMLDOMElement
 Dim subnode2 As IXMLDOMElement
 Dim Index%, propertyvalue$
 Set xpar = CreateObject("Msxml2.DOMDocument")
 xpar.appendChild (xpar.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'"))
 Set rootnode = xpar.appendChild(xpar.createElement("UkrainianCadastralExchangeFile"))
 Set subnode = rootnode.appendChild(xpar.createElement("AdditionalPart"))
 Set subnode2 = subnode.appendChild(xpar.createElement("FileDate"))
 Dim s As String
 s = "Vasa"
 subnode2.Text = s
 xpar.save ("d:\121212.XML")
End Sub

Может подскажете как выйти с даной ситуацыи

[Rififi]

IMXWriter____________