Visual Basic - convertir a mayusculas

Hola amigos necesito saber como se hace en Visual basic para que al escribir en un text, de una vez las letras aparescan en mayuscula....
He puesto el siguiente codigo
Text1.Text = UCase(Text1.Text)
Pero no me funciona....me escribe al revés...
Alguien bondadoso que desee ayudarme

os los pene al reves? pos le dais la vuelta y ya estáal derecho.
espero aberos alludado si no es asi pos postear

En el evento Keypress del texboc pon:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Y eso es todo. Suerte

pon en el evento change

Text1.SelStart = Len(Text1)
text1=ucas(tex1)

saludos