Ciao, altra soluzione potrebbe essere questa
codice:
Private Sub SpostaFocus(strText As String, numMaxCar As Integer)
   If Len(strText) = numMaxCar Then
      SendKeys "{TAB}", True
   End If
End Sub

Private Sub Text1_Change()
   SpostaFocus Text1.Text, 1
End Sub
Comunque sia, è sempre bene impostare la lunghezza massima dell'oggetto textBox
Logicamente, il secondo parametro della funzione SpostaFocus, è la lunghezza che la stringa deve raggiungere per spostare il focus in automatico. Se il focus si deve spostare dopo l'inserimento di 10 caratteri, allora devi mettere 10