单个TextBox更改VBA中多个文本框的事件

Question

在我的情况下，大约有100个不同名称的文本框，如Atext1，Htext2，value3，value4 ....我想要做的是检查在更改事件的文本框中输入的值是否小于400且更大然后0如果是，那么范围内的MessageBox值else值超出范围我已经在文本框更改事件中编写了代码但是对于100个文本框我怎样才能在VBA中单个事件中进行处理。

Private Sub Text1_Change()
    If Text1.Text <> "" Then
        If CInt(Text1.Text) > 400 Or CInt(Text1.Text) < 0 Then
            MsgBox ("Value out of Range")
        Else
            MsgBox ("Value in Range")
        End If
    End If
End Sub