TextBox

Hola hay alguna forma de poner formato a un grupo de TextBox, es decir quiero poner este formato a los textbox1, textbox2, textbox3, textbox4 y textbox5 y no quiero tener que ponerles individualmete la instrucción de format a cada uno como lo muestro a continuación
Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2, "#,##0.00")
End Sub
Private Sub TextBox3_Change()
TextBox3 = Format(TextBox3, "#,##0.00")
End Sub
Private Sub TextBox4_Change()
TextBox4 = Format(TextBox4, "#,##0.00")
End Sub
Private Sub TextBox5_Change()
TextBox5 = Format(TextBox5, "#,##0.00")
End Sub