Code to format currency in a text box

[chitonhoe]

To all of you.

Please assist, i'm looking for a code that will format contents of a text box to ($0.00/sqm).

I have a text box txtprice, when a user types in 20.00, it should automaticall display $20.00/sqm.

Your help will be mostly appreciated.

[beachbum]

Hi
I think u may be the first from Botswana!! Welcome..

U could use a Masked Edit Box to control the input but that control is usually a lot more trouble than it is worth... a simpler way would be to change the value to the correct format in the validate event of the textbox eg

Private Sub Text1_Validate(Cancel As Boolean)
    Text1.Text = Format$(Text1.Text, "currency") & "/sqm"
End Sub

Regards
Stuart