Que evento usar de textbox para ejecutar un procedimiento.

Estimado amigo. Resulta que quiero ejecutar un procedimiento que una vez ingresado un número en una caja de texto me diga si ha sido ingresado o no y que me vuelva el foco al TextBox. Lo puse en el gotfocus y no me anda, lo puse en el change y no me anda.

Igual, te paso el código para que me digas si es que tengo algo mal en él

Dim rstprestamos As New ADODB.Recordset
Dim strVerDevuelto As String
Dim rstverdevuelto As New ADODB.Recordset
AbrirBase
Set rstPrestamos = New ADODB.Recordset
rstPrestamos.Open "SELECT Voluntarios.NumVoluntario,Voluntarios.ApeVol,Voluntarios.NomVol,Prestamos.CodMaterial,PRESTAMOS.Cantidad,stockmateriales.DescripcionMaterial From (VOLUNTARIOS INNER JOIN PRESTAMOS ON VOLUNTARIOS.NumVoluntario = PRESTAMOS.NumVoluntario)INNER JOIN STOCKMATERIALES ON PRESTAMOS.CodMaterial = STOCKMATERIALES.CodMaterial WHERE NumPrestamo LIKE '" & Trim(txtNumeroConstPrestamo.Text) & "%'", Base, adOpenStatic, adLockOptimistic
txtDevolucion(0).Text = ""
txtDevolucion(1).Text = ""
txtDevolucion(2).Text = ""
txtNomyApeSolicitMat.Text = ""
txtNumVoluntario.Text = ""
With rstPrestamos
If .EOF = True Then
MsgBox "Constancia Inexistente.", vbExclamation, "VERIFICACIÓN DE INGRESO DE CONSTANCIA"
'txtNumeroConstPrestamo.Text = ""
txtDevolucion(0).Text = ""
txtDevolucion(1).Text = ""
txtNumVoluntario.Text = ""
txtDevolucion(2).Text = ""
Exit Sub
txtNumeroConstPrestamo.SetFocus
txtNomyApeSolicitMat.Text = ""
'txtNumeroConstPrestamo.SetFocus
'Exit Sub
Else
txtDevolucion(0).Text = !CodMaterial
txtDevolucion(1).Text = !DescripcionMaterial ' Descripción
txtNumVoluntario.Text = !NumVoluntario
txtDevolucion(2).Text = !Cantidad 'Cantidad
txtNomyApeSolicitMat.Text = !ApeVol & " " & !NomVol 'Nombre y Apellido
End If
End With
Base.Close

Bueno amigo espero puedas darme una mano!!! Desde ya muchas gracias!!!