Factura electroncia sat mexico

[techsjll]

hola mikecoy, mira, La verdad no he encontrado mucho para vb6, apenas estoy trabajando en eso, te paso la parte de convertir la cadena original a utf8, hay que hacer referencia a Microsoft ActiveX Data Objects 2.5 Library, haces una forma con un boton command y dos rich tex box.
codigo para el command:
Private Sub Command1_Click()
Dim strT As String, strFile As String
strCadena = "||2.0|A|1|2010-09-02T16:30:00|122956|2010|ingreso|Pago en una sola exhibicion|350|0|406|SAT970701NN3|Servicio de Administración Tributaria|AV. HIDALGO|77|CUAUHTÉMOC|DISTRITO FEDERAL|MÉXICO|06300|CAUR390312S87|Rosa María Calderón Uriegas|PRIV. CEIBA|114|BOSQUE|JOJUTLA|JOJUTLA|MORELOS|México|62 900|10|Caja|Vasos decorados|20|200|1|pieza|Charola metálica|150|150|IVA|16.00|56.00||"
Me.RichTextBox1.Text = strCadena
Me.RichTextBox2.Text = UTF8_Encode(strCadena)
MsgBox "termino", vbInformation, Me.Caption
End Sub

ahora el codigo de la funcion

Private Function UTF8_Encode(ByVal sStr As String)
For l& = 1 To Len(sStr)
lChar& = AscW(Mid(sStr, l&, 1))
If lChar& < 128 Then
sUTF8$ = sUTF8$ + Mid(sStr, l&, 1)
ElseIf ((lChar& > 127) And (lChar& < 2048)) Then
sUTF8$ = sUTF8$ + Chr(((lChar& \ 64) Or 192))
sUTF8$ = sUTF8$ + Chr(((lChar& And 63) Or 128))
Else
sUTF8$ = sUTF8$ + Chr(((lChar& \ 144) Or 234))
sUTF8$ = sUTF8$ + Chr((((lChar& \ 64) And 63) Or 128))
sUTF8$ = sUTF8$ + Chr(((lChar& And 63) Or 128))
End If
Next l&
UTF8_Encode = sUTF8$
End Function

espero te sirva
saludos