이벤트함수를 일괄적용하는 방법이 있습니까?

Option Explicit

Public WithEvents tbx As MSForms.TextBox


Private Sub tbx_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim iNo As Integer, i As Integer, oTB As Object
    If KeyCode <> vbKeyTab Then Exit Sub
    If formInput.Visible = False Then Exit Sub
    If InStr(1, tbx.Name, "tbNo", vbTextCompare) = 0 Then Exit Sub

    iNo = CInt(Replace(tbx.Name, "tbNo", "", , , vbTextCompare))

    For i = iNo + 1 To 60  '//다음 번호부터 최종 번호까지
        On Error Resume Next
        Set oTB = formInput.Controls("tbNo" & i)
        If Not oTB Is Nothing Then
            oTB.Value = tbx.Value
            Exit For
        End If
        On Error GoTo 0
    Next
End Sub

Option Explicit

Public WithEvents tby As MSForms.TextBox

Private Sub tby_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim iNo As Integer, i As Integer, oTB As Object
    If formInput.Visible = False Then Exit Sub
    If InStr(1, tby.Name, "tbNo", vbTextCompare) = 0 Then Exit Sub

    iNo = CInt(Replace(tby.Name, "tbNo", "", , , vbTextCompare))

    For i = iNo To 60 '//다음 번호부터 최종 번호까지
        On Error Resume Next
        Set oTB = formInput.Controls("tbNo" & i)
        If Not oTB Is Nothing Then
            orderView
            Exit For
        End If
        On Error GoTo 0
    Next

End Sub