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