rng.Text = Me.Controls(BmName).Text

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

Public aoTxtBxes(1 To 4) As New clsmTxtBxes

Private Sub UserForm_Initialize()
    Dim i As Integer
    'Присваиваем последовательно значениям массива значения объектов
    For i = 1 To 8
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberFirst" & i)
    Next i
End Sub

Public aoTxtBxes(1 To 4) As New clsmTxtBxes

Option Explicit
Public WithEvents oTxtBx As MSForms.TextBox    'создаем элемент с отслеживанием его событий
'за назначение с отслеживанием событий отвечает оператор WithEvents
'(может применяться только в модулях классов)

Private Sub oTxtBx_Change()
    MsgBox "Вы изменили значение " & oTxtBx.Name, vbInformation, "Информациооное окно"
End Sub

 Private Sub UserForm_Initialize()
    Dim i As Integer
    'Присваиваем последовательно значениям массива значения объектов
    For i = 1 To 8
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberFirst" & i)
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberLast" & i)
    Next i
End Sub

Set aoTxtBxes(i).oTxtBx = Me.Controls("Number" & ("First" OR "Last") & i)

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

    Private Sub NumberFirst1_Change()
        intPos = NumberFirst1.SelStart
        strTmp = ""
        For i = 1 To Len(NumberFirst1.Text)
            ch = Mid(NumberFirst1.Text, i, 1)
            If (ch >= "0" And ch <= "9") Then
                strTmp = strTmp & ch
            Else
                intPos = intPos - 1
            End If
        Next
        NumberFirst1.Text = strTmp
        If intPos > 0 Then
            NumberFirst1.SelStart = intPos
        End If
    End Sub

Option Explicit
Public WithEvents oTxtBx As MSForms.TextBox
 
Private Sub oTxtBx__Change()
        intPos = oTxtBx.SelStart
        strTmp = ""
        For j = 1 To Len(oTxtBx.Text)
            ch = Mid(oTxtBx.Text, j, 1)
            If (ch >= "0" And ch <= "9") Then
                strTmp = strTmp & ch
            Else
                intPos = intPos - 1
            End If
        Next
        oTxtBx.Text = strTmp
        If intPos > 0 Then
            oTxtBx.SelStart = intPos
        End If
    End Sub

    For i = 1 To 8
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberFirst" & i)
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberLast" & i)
    Next i

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 16
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberFirst" & i)
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberLast" & i)
    Next i
End Sub

Public aoTxtBxes(1 To 16) As New clsmTxtBxesFirstLast
Sub Show_Form()
    UserForm1.Show
End Sub

Option Explicit
Public WithEvents oTxtBx As MSForms.TextBox
 
Private Sub oTxtBx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

 Private Sub UserForm_Initialize()
    Dim i As Integer, j As Integer
    For i = 1 To 8
        Set aoTxtBxes(i).oTxtBx = Me.Controls("NumberFirst" & i)
    Next i
    For j = 1 To 8
        Set aoTxtBxes(j).oTxtBx = Me.Controls("NumberLast" & j)
    Next j
End Sub