To add AutoTab to text boxes that have a set MaxLength, add this codeto 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 tothe next. It’s best not to intersperse this behavior, but instead to useit on an all-or-nothing basis to prevent massive user confusion.