Excel - Ayudenme en textbox please

Hola excelsos:
Tengo un formulario donde hay como diez textbox, en los cuales solo se deben ingresar numeros, he limitado el ingreso de numeros con este codigo:

Private Sub txtNumero_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

mi pregunta es, siendo diez los textbox, el codigo de mi formulario me va a salir una sabana larguísima, ¿existe alguna forma de escribir solo una vez el codigo y que sea aplicable a todos mis textbox?, o debo hacerlo siempre uno por uno. Gracias.

Prueba poniendole otro nombre al sub y llamandolo desde cada text
mmmm, aunque no estoy muy seguro por eso el de la variable publica, la declaras en el principio del userform o del modulo dependiendo de donde estes ( option Explicit )

public dato_ingresado as boolean

sub textbox1_change()
dato_ingresado = false
call Revisa_datoingresado(keyAscii )
if dato_ingresado = true then
keyascii = 0
end if
end sub

Private Sub Revisa_datoingreso(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
dato_ingresado = true
End If
End Sub

o

sub textbox1_change()

call Revisa_datoingresado(keyAscii )

end sub

Private Sub Revisa_datoingreso(KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
keysascii = 0
End If

End Sub

Me cuentas