Reducing VBA redundancy

[Av8tordude]

I have numerous textboxes that use the code below in their respective change event. In the effort to reduce redundancy, is it possible to have just one code and call the code in each textbox change event?

Select Case Len(tbEq)
    Case 1
        tbEq = Format(tbEq, "$0\.00")
    Case Is > 1
        v = Replace(tbEq, "$", "")
        v = Replace(v, ".", "")
        tbEq = Format(v / 100, "$#,#0.00")
    Case Else
End Select

 

[Alex Blakenburg]

@dmt32. Thanks Dave.

 

[dmt32]

@dmt32. Thanks Dave.

I meant to add that if you think you can offer an improvement on something I post to OPs then please do.

I am not the precious sort & In my advancing years I do get a little muddled sometimes so always welcome any constructive suggestions / corrections.

Dave

 

[Av8tordude]

The code works great! Thank you and greatly appreciate your help and knowledge. Dave!!

 

[dmt32]

The code works great! Thank you and greatly appreciate your help and knowledge. Dave!!

Most welcome - glad we were able to help & appreciate your feedback

Dave