Input Box - Collective Format

I have a userforms (using multipage) with columns of input textboxes for the user to input.

Multipage1. Page1
Columns of data to input are %
There are 4 columns of 10 rows (therefore 40 textboxes)
I have the following code that will format the input to be seen as % by the user and to be treated as % in the worksheet calculations.



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Select Case KeyCode
Case 9, 13
Sheets("Sheet1").Range("rate").Value = TextBox1.Value
With TextBox1
.Text = Format(WorksheetFunction.Substitute(.Text, "%", ""), "0.00") & "%"
Sheets("Sheet1").Range("rate").Value = .Value
End With
End Select
End Sub

Do I have to code this for every textbox? Is there an easier way to do so. Can I create a loop or routine that will pass through all the textboxes and perform the above procedures?

Please let me know because I don't want to undertake a cumbersome exercise of programming this code for each and every textbox.

By the way, page 2 of the multipage, will have textboxes for % entries; textboxes for 0.00 entries and textboxes for $0.00 entries. I have similar code as above for the 0.00 and $0.00 entries and again I'm trying to prevent programming unnecessarily if I somehow could find a way to code a loop to pass through common textboxes for %, 0.00 and $0.00 entries.