Tengo que escribir un archivo de texto en VB6. Necesito hacerlo adjuntando y utf-8 codificado.

Probé dos soluciones, una con "TextStream" y otra con "ADODB.Stream".

El primero:

<code>    Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
    fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
    fsoFile.Close
</code>

Funciona bien para agregar, pero ¿cómo puedo escribirlo con codificación UTF-8?

El segundo:

<code>Dim ST As ADODB.Stream

Set ST = New ADODB.Stream
ST.Mode = adModeReadWrite
ST.Type = adTypeText
ST.Charset = "UTF-8"

ST.Open
ST.LoadFromFile FileIn(fi)
ST.Position = ST.Size
ST.WriteText "<tag>kkkjòòkkkkjlòlk</tag>"
ST.SaveToFile FileIn(fi)
ST.Close
</code>

Escriba correctamente en utf-8, pero no puedo escribir el archivo adjunto pero solo con "adSaveCreateOverWrite".

¿Cómo puedo hacer eso? ¿Hay otra manera?

Muchas gracias.