aiuto ora il codice non da nessun errore pero non mi sposta il cursore! alla textBox1 ho inserito il codice:
Private Sub SpostaFocus(ByVal strText As String, ByVal numMaxCar As Integer)
If Len(strText) = numMaxCar Then
SendKeys.Send("{TAB}")
End If
End Sub

Private Sub Text1_Change()
SpostaFocus(TextBox1.Text, 1)
End Sub
ma niente. i tabindex sono il primo 48 e il secondo 49 help!!!