codigo não cria arquivo xml

[TIDRA]

Boa Tarde !!

meu problema abaixo .... não gera o arquivo .xml

se alguém puder dar uma olhada ...

examinei e já estou de cabeça quente quem sabe ...

escrevi em vb6 por já ter um sistema rodando a 10 anos e não quero mudar ele

então para montar o xml para CTE vou pegar as variaveis e ta pronto , até ai ..

Obrigado

'###################

Dim doc As DOMDocument

Dim stringXml As String

Set doc = New DOMDocument

stringXml = "<?xml version= ""1.0""?>" & _

" <ide>" & _

" <cUF>43</cUF><cCT>000000000</cCT>" & _

" <CFOP>6353</CFOP><natOp>TRANSPORTE RODOVIARIO DE CARGAS</natOp>" & _

" <ForPag>0</ForPag><mod>57</mod>" & _

" <serie>1</serie><nCT>1</nCT>" & _

" <dhEmi>2013-01-11T13:33:00</dhEmi><tpImp>1</tpImp>" & _

" <tpEmis>1</tpEmis><cDV>0</cDV>" & _

" <tpAmb>1</tpAmb><tpCTe>0</tpCTe>" & _

" <procEmi>0</procEmi><verProc>1</verProc>" & _

" <cMunEmi>4307708</cMunEmi><xMunEmi>ESTEIO</xMunEmi>" & _

" <UFEmi>RS</UFEmi><modal>01</modal>" & _

" <tpServ>0</tpServ><cMunIni>4307708</cMunIni>" & _

" <xMunIni>ESTEIO</xMunIni><UFIni>RS</UFIni>"

stringXml = stringXml & " <cMunFim>4307005</cMunFim><xMunFim>ERECHIM</xMunFim>" & _

" <UFFim>RS</UFFim><retira>1</retira>" & _

" <toma03>" & _

" <toma>0</toma>" & _

" </toma03>" & _

"</ide>" & _

" <compl>" & _

"<xCaracSer>NORMAL</xCaracSer><xEmi>LEANDRO L OLIVEIRA</xEmi>" & _

"<fluxo>" & _

"<xOrig>SM</xOrig><xDest>ER</xDest>" & _

"</fluxo>" & _

"<Entrega><comData><tpPer>2</tpPer><dProg>2013-01-14</dProg></comData>" & _

"<semHora><tpHor>0</tpHor></semHora>"

stringXml = stringXml & "</Entrega>" & _

"<xObs>ICMS ISENTO - CONFORME LIVRO I, ART 10 INCISO IX - RICMS/97||LOCALIZE SUA CARGA NO SITE WWW.MERCURIO.COM||FP 0,94 18,35 VT 170,38 PR 50 /A%V 0,10 /AVV 2,34</xObs>" & _

"</compl>" & _

"<emit>" & _

"<CNPJ>95591723003053</CNPJ><IE>1090137912</IE>" & _

"<xNome>EXPRESSO MERCURIO S.A.</xNome><xFant>TNT MERCURIO</xFant>" & _

"<enderEmit>" & _

"<xLgr>R ANGELO BOLSON</xLgr><nro>394</nro><xBairro>MEDIANEIRA</xBairro>" & _

"<cMun>4316907</cMun><xMun>SANTA MARIA</xMun><CEP>97070000</CEP><UF>RS</UF>" & _

"</enderEmit>" & _

"</emit>" & _

"<rem>" & _

stringXml = stringXml & "<CNPJ>94477882000124</CNPJ><IE>1090173145</IE><xNome>RODOAUTO COM PNEUS LTDA</xNome><fone>005532228108</fone>" & _

"<enderReme>" & _

"<xLgr>R DUQUE DE CAXIAS</xLgr><nro>2650</nro><xBairro>CENTRO</xBairro><cMun>4316907</cMun><xMun>SANTA MARIA</xMun>" & _

"<CEP>97070100</CEP><UF>RS</UF>" & _

"</enderReme>" & _

"<infNF><serie>0</serie><nDoc>024292</nDoc><dEmi>2013-01-14</dEmi><vBC>0</vBC><vICMS>0</vICMS><vBCST>0</vBCST><vST>0</vST>" & _

"<vProd>0</vProd><vNF>5402.19</vNF><nCFOP>5405</nCFOP>" & _

"<nPeso>250</nPeso></infNF>" & _

"</rem>"

doc.loadXML stringXml

doc.Save "C:\43090594760873000146550010000010001151557461.xml"

MsgBox "Arquivo XML criado com sucesso!"