Visual Basic para Aplicaciones - problema con setfocus

MI problema es el siguiente, en un formulario de venta, temgo un boton para abrir una cajonera, el caso es que tengo que poner una clave para pasar a la apertura, pero cuando hago visible el recuadro donde tengo el campo a solicitar, hago un setfocus pero pasa de largo y me va a la rutina de aprtura. NO se como parar en el campo. Me gustaria me dierais alguna idea de como parar el proceso para que me pida el valor. Adjunto la parte de la programacion. Gracias.

' tecla de aprtura del cajon.
Private Sub FWButton6_Click()
Frame7.Visible = True
mirasicajon
End Sub

Private Sub mirasicajon()
TDBText2.GotFocus
If TDBText2 = seguvende Then
mirar_impresora "T"
abrir_cajon
End If

Frame7.Visible = False


End Sub

Tdbtext2 es el campo solicitado y seguvende es el valor tomado del registero del vendedor.

una cosa en la linea donde pone "TDBText2.Gotfocus" en realidad es "TDBText2.Setfocus".....
Gracias.