Imports vb=Microsoft.VisualBasic
Private Sub textbox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textbox1.TextChanged
Static cadena As String = ""
Dim letra As String
Dim n As Short
letra = VB.Right$(TextBox1.Text, 1)
n = Asc(letra)
If ((Asc(letra) >= Asc("0")) And (Asc(letra) <= Asc("9"))) Or ((Asc(letra) <= Asc("a")) And (Asc(letra) <= Asc("z"))) Then
' 'es correcto
cadena = TextBox1.Text
Else 'aquí se valoran opciones menos frecuentes y casos no válidos
'if n=letras tildadas o letras con diéresis luego
'cadena = TextBox1.Text
'else
TextBox1.Text = cadena
msgbox("El carácter '" & letra & "' no es válido.")
beep
'end if
End If
End Sub