СОЗДАНИЕ XML-ФАЙЛА SEPA

Question

Я пытаюсь создать файл SEPA XML в старом приложении доступа, но я обнаружил ошибку в первых строках, что я не знаю, как ее решить.

    Dim xmlDom As MSXML2.DOMDocument60
    Dim xmlspacename As MSXML2.IXMLDOMElement
    Dim xmlVersion As MSXML2.IXMLDOMProcessingInstruction
    Dim xslStylesheet As MSXML2.IXMLDOMProcessingInstruction
    Set xmlDom = New MSXML2.DOMDocument60

    Set xmlVersion = xmlDom.createProcessingInstruction("xml", "version='1.0' encoding= 'UTF-8'")
    xmlDom.appendChild xmlVersion

    Set xmlspacename = xmlDom.createElement("Document")
    xmlDom.appendChild xmlspacename
    xmlDom.documentElement.setAttribute "xmlns", "urn:iso:std:iso:20022:tech:xsd:pain.001.001.03"
    xmlDom.documentElement.setAttribute "xmlns:xsd", "http://www.w3.org/2001/XMLSchema"
    xmlDom.documentElement.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"

    '****RAIZ DEL MENSAJE
    'Creando elemento raiz [1..1]_0
    Dim xmlrootnode As IXMLDOMElement
    Set xmlrootnode = xmlDom.createElement("CstmrCdtTrfInitn")
    xmlspacename.appendChild xmlrootnode
    '*****CABECERA
    ' Creando 1_0_cabecera [1..1]_0
    Dim cabecera As IXMLDOMElement
    Set cabecera = xmlDom.createElement("GrpHdr")
    xmlrootnode.appendChild cabecera


    MsgBox "Ok"

    ' Saves XML data to disk.
    xmlDom.Save ("c:\temp\andrew.xml")

Вывод:

<?xml version="1.0" encoding="UTF-8"?>

<Document xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
     xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
       xmlns="urn:iso:std:iso:20022:tech:xsd:pain.001.001.03">


      <CstmrCdtTrfInitn xmlns="">

            <GrpHdr/>

        </CstmrCdtTrfInitn>

   </Document>

Это результирующий XML-файл.Я сравнил его с некоторыми примерами файлов, которые мне дали банки, и в этом теге есть различие:

<CstmrCdtTrfInitn xmlns="">

Мне нужно, чтобы специальное слово атрибута "xmlns" исчезло из тега.Кто-нибудь может мне помочь?