Private Sub DatePer1_Enter()
Me.TextBox3 = Format(Get_Date(Me.DatePer1, Now), "MMMM yyyy")    ' выбор даты из календаря
End Sub

Set rng = bm("NumberFirst1").Range 'присваиваем переменной rng ссылку на закладку "NumberFirst1"
rng.Text = Me.NumberFirst1.Text  'определяем новый текст закладки
bm.Add "NumberFirst1", rng   'заменяем закладку "NumberFirst1"
Set rng = bm("NumberFirst11").Range
rng.Text = Me.NumberFirst1.Text
bm.Add "NumberFirst11", rng

Set rng = bm("NumberFirst2").Range
rng.Text = Me.NumberFirst2.Text
bm.Add "NumberFirst2", rng
Set rng = bm("NumberFirst22").Range
rng.Text = Me.NumberFirst2.Text
bm.Add "NumberFirst22", rng

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

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