Nel KeyPress della Text scrivi:
codice:
KeyAscii = Asc(UCase(Chr(KeyAscii)))