Ввод в TextBox - VB

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

Как разрешить ввод только латинских букв и цифр в TextBox? Предложили такую идею:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer)
        Select Case KeyAscii
            Case 48 To 57
                ' Цифры
            Case 65 To 90
                'строчные латинские
            Case 97 To 122
                'прописные латинские
            Case Else
                KeyAscii = 0
        End Select
    End Sub

Но процедура упорно не хочет работать

Решение задачи: «Ввод в TextBox»

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

                            Dim KeyAscii As Integer
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case KeyAscii
            Case 8, 48 To 57, 65 To 90, 97 To 122
                KeyAscii = KeyAscii
            Case Else
                KeyAscii = 0
        End Select
    End Sub
                        