Creating XML File

Hello,

I'm trying to create an XML file using VB6 and am hitting a slight problem.

My code is :

Code:

---

    Dim XMLDocument As MSXML2.DOMDocument30
    Dim XMLDocumentRootNode As MSXML2.IXMLDOMNode
    Dim XMLDocumentLevel1Node As MSXML2.IXMLDOMNode
    Dim XMLDocumentLevel2Node As MSXML2.IXMLDOMNode
    Dim XMLDocumentValueElement As MSXML2.IXMLDOMElement

    Set XMLDocument = CreateObject("MSXML2.DOMDocument.3.0")

    Set XMLDocumentRootNode = XMLDocument.createElement("ROOT")
    XMLDocument.appendChild XMLDocumentRootNode

    Set XMLDocumentLevel1Node = XMLDocument.createElement("LEVEL1")
    XMLDocumentRootNode.appendChild XMLDocumentLevel1Node

    Set XMLDocumentValueElement = XMLDocument.createElement("VALUE11")
    XMLDocumentLevel1Node.appendChild XMLDocumentValueElement

    XMLDocumentLevel1Node.LastChild.Text = "ABCDEFG"

---

This produces :

- <ROOT>
- <LEVEL1>
<VALUE11>ABCDEFG</VALUE11>
</LEVEL1>
</ROOT>

However, instead of "ABCDEFG", I would like the information stored in one of my variables.

I've tried changing the code to :

Code:

---

XMLDocumentLevel1Node.LastChild.Text = strMyVar

---

However, this doesn't work and instead gives me :

- <ROOT>
- <LEVEL1>
<VALUE11 />
</LEVEL1>
</ROOT>

How can I do this please ?

Thanks,