Visual Basic - ReTo Mayusculas VS Minusculas

Como puedo hacer que en una casilla de texto sólo se puedan escribir MAYUSCULAS, yo al poner en el evento Change del TXT, lo siguinente: txtCliente.text=UCase(txtCliente.text) me escribe en mayúsculas, pero al revés, porque el cursor se queda delante del todo, así cuando escribo ZEUS me pone SUEZ. Se te ocurre algo?? Muchas gracias

en el evento keypress de la caja pon:

keyascii = asc(ucase(chr(keyascii)))

y elimina el change()

Te doy información en tu correo. Espero te sirva.