Запрет ввода в TextBox определенных символов - Visual Basic .NET

Формулировка задачи:

В общем проблема такая, пол дня уже пытаюсь выполнить небольшое задание... Нужно поставить защиту от всех букв и цифр кроме цифр "1,2,3,4,5" и BackSpace. По логик я понимаю как это сделать, но вот скомпоновать(добавить к этому коду фильтр) я не могу, уже по разному пробовал... HELP)) MS Visual Studio Basic 2015

If TextBox1.TextLength()  >= 1 Then
 
            MsgBox("Введите цифру от 1 до 5!!!", MsgBoxStyle.Critical)
                e.Handled = True
 
        End If

Решение задачи: «Запрет ввода в TextBox определенных символов»

textual
                            Листинг программы 
                        

                                'Процедура проверки корректности ввода
    Private Sub CheckValue(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Len(sender.text) > 0 Then e.KeyChar = "" : Exit Sub
        Select Case Asc(e.KeyChar)
            Case 49 To 53, 8
            Case Else : e.KeyChar = ""
        End Select
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 15 'Подписываем текстбоксы на процедуру проверки
            AddHandler Me.Controls("TextBox" & i.ToString).KeyPress, AddressOf CheckValue
        Next
    End Sub
 
    'Кнопка подсчета суммы баллов
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sum As Integer = 0
        For i As Integer = 1 To 15
            If Val(Me.Controls("TextBox" & i.ToString).Text) = 0 Then
                MsgBox("Заполните поле №" & i.ToString)
                Exit Sub
            Else
                sum += Val(Me.Controls("TextBox" & i.ToString).Text)
            End If
        Next
        MsgBox(sum.ToString)
    End Sub
                        