Indsæt nodes i xml fra VB 6.0

Hej Alle.

Jeg prøver at oprette en xml-fil hvor følgende skal indsættes:
<com:ID>3</com:ID>
<com:InvoicedQuantity unitCode="kasse" unitCodeListAgencyID="n/a">30</com:InvoicedQuantity>

Jeg har prøvet med følgende:

________________________________________________________

    x = Chr(34)
 
    Set newNode = xmlDoc.createElement("com:ID")
    newNode.Text = "3"
    xmlDoc.documentElement.appendChild newNode.cloneNode(True)
   
    Set newNode = xmlDoc.createElement("com:InvoicedQuantity unitCode=" & x & "stk." & x & " unitCodeListAgencyID=" & x & "n/a" & x & "")
    newNode.Text = "30"
    xmlDoc.documentElement.appendChild newNode.cloneNode(True)

________________________________________________________

Men
Indsættes fint<com:ID>3</com:ID>
Giver fejlmeddelse <com:InvoicedQuantity unitCode="kasse" unitCodeListAgencyID="n/a">30</com:InvoicedQuantity>

Hilsen JBjerre