Currency Format on UserForm when opened!

[Guest]

The values of a text box on a UserForm appear as numbers. I want to diplay
the value of these text boxes in currency format when the form is opened.
How do I write the code to ensure currency format is always displayed?

 

[Dave Peterson]

You can use something like:

Option Explicit
Private Sub UserForm_Initialize()
Me.TextBox1.Value = Format(1234.23, "$#,##0.00")
End Sub

 

[Guest]

help...still unable to get the UserForm (DisbSchForm) to display currency
when opened (Show).
i have thirty txt boxes named txtbox01, txtbox02, txtbox03...txtbox30 &
& when i type in what you told me it displays only a number? i do not want
the decimal places to display & the currency amount can be up to 9 digits.
--
Thanks,
Robo

You can use something like:

Option Explicit
Private Sub UserForm_Initialize()
Me.TextBox1.Value = Format(1234.23, "$#,##0.00")
End Sub

 

[Dave Peterson]

Something like this?

Me.TextBox1.Value = Format(1234.23, "$#,##0")

help...still unable to get the UserForm (DisbSchForm) to display currency
when opened (Show).
i have thirty txt boxes named txtbox01, txtbox02, txtbox03...txtbox30 &
& when i type in what you told me it displays only a number? i do not want
the decimal places to display & the currency amount can be up to 9 digits.