verify format in userform textbox - how to?

[TTom]

I have a textbox in a userform and have an entry format issue.

I am requesting the user enter a payment amount and need to be certain it is digits only containing zero, one, or two decimal places.
It can not contain characters other than digits or period for decimal place.

Examples of acceptable entries:
200
2100
150.26
150.2

Examples of unacceptable entries:
2,100
150.253
$50

How to I write an error handler for this?

Thanks, TTom

 

[acw]

Tom

Why don't you convert the output using the CDbl text converter, then format the output into your specified form

something like

format(cdbl(textbox1.text),"#.##")

That way, the entry can contain the different types, but the output will always be in a consistent format.

Tony

 

[TTom]

Using:
textbox1=format(cdbl(textbox1.text),"#.##")
works great!

Thanks

 

[HalfAce]

It can not contain characters other than digits or period for decimal place.

Tom,
textbox1=format(cdbl(textbox1.text),"#.##")
should work fine if your users always cooperate & enter nothing but numeric characters.
However if any alpha characters get entered it'll generate an error.
You could use something like this to allow only numeric characters and/or a decimal point
from the keyboard. All other entry keys are disabled while the textbox has focus.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 46 Or KeyAscii > 57 Or KeyAscii = 47 Then KeyAscii = 0
End Sub