To add AutoTab to text boxes that have a set MaxLength, add this code
to the text box Change event:
Sub Text1_Change ()
If Len(Text1) = Text1.MaxLength Then
SendKeys "{Tab}"
End If
End Sub
This saves the user one keystroke when moving from one field to
the next. It's best not to intersperse this behavior, but instead to use
it on an all-or-nothing basis to prevent massive user confusion.
Karl E.