Visual Basic - ABRIR EL CAJON DE UN TPV

Hola a todos. Estoy desarrollando una aplicacion de terminal punto de venta y a la hora de emitir el ticket , necesito que me abra la caja. El ticket lo imprimo con el objeto printer y al final le pongo la cadena para abrir el cajón, pero no me funciona. Algien me puede dar alguna idea.
Muchas gracias.

Public Function ABRIR_CAJA()
Open "LPT1:" For Output As 1
Print #1, Chr(27) & Chr(112) & Chr(48) & Chr(200) & Chr(200);
Close 1
End Function