Automatic advance between textboxes on a userform

Hey there. I must be missing something with this code.
On a userform, I am attempting to be in a textbox called txtPTagLtr. When 1 character is input (can be anything) it will automatically advance to the next text box called intPTagNo.

Here is the code I have:

Private Sub txtPTagLtr_Change()


           'whenever there is 1 character registered in the TextBox

           If txtPTagLtr.TextLength > 0 Then     NOTE:  I tried = 1 and it still didnt work

            'select (SetFocus) the next TextBox

                intPTagNo.SetFocus

           End If


End Sub

I have even gone so far as to go into the textbox properties of txtPTagLtr and change max length to 1; auto tab to True. If I look at the tab index positions, the textbox txtPTagLtr is 2, and the intPTagNo is 3.


Any ideas why it wont automatically advance when a character is input?