Visual Basic - Impresion Ticket Epson TM-H6000II

Buenas, Amigos necesito su ayuda.

Estoy en la investigacion de imprimir ticket ( Texto y codigo de barra). Aqui comparto les obtenido, si lo mejoran, FAVOR DE COMPARTIRLO.

Tengo una aplicacion que imprime un ticket, previamente obtiene los datos de un archivo txt, pero tengo 3 problemas:
1. Necesito que imprima el texto y al final el codigo de barra. Pero me sale todo lo contrario.
2. Muchos de los codigo de barra que imprime no es reconocido x la lectora de barra.
3. Necesito que el codigo de barra sea de 14 digitos, pero solo reconoce hasta 13.

Ojala me puedan ayudar. Muchas Gracias.


Private Sub Form_Load()
Dim nf%
' Declara Variables
Dim RS$, Ofic$, Fech_hora$, Regi$, Codi_Gaf$, Codi_barr$
nf = FreeFile ' Asigna un medio disponible
Open "C:\prueba.txt" For Input As nf ' Abre el archivo txt en el medio disponible
Input #nf, RS, Ofic, Fech_hora, Regi, Codi_Gaf, Codi_barr ' Carga contenido --> Variab
Close nf ' Cierra el puerto

'MSComm1.CommPort = 1
'MSComm1.InBufferCount = 0
'MSComm1.Settings = "9600,n,8,1"
'MSComm1.InputLen = 0

If MSComm1.PortOpen = False Then ' If comm port is not open
MSComm1.PortOpen = True ' Open it ' Inicia el Puerto
End If

'MSComm1.PortOpen = True ' Inicia el Puerto

MSComm1.Output = Chr$(&H1D) + "h" + Chr$(50) ' Setea Altura de Codigo Barra
MSComm1.Output = Chr$(&H1D) + "f" + Chr$(1) ' Selecc Font Caracteres
MSComm1.Output = Chr$(&H1B) + "a" + Chr$(1) ' Justificado (Centrado)

MSComm1.Output = Chr$(10)

MSComm1.Output = RS + Chr$(13) + Chr$(10) ' <----- Razon Social
MSComm1.Output = Ofic + Chr$(13) + Chr$(10) ' <----- Oficina
MSComm1.Output = Chr$(10) ' Salta una linea
MSComm1.Output = Chr$(10) ' Salta una linea
MSComm1.Output = Chr$(&H1B) + "a" + Chr$(0) ' Justificado Izq
MSComm1.Output = Fech_hora + Chr$(13) + Chr$(10) ' <----- Fecha + hora
MSComm1.Output = Chr$(10) ' Salta una linea
MSComm1.Output = Regi + Chr$(13) + Chr$(10) ' <----- Registro

MSComm1.Output = Chr$(&H1B) + "a" + Chr$(1) ' Justificado (Centrado)
MSComm1.Output = Chr$(&H12) ' Justificado (Centrado)
MSComm1.Output = Codi_Gaf + Chr$(13) + Chr$(10) ' <----- Codigo GAF
MSComm1.Output = Chr$(10) ' Salta una linea

MSComm1.Output = Chr$(&HA)
MSComm1.Output = Chr$(&H1B) + "a" + Chr$(1) ' Justificado (Centrado)
MSComm1.Output = Chr$(&H1D) + "H" + Chr$(2) ' Selecc Posicion
MSComm1.Output = Chr$(&H1D) + "f" + Chr$(1) ' Selecc Font Caracteres
MSComm1.Output = Chr$(&H1D) + "w" + Chr$(3) ' Set width size
MSComm1.Output = Chr$(&H1D) + "k" + Chr$(2) ' Print Bar code
MSComm1.Output = Codi_barr + Chr$(13) + Chr$(0) ' <----- Codigo de Barra
MSComm1.Output = Chr$(29) + Chr$(86) + Chr$(1) ' Corte de ticket
MSComm1.PortOpen = False ' Cierra puerto serial
Unload Me

End Sub

Contenido de ArchiVO c:\prueba txt:
Zona Registral N° IX - Sede Lima
Tramite Documentario
Fecha : 01/01/1900 Hora : 00:00:00
Nro. Registro :
GAF-TD-2006000016
0000007073797

PD.
- Me parece que el tema va por la forma como imprimo el codigo de barra...

Muchas gravias.