Sobre impresoras USB

Alguien sabe como abrir el cajón de una impresora USB.

He visto que el puerto asociado a esta impresora es ESPPRT001

Private Sub Command2_Click()
Dim i, CajAbre, comando
'Open "ESDPRT001" For Output As #1
Open "\\.\ESDPRT001" For Output As #1
CajAbre = "[027],[112],[000],[100],[100]"
comando = ""
For i = 1 To Len(CajAbre) Step 6
comando = comando & Chr(Val(Mid(CajAbre, i + 1, 3)))
Next i
Print #1, comando;
Close #1
DoEvents
End Sub

he probado esto, que es lo que hago para LPT1, pero nada.

La impresora es una Epson TM-T88IV. He visto que en la web hay una OCX
para desarrollo pero
aún no la he conseguido descargar.

Cualquier información sobre impresoras USB y VB será bienvenida.