'*********************************************************************
' Forced return Element
'*********************************************************************
 
   Set xmlForcedReturnElement = xml.createElement("ForcedReturn")
   myNode.appendChild xmlForcedReturnElement
 
End Sub
Sub subxmlAttribute(ByVal myAttribute, ByVal myText As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)
 
'*********************************************************************
'* Attribute
'*********************************************************************
    Set xmlAttribute = xml.createAttribute(myAttribute)
    xmlAttribute.Text = myText
    myNode.Attributes.setNamedItem xmlAttribute
 
End Sub
Sub subxmlText(ByVal myText As String, ByVal myNode As MSXML2.IXMLDOMNode)
 
'*********************************************************************
' Text Element
'*********************************************************************
 
   Set xmlText = xml.createTextNode(myText)
   myNode.appendChild xmlText
 
End Sub
Sub subCrLf(ByVal myNode As MSXML2.IXMLDOMNode)
 
'*********************************************************************
' Text Element
'*********************************************************************
    Set xmlTextCrLf = xml.createTextNode(vbCrLf)
    myNode.appendChild xmlTextCrLf
End Sub
 
Sub subSubscriptElement(ByVal myVar As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)
 
'*********************************************************************
' Subscript Element
'*********************************************************************
 
   Set xmlSubscript = xml.createElement("Subscript")
   xmlSubscript.Text = myVar
   myNode.appendChild xmlSubscript
 
End Sub
Sub subPhysicalValueElement(ByVal myVar As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)
 
'*********************************************************************
' Physical Value Element
'*********************************************************************
 
   Set xmlPhysicalValue = xml.createElement("PhysicalValue")
   xmlPhysicalValue.Text = myVar
   myNode.appendChild xmlPhysicalValue
 
End Sub
 
Sub subSymbolCharElement(ByVal myVar As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)