Solo números en un textbox

Vi la solución que diste para restringir el uso a solo números en los textbox, solo que en mi userform tengo 37. No se si excita una forma para agrupar los 37 textbox o tengo que repetir la rutina por cada uno de los textbox
Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1) Then
        Dim mensaje As String
        mensaje = MsgBox("Valor ingresado NO es Numerico" & Chr(13) & "Puede ingresar nuevamente ?", vbCritical, Title:="Ingresar Monto Cheque")
        TextBox1 = Empty
    End If
End Sub
Gracias,