Textbox decimal format

[asyamonique]

Hello,
I have a userform with over 100 text boxes...
Is there any way to change function of below code?
Like from textbox1 to textbox100 all will be same format instead of typing one by one...

TextBox1.Text = Format(TextBox1.Text, "###,##")

 

[footoo]

Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then c.Text = Format(c.Text, "###,##")
Next

 

[asyamonique]

Thank you