Private Sub Form1_Load()...
    Handles MyBase.Load
         AddHandler Textbox1.KeyPress, AddressOf Me.Umlautfilter
End Sub

Private Sub Umlautfilter(ByVal absender as Object, ByVal KeyArgs as _
  KeyPressEventArgs)
   select Case Asc(KeyArgs.KeyChar)
         Case 8, 42, 48 To 57, 97 to 122 '(Rücktaste, Stern, Zahlen, kleine 
         ' Buchstaben)
         Case 65 To 90 '(große buchstaben)
                 ' Hier ist das Prob, wie krieg ich den jetzt klar das er sie 
                 ' kleiner machen soll?