Thread: Currency Displayed in TextBox

I have various TextBox's on a worksheet and they display as Currency.
The code for them works well, BUT, will not display $20.10. It would appear to me that the zero following the two(2) is the problem. Any other number displays as it should.
I have been fiddling with the code for about 2 weeks now with no joy. I reach out for HELP!
The code (from the web) is as follows.

Private Sub TextBox6_Change()
    Static Num As Currency
    Static Change As Boolean
    On Error Resume Next
    If Len(TextBox6.Value) = 0 Then Num = Null: Exit Sub
    Change = Not Change
    If Change = False Then Exit Sub
    If Len(TextBox6.Value) <= 1 Then
    Num = TextBox6.Value / 100
    Else
    Num = CCur(Num & Right(TextBox6.Value, 1)) * 10
    End If
    Debug.Print TextBox6.Value, Num
    TextBox6.Value = Format(Num, "$#,##0.00")
End Sub

There may be a better way. (I hope)

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here