Visual Basic - mayusculas en caja de texto

por favor ,como hago para que se convierta a mayuscula en caja de texto mientras escribo

Lo primero que se me ocurre es lo siguiente:

Private Sub Text1_Change()
Text1.text = UCASE(Text1.text)
End Sub

pues eso que se ocurre FEDE es una chapuza porque cada vez que escribes se te pone al cursor al principio del texto.

en el evento keypress de tu caja de texto
keyascii=asc(ucase(chr(keyascii)))
espero que te sirva ok saludos

Visual Basic permite varias soluciones para un mismo problema. La solucion de Mario es la mejor a mi entender, pero ¿que tiene esta de malo?

Text1 = UCase(Text1)
Text1.SelStart = Len(Text1.Text) - 1