Format User Form Field

[Adrae]

How can I format one of the user for input fields as a precentage?

Thanks

[Al Chara]

If you are using VBA then you can use the FormatPercent Function.

[Adrae]

I am using VBA, but am not sure where I can find this function or how to use it. Would you be able to provide me with the sample code?

[Adrae]

Does anyone have sample code for how to format a user form field as a percentage?

I tried:
Private Sub TextBox3_Change()
TextBox3 = Format(TextBox3, "0%")
End Sub

But the act of typing 1 causes the value to default to 100% as opposed to 1%.

What am I doing wrong?

Thanks

[Adrae]

I figured out the FormatPercent Function but need to figure out how to make it so that typing in 1 yields 1% not 100%. Does anybody have any ideas how to do this?

Thanks

My code is:
Private Sub TextBox3_Change()
TextBox3 = FormatPercent(TextBox3)
End Sub

[davers5]

Divide textbox3 by 100, as in:

FormatPercent(textbox3/100).

Dave

[Adrae]

I get a type mismatch error for

TextBox3 = FormatPercent(TextBox3 / 100)

Any idea why?

[davers5]

You can't divide until you change the string in your text box to a number. Try formatpercent(csng(textbox3)/100). Csng will change the value to a single. Now you have to be careful that the user puts something that can be changed to a number in there. If they don't there will be an error. You can use the isnumeric funtion for that in an if statement. Error trapping is also the hardest part of using text boxes.

Also, usually you'd use text property of the textbox function to get the value (textbox3.text). I'm not sure if you're using this or not.

Dave