Auto adjust font size in a text box.

I have attached an example sheet that I need some help with.

As you can see, textbox1 contains some content but its overflowing, thus not displaying.

Clicking the blue button will do is this:
Get the word count (or characters whatever is easer) of the textbox and based on the number alter the font size to fix to the box.
I don’t know if there is the ability to tell it to make the text fix the box (which would be GREAT) but if that does not exist, I will play with the actual Word count and the font size myself to find the optimal set up. Perhaps include the ability to alter the line spacing as well??? If that possible as I need to text to look as nice as I can make it.

Thank you so much for your help with this.

That is more advanced talk than i can understand. i have added a second one to the help file... could you show me how to do that? from that point i can do 2 or 20....

thanks!

Ahhhh so if i wanted to be box specific i would just have a separate macro where i would change:

Please Login or Register  to view this content.

TextBox 3 to be whatever right?