Evitar escribir X caracter en caja de texto VB.NET

[xknown]

Así:

Código:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        'If Char.ToUpper(e.KeyChar) = Convert.ToChar(Keys.A) Then ' También válido
        If Char.ToLower(e.KeyChar) = "a" Then
            e.Handled = True
        End If
End Sub

Saludos