I need TextBox to display $ values

[Big Lar]

[FONT=Verdana]Private Sub TextBox21_Change()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT]
[FONT=Verdana]TextBox31.Value = "$" & (Val(TextBox21.Value) * 0.25<o:p></o:p>[/FONT]
[FONT=Verdana]End Sub<o:p></o:p>[/FONT]

<o></o>
<o></o>
If TB21.Value value is 2<o></o>
TB31 displays $0.5<o></o>
<o></o>
What code change will display 2 places after the decimal point?<o></o>

 

[JackDanIce]

Not sure what you're trying to do, but see if this code helps:

Sub AsboCows()
MsgBox Format(2000000000, "$#,##.00")
End Sub

 

[NateO]

Hello, it could look like something like the following:

Private Sub CommandButton1_Click()
Me.Hide
Unload Me
End Sub
 
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
    Let .Value = Format$(.Value, "Currency")
End With
End Sub

 

[Big Lar]

JackDanIce...
You lost me with that code. Where does it go in my project? And, does it effect every TextBox?



The UserForm will be used as a cash report...where users enter coin counts.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
TextBox21 is the total number of coins entered by the user<o></o>
TextBox31 displays the actual value of the coins<o></o>
<o></o>
So, if the user enters 2 into TB21
TB31 should display $0.50 instead of $0.5
...and the code is for this TextBox only.<o></o>

 

[Big Lar]

Thanks Nate. I was able to adapt it. Greatly appreciated.

 

[NateO]

Well, you're welcome.