'For TextBoxes with MaxLength property > 0.
'Tabs only if the cursor is at the end of the text.
'Sub Text1_Change ()

' Call AutoTab

'End Sub
Dim Text1 As Control
Dim Text As String
Dim Length As Integer
Dim MaxLen As Integer

On Error GoTo AutoTabTrap
Set Text1 = Screen.ActiveControl
Text = Text1.Text
Length = Len(Text)
MaxLen = Text1.MaxLength
If Length > MaxLen Then

'How can this be? Maybe it was pasted.
'This causes another change event so we'll be back.
Text1.Text = Left$(Text, MaxLen)

ElseIf Length = MaxLen And Text1.SelStart = MaxLen Then

SendKeys "{TAB}"

End If
AutoTabTrap:
Exit Sub