readall Caracteres especiais ao coletar valores de um arquivo txt

[Murillo Ferreira]

Boa noite. Estou começando a programar em VB6 e me deparei com um bug.

Tenho na minha aplicação uma variável chamada "Arqtxt" que lê o valor de um Arquivo .txt e outra variável "XML" que recebe o valor de Arqtxt:

Dim Arqtxt        As TextStream
Dim XML           As String

Set Arqtxt = fso.OpenTextFile(Arquivo)
XML = Arqtxt.ReadAll

VetCampos(9) = "XMLAS_CCE":  VetConteudo(9) = Aspas(Trim(XML))

 

Após fazer a leitura do arquivo, a variável XML é estranhamente populada com caracteres especiais () no início como demonstrado abaixo:

<?xml version="1.0" encoding="UTF-8"?>
<procEventoNFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe">

<evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><infEvento Id="

.......

</procEventoNFe>
 

Ao tentar gravar o valor no banco, ocorre o erro "String or binary data would be truncated." A coluna da tabela que armazena o valor da variável "XML" é "XMLAS_CCE" como demonstrado abaixo:

Alguém sabe onde pode estar o problema?

Editado Maio 6, 2017 por Murillo Ferreira