Не вводятся цифры в TextBox - Visual Basic .NET

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

В поле «Логин» должны вводиться только маленькие латинские буквы и цифры, но цифры не вводятся (в TextBox1). Что дописать?

Public Class Form1
    
    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = Not e.KeyChar Like "[a-z" + Chr(8) + "]"
    End Sub
 
    Private Sub TextBox3_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        Dim R As String = "абвгдеёжзиклмнопрстуфхцшщъьячюэы"
        If R.ToLower.IndexOf(e.KeyChar.ToString.ToLower) < 0 Then e.Handled = True
        If e.KeyChar = ChrW(Keys.Back) = True Then e.Handled = False
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Me.Text = (TextBox2.Text)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

Решение задачи: «Не вводятся цифры в TextBox»

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

                            Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    e.Handled = Not e.KeyChar Like "[a-z0-9" + Chr(Keys.Back) + "]"
End Sub
                        