sStr = Application.substitute(textbox1.Text,"%","")
Textbox1.Text = sStr & "%"

--
Regards,
Tom Ogilvy

Todd Huttenstine wrote in message
...
I would like to format textbox1 as %.

If ComboBox1.Value = "Best Performing (%)" Or "Worst
Performing (%)" Then

format entry into textbox1 as % where the % auto attaches
on the end of the number.

For example, I chose the value "Best Performing (%)" from
combobox1. I then go to enter 10 in the textbox1. When I
type in 10 in textbox1, I would like for the % sign to
automatically show after the 10 so it look like 10%.


Thanx

todd