DIFICULDADES COM XML E VB 6.0

Citação:

Public Sub Gera_XML()
On Error GoTo errGera_XML

Dim Nome As String, arquivo As Variant, XMLdoc As DOMDocument40
Dim Cabec, Raiz, InfVer, oNode, iNode, Child, SubChild, SubChild1, SubChild2
Dim x As Integer, namednodemap

gMensagem = [Ô]Criando objeto XML[Ô]
Set XMLdoc = CreateObject([Ô]MSXML2.DOMDocument.4.0[Ô])
XMLdoc.async = False
XMLdoc.validateOnParse = True
XMLdoc.resolveExternals = False
XMLdoc.preserveWhiteSpace = True

gMensagem = [Ô]Criando Arquivo XML[Ô]
Nome = XMLPath & c_NewArq
arquivo = XMLdoc.Load(Nome)

If arquivo = True Then
Set XMLdoc = Nothing
Exit Sub
End If

gMensagem = [Ô]Criando dados do XML (TAG[ô]s e CAMPOS[Ô]
[txt-color=#0000f0] Set Raiz = XMLdoc.createElement([Ô]CTe[Ô])
XMLdoc.appendChild (Raiz)
Raiz.setAttribute [Ô]xmlns[Ô], [Ô]http://www.portalfiscal.inf.br/cte[Ô]
Raiz.setAttribute = Nothing
[/txt-color]
gMensagem = [Ô]Criando o cabecalho[Ô]
Set Cabec = XMLdoc.createProcessingInstruction([Ô]xml[Ô], [Ô]version=[ô]1.0[ô] encoding=[ô]UTF-8[ô][Ô])
XMLdoc.insertBefore Cabec, Raiz

[txt-color=#e80000] gMensagem = [Ô]Criando o 2º Nó[Ô]
Set InfVer = XMLdoc.createElement([Ô]infCte[Ô])
Raiz.appendChild (InfVer)
InfVer.setAttribute [Ô]versao[Ô], [Ô]1.03[Ô]
InfVer.setAttribute [Ô]id[Ô], c_Chave1[/txt-color]