' Ein Text wird schon während der Eingabe in
' Grossbuchstaben umgewandelt...
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case Asc("a") To Asc("z")
        KeyAscii = KeyAscii - 32
    Case Asc("ä")
        KeyAscii = Asc("Ä")
    Case Asc("ö")
        KeyAscii = Asc("Ö")
    Case Asc("ü")
        KeyAscii = Asc("Ü")
End Select
End Sub