How do avoid Select when coding TextBoxes

The following code fragment works:-

Please Login or Register  to view this content.

When I change it to :-

Please Login or Register  to view this content.

I get the error message "Object does not support this property or method", at line 20
Can someone please explain where I have gone wrong?
John

Using your helpful suggestion I re coded the full procedure as follows:-

Please Login or Register  to view this content.

The first line is a direct copy of yours and it works, at least I can click through it without an error. However TextBox 2 does not get filled with a.
The next section which I had hoped would just be an extension of your code is stopped by an error message telling me that "the index into the specified collection is out of bounds.
The third section as expected gives me the same error.
I am very confused. I think that the collection is Shapes and the index is the array name TBoxName = "TextBox 2" and that definitely is the name that shows when I select the TextBox on the sheet "DASH". I hope you can spare some more time to help me!
John