Visual Basic - AYUDA CON SETFOCUS Y FORM_KEYDOWN

Hola a todo espero que pueden ayudar muesto el siguiente codigo parte, esto hace los siguiente primero se carga una grilla, y luego mediante la funcion form_keydown, debe realizar lo siguinte, tecleo cualquir letra entrea la A y la Z, me activo el buscap.text, el cual lo hace activa y carga la primera letra que se asigna pero, el focus del buscap.text no lo activa sin embargo muestra el primer valor la idea es seguir escribiendo despues del primer valor.


Dim nCc As Integer

Private Sub Form_Load()
nCc=1
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

Case 65 To 90 And nCc = 1
nCc = 2
cFrameb.Visible = True
Buscab.Text = Chr(KeyCode)
Buscab.SelStart = 1
Buscab.setfocus
Case 116
Call Boton_Ajuste_Click

Case 120
Call Boton_Anula_Click

Case 122

End Select
End Sub