Currency Text Box in Excel Form

[DaveA]

I am attempting to have an entry on a form that will format the entry
to a currency amount.

For example, if the user types 3452, I would like the form to
store/display 34.52.

If the user types 99, I would like the form to store/display 0.99, or
.99.

Any suggestions as to how to go about this?

Thanks.

Dave

[Elef]

Private Sub Text1_LostFocus() 'you may also test with Change event
on error resume next 'to avoid errors
text1.text=format(ccur("0" & text1.text),"#.##0,00") 'the "0" prefix is
to allow convertion to zero when text1 is empty
End Sub

Bye
Elef

"DaveA" <dave....@atk.com> ha scritto nel messaggio
news:1112022362....@o13g2000cwo.googlegroups.com...