Private Sub Text1_KeyPress(KeyAscii As Integer)
 
  If KeyAscii >= 97 And KeyAscii <= 122 Then ' A - Z
    KeyAscii = KeyAscii - 32
  End If
 
  If KeyAscii = 246 Then ' Ö
    KeyAscii = KeyAscii - 32
  End If
 
  If KeyAscii = 228 Then ' Ä
    KeyAscii = KeyAscii - 32
  End If
 
  If KeyAscii = 252 Then ' Ü
    KeyAscii = KeyAscii - 32
  End If
 
End Sub