Textbox içine sadece alphanumeric karakterler girilmesini sağlayan kod.

Private Sub textBox_KeyPress(........
   Dim cInvalidChars() As Char = {"~", "`", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "-", "=", "+", "{", "[", "}", "]", "|", "\", ":", ";", """", "'", "<", ",", ">", ".", "?", "/"}
   Dim result As Boolean = False
   result = cInvalidChars.Contains(e.KeyChar)
   If result Then
          e.Handled = True
   End If
End Sub