Something like this?

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


Robo wrote:

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

"Dave Peterson" wrote:

You can use something like:

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


Robo wrote:

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?
--
Thanks,
Robo

--

Dave Peterson


--

Dave Peterson