Visual Basic - utf-8

VB6 --> UTF-8

 a  -->   a

 b  -->   b

 c  -->   c

 á  -->   ?

 Á  -->   /

 é  -->   *

 ;  -->   &

'Referencia Microsoft ActiveX Data Objects  (o sea, ADO)

'Declara

    Dim objStream   As ADODB.Stream

    Dim MiTexto	    As String

    MiTexto = ""

    MiTexto = MiTexto & "Este es el contenido de un archivo txt" & vbCrLf

    MiTexto = MiTexto & "Esta es la 2a. linea" & vbCrLf

    MiTexto = MiTexto & "Esta es la 3a. linea" & vbCrLf

    MiTexto = MiTexto & "Esta es la 4a. linea"

    Set objStream = New ADODB.Stream

        objStream.Open

        objStream.Charset = "UTF-8"

        objStream.WriteText MiTexto

        objStream.SaveToFile App.Path & "\MiArchivoUTF8"

        objStream.Close

    Set objStream = Nothing