Sub subxmlWaveAnchorElement(ByVal myNode As MSXML2.IXMLDOMNode)
 
'*********************************************************************
' WaveAnchor Element
'*********************************************************************
 
   Set xmlWaveAnchorElement = xml.createElement("WaveAnchor")
   myNode.appendChild xmlWaveAnchorElement
 
End Sub
Sub subxmlTitleElement(ByVal strStrtCell As String, ByVal intLabel As Integer, _
  ByVal myNode As MSXML2.IXMLDOMNode)
 
Dim strTitle As String
Dim strMsg As String
 
'*********************************************************************
' Title Element
'*********************************************************************
 
   Set xmlTitleElement = xml.createElement("Title")
   subxmlAttribute "Id", "<no value>", xmlTitleElement
   subxmlForcedReturnElement xmlTitleElement
 
'*****************************************************************
'* Title Information
'*****************************************************************
 
    myNode.appendChild xmlTitleElement
 
    strMsg = "Enter Product Type as Title" + vbCrLf
    strMsg = strMsg + "e.g. HYS72T[64/128]xxxHR-3-A" + vbCrLf
    strMsg = strMsg + vbCrLf + "This Title will be displayed in the Table Title" & _
      "as " + vbCrLf
    strMsg = strMsg + "IDD Specification for HYS72T[64/128]xxxHR-3-A"
    strTitle = Application.InputBox(strMsg, "Product Type")
 
    If strTitle = "False" Then
        End
    Else
        strTitle = " Specification for " + strTitle
    End If
 
    Set xml_PhysicalSymbolElement = xml.createElement("PhysicalSymbol")
    If Range(strStrtCell + "1").Offset(intLabel, 0).Value = "FBDIMM" Then
        xmlTitleElement.appendChild xml_PhysicalSymbolElement
        subPhysicalValueElement "I", xml_PhysicalSymbolElement
        subSubscriptElement "CC", xml_PhysicalSymbolElement
        subxmlText "/", xml_PhysicalSymbolElement
    End If
 
    subPhysicalValueElement "I", xml_PhysicalSymbolElement
    subSubscriptElement "DD", xml_PhysicalSymbolElement
    xmlTitleElement.appendChild xml_PhysicalSymbolElement
    subxmlText strTitle, xmlTitleElement
 
    myNode.appendChild xmlTitleElement
End Sub
Sub subxmlForcedReturnElement(ByVal myNode As MSXML2.IXMLDOMNode)