Visual Basic - ESC/POS

Necesito saber con urgencia como se imprimien codigos de barras con la impresora tm-l90 de epson

FrmInicio es el formulario inicial de la aplicacion
Impresora es un control MsComm que apunta al puerto serie de la impresora

Public Function impCodBar(Cadena As String)

'altura del codigo de barras
frmInicio.Impresora.Output = Chr$(&H1D) & "h" & Chr$(160)

'ancho del codigo de barras
frmInicio.Impresora.Output = Chr$(&H1D) & "w" & Chr$(2.5)

'decir que es un codigo de barras
frmInicio.Impresora.Output = Chr$(&H1D) & "k" & Chr$(2)

frmInicio.Impresora.Output = Cadena & Chr$(0)

end function

Que aproveche