Setting text box values to currency

[Aussiebear]

I've started creating a form to allow the calculation of weekly earnings. How do I format the text box value to currency?

[feathers212]

How about an AfterUpdate event?

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "$###,###.##")
End Sub

[Aussiebear]

Thanks Heather