Создать xml файл - VB

Формулировка задачи:

Для закачки в программу мне нужно создать xml файл следующей структуры:

-
-

Из xls таблицы. Для этого был создан макрос:
Sub xls_xml()
Set xpar = CreateObject("Msxml2.DOMDocument")
xpar.appendChild (xpar.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'"))
Set rootnode = xpar.appendChild(xpar.createElement("EGRUL_FO"))
rootnode.Text = "VER=""1.0"""
s = " IDDOK=""1"" OGRN=" & Worksheets(1).Cells(2, 1) & " DTSTART=" & Worksheets(1).Cells(2, 11) & " REGNUM=" & Worksheets(1).Cells(2, 10)
Set subnode = rootnode.appendChild(xpar.createElement("UL_FOND"))
subnode.Text = s
Set subnode2 = subnode.appendChild(xpar.createElement("ORGAN"))
subnode2.Text = " KOD=""035008"" NAME=""Наименование района"""
xpar.Save ("d:\RUP_035_25059_081230_29.XML")
End Sub
который формирует файл:

-
VER="1.0"
-
IDDOK="1" OGRN=2539 DTSTART= REGNUM=
KOD="035008" NAME="Наименование района"

Структура этого файла отличается от той структуры которая требуется (н-р после имени узла UL_FOND у меня ставится ">" , а у исходного файла пробел, наверное вследствии этого файл не принимается в программу. Не подскажет ли кто-нибудь как надо составить программу чтобы получить требуемую структуру файла

Решение задачи: «Создать xml файл»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> rootnode = xpar.appendChild(xpar.createElement(<font color="teal">"EGRUL_FOND"</font>))
rootnode.Attributes.setNamedItem(xpar.createAttribute(<font color="teal">"VER"</font>)).Text=<font color="teal">"1.0"</font>