Visual Basic - caja de dinero

disculpen amigos programadores necesito ayuda para abrir una caja de dinero con vb 6.0, he probado con mscomm, pero no consigo como abrirla con ese componente. el unico dato que tengo es una rutina en qbasic que dice asi .. . .

OPEN "COM1:300,N,8,1"
FOR RANDOM AS # 1
PRINT #1, "0000000000"

de antemano gracias por cualquier ayuda...