Visual Basic - Mayusculas y textbox

Como puedo hacer que en un text box solo se escriban mayusculas. He intentado en el evento change convertir el contenido , pero no me sirve por que me coloca el cursor al principio del campo. Alguna idea¿?¿?¿?¿?

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

Mas abajo, en este mismo foro podras encontrar una respuesta a tu pregunta, de cualquier modo te podnre lo siguiente:

te escribe al reves porq no le estas indicando la posicion del ultimo caracter, es decir, solamente igualas el Text1 a lo que hay en Text1, de manera que siempre se posicion en el primer caracter, puedes hacer una prueba haciendo lo siguiente:

Private Sub Text1_Change()
Text2.Text = StrConv(Me.Text1.Text, vbUpperCase)
End Sub

Como veras aqui se puso un text2 y ese si muestra la informacion como debe de ser, haz el intento.

Otra opcion seria que dejaras al usuario que escribiera en mayusculas o minusculas y al final (por ejemplo al presion enter), realizar el cambio a minusculas o mayusculas segun convenga, algo asi como esto:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = StrConv(Me.Text1.Text, vbUpperCase)
End If
End Sub

Aqui si funciona en el mismo text1, ya que reemplazaras toda la linea.
Bueno, espero que esto te sea de utilidad....Saludos!!!

la opcion q ofrece Miguel es lo mas adecuado...

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Muchas gracias por las respuestas, asunto arreglado. os debo una