Format Textbox as %

[Todd Huttenstine]

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

 

[Tom Ogilvy]

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

 

[Todd Huttenstine]

Thanx

-----Original Message-----

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

--
Regards,
Tom Ogilvy




.