Как обратиться к нескольким выборочным TextBox на пользовательской форме?

Есть условная пользовательская форма и на ней несколько TextBox: TextBox_1, TextBox_2, TextBox_5, TextBox_6, TextBox_9, TextBox_10... и так далее. Хочу сделать в них ввод только цифр.

Пример:

Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    TextBox.MaxLength = 10
    On Error Resume Next
    Select Case KeyAscii
        Case 48 To 57, 8
        Case 44, 46
            KeyAscii = 46
            If InStr(1, Me.TextBox.Text, ".") Then KeyAscii = 0
        Case Else
            KeyAscii = 0
    End Select
End Sub

Как мне обратиться к выборочным TextBox'ам при событии KeyPress?


Ответы (0 шт):