From Evernote:

[VB.NET]ﾃｷｽﾄボックスにて条件に合わない入力の場合はキャンセル

  

Private Sub txtEigen_KeyPress( ByVal sender As System.Object,  _
   ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEigen.KeyPress

    

    '例：Aの入力をなかったことにする

     If e.KeyChar = "A" Then

         e.Handled = True

    End If

End Sub