set bodyXML = CreateObject("MSXML2.DOMDocument")

      orderCode = "orderCode"

      set orderUpdates = bodyXML.appendChild(bodyXML.CreateElement("orderupdate"))

      set orderCode1 = orderUpdates.appendChild(bodyXML.CreateElement("orderCode1"))

      set orderCode2 = orderUpdates.appendChild(bodyXML.CreateElement("orderCode2"))

      'working code
       set text1 = bodyXML.createTextNode("Why is this not working?")

      'not working code => TypeMismatch
       set text2 = bodyXML.createTextNode(orderCode)

       orderCode1.appendChild text1
       orderCode2.appendChild text2