vba - Create brand new XML node to append as child to other node

Question

I would like to create a new XML node to append to an existing one in my XML file. Specifically, the structure of the file is:

<contract>
    <trade></trade>
    <trade></trade>
</contract> 

My idea is to get each <trade> node and append a new child to it. This child should look like this:

<tradeSource></tradeSource>

My question is, how do I define this new child to append? It doesn't seem I can find the right object to create on VBA (although the library MSXML v3.0 has been referenced in the project) and I don't manage to find such a sample of brand-new node anywhere on the web. My pseudo-code:

XMLFile.Load(myFileFullName)
Set tradeNodes = XMLFile.getElementsByTagName("trade")
For Each trade In tradeNodes 
    Set newNode = ???? '<-- how to fill this?
    trade.appendChild(newNode)
Next trade

Answer 1

This should work:

Set newNode= XMLFile.CreateElement("price");
newNode.InnerText = "19.95"
trade.appendChild(newNode)

Please note that both variables trade and newNode should be declared as IXMLDOMNode (type defined in the library msxml6.dll).