Remover xmlns em duplicidade em um arquivo xml vb6

Bom dia pessoal, será que alguém pode me dizer onde estou errando ao gerar uma arquivo xml, pois o atributo xmlns esta sendo duplicado, preciso remove-lo, se alguém puder me ajudar agradeço muito.

abaixo o código.

Dim XML                                                                         As New DOMDocument60

Dim Cabec, CampoDoNo                                                            As IXMLDOMElement

Dim ide, cUF, cNF, natOp, Modelo, Serie, nNF                                    As IXMLDOMElement

Dim nfeproc                                                                     As IXMLDOMElement

Dim NFe                                                                         As IXMLDOMElement

Dim infNFe                                                                      As IXMLDOMElement

'

Set XML = New DOMDocument60

XML.async = False

XML.validateOnParse = True

XML.resolveExternals = False

XML.preserveWhiteSpace = True

Set nfeproc = XML.createElement("nfeProc")     'Abre o primeiro nó.

XML.appendChild nfeproc

'

nfeproc.setAttribute "versao", "4.00"

nfeproc.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe"

'Criar NFe

Set NFe = XML.createElement("NFe")

nfeproc.appendChild NFe

NFe.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe"

'

Set infNFe = XML.createElement("infNFe")

NFe.appendChild infNFe

infNFe.setAttribute "Id", id

infNFe.setAttribute "versao", "4.00"

'

Set Cabec = XML.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")

XML.insertBefore Cabec, nfeproc

XML.save ("c:\NFE.xml") 'Salva no local especificado.

veja como fica o xml

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

	-<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">

	     -<NFe xmlns="http://www.portalfiscal.inf.br/nfe">

	          -<infNFe xmlns="" versao="4.00" Id="NFe521905109735850001805510000000001000000017">

	               -<ide>

	                    <cUF>52</cUF>

	Preciso remover este xmlns   >--->        -<infNFe xmlns="" versao="4.00" Id="NFe521905109735850001805510000000001000000017">

	Desde já agradeço.