Visual Basic - CAJON MONEDAS

TENGO UN IMPRESORA DE TICKET LA EPSON TM-U210
Y UN CAJON MONEDA
COMO HAGO QUE EL CAJON MONEDA SE ABRA
ES URGENTA
GRACIAS

dependiendo del puerto en que la tengas conectada...

Sub Abro_Cajon()
'para abrir cajon
Open "LPT1:" For Output As #1
Print #1, Chr$(27) & Chr$(112) & Chr$(0) & Chr$(10) & Chr$(10)
Close #1
End Sub