If strFootnote = "2" Then
            Set xmlFootnote = xml.createElement("Footnote")
            myNode.appendChild xmlFootnote
            subxmlAttribute "Id", myFootPos, xmlFootnote
            subxmlText "MRS(12)=0", xmlFootnote
        End If
 
        If strFootnote = "3" Then
            Set xmlFootnote = xml.createElement("Footnote")
            myNode.appendChild xmlFootnote
            subxmlAttribute "Id", myFootPos, xmlFootnote
            subxmlText "MRS(12)=1", xmlFootnote
        End If
 
        If strFootnote = "4" Then
            Set xmlFootnote = xml.createElement("Footnote")
            myNode.appendChild xmlFootnote
            subxmlAttribute "Id", myFootPos, xmlFootnote
            subxmlText "Standard products", xmlFootnote
        End If
    End If
End Sub
Sub subComponentNoteOrgFormat(ByVal myString As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)
'******************************************************************************
' ************
'* Procedure used for replacing the 'x' by the Yen symbol
'******************************************************************************
' ************
 
Dim intNo As Integer
Dim strMultiply As Variant
 
strMultiply = Split(Trim(myString), "x")
 
    intNo = 1
    While (intNo <= UBound(strMultiply))
        subSymbolCharElement "¥", myNode
        subxmlText strMultiply(intNo), myNode
        intNo = intNo + 1
    Wend
 
End Sub