Ciao, fai così:
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text2.SetFocus
End Sub
cmq se cerchi questa soluzione per far sì che sia inserito un solo carattere nella textbox puoi impostare la proprietà "MaxLenght" = al numero di caratteri inseribili.

se hai qualche problema, posta pure..

ciao