Visual Basic Foro

Hola Atodos !!!
Consulto si alguien me puede ayudar en: EPSON TM U220AFII 
Necesito generar notas de Debito y No puedo hacerlo, alguien me puede
indicar los comandos con las librerisas extendidas, en Epson el codigo ejemplo de Ticket Factura es
el siguiente
      '---------------------------
        ' Ticket-Factura
        '---------------------------
            'Open
            sCmd = Chr$(&HB) + Chr$(&H1)
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
            ' sCmdExt = Chr$(&H0) + Chr$(&H0)
            ' NOTA DE DEBITO
            sCmdExt = Chr$(&H0) + Chr$(&H0)
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #1")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #2")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #1")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #2")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #3")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("T")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("30614104712")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("I")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #1")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #2")
            If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("")
            If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
            Call FPDelay
            If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg
   
pero no se como usarlo para Ticket Debito, aun con las Extensiones no me responde nada...
Gracias a todos y Saludos