VBA code to make multiple text boxes numeric entry only

Hello

Im very new to VBA coding and just looking for some help with short cuts.

I have a large userform used to record productivity data in my workplace. I have 167 text boxes (named Input1 up to Input167) and I want them to only be able to enter in numbers.


I have the following code which works fine, but I really dont want to have to repeat it 167 times. Can someone help me with some code so that I can cover all 167 text boxes at the one time.

Private Sub Input1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
    KeyAscii = 0

End If

End Sub

Thanks in advance for your help

Jess