Salve a tutti... anche se nn ho avuto alcuna risposta, sono riuscito, provando e riprovando, a risolvere il problema, e siccome qui stiamo tutti imparando (bhe certo chi più chi meno ) Posto il codice, magari qualcuno è nei miei stessi guai...
Grazie ancora a tutti!!!

Ciaoooo

Private Sub Change()
Dim ctlControlloCorrente As Control
Set ctlControlloCorrente = Screen.ActiveControl
Select Case KeyCode
Case 8, 46
Case Else
If Len(Me(ctlControlloCorrente.Name).Text) > Me(ctlControlloCorrente.Name).Tag - 1 Then KeyCode = 0
If Len(Me(ctlControlloCorrente.Name).Text) > Me(ctlControlloCorrente.Name).Tag - 1 Then SendKeys "{TAB}", True
End Select
End Sub