Excel UserForm VBA code for currency with 2 decimal places

[mar9el]

Good morning!

I am trying to create a userform on excel to function as a ledger. I have a text box for an amount and would like to format for currency with 2 decimal places.

Private Sub txtAmount_Change()

txtAmount.Value = Format(txtAmount, "$#,##0.00")

End Sub

It seems to be stuck to show only $#.00 (see attached). Could it be, I am supposed to do something with the txtAmount properties?

 

[rlv01]

What about this.

Private Sub txtAmount_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.txtAmount.Value = Format(Me.txtAmount.Value, "$0.00")
End Sub

 

[mar9el]

What about this.

Private Sub txtAmount_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.txtAmount.Value = Format(Me.txtAmount.Value, "$0.00")
End Sub

Thank you, I am getting a syntax error on this line:

txtAmount_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 

[rlv01]

Thank you, I am getting a syntax error on this line:

txtAmount_Exit(ByVal Cancel As MSForms.ReturnBoolean)

I tested the code and it works for me. Make sure the code goes in the form's code, module and that a text box with the name "txtAmount" exits on the userform. Also, what version of Excel are you using?