AutoTab

Sub Text1_KeyUp (Keycode as integer, Shift as integer)
If KeyCode > 47 and KeyCode < 123 Then
If Len(Me.ActiveControl.Text) = (Me.ActiveControl.MaxLength) Then
SendKeys "{Tab}", True
End if
End If
End Sub