Visual Basic - A mayúsculas

Deseo el código que escribiendo en una caja de texto esta se pase a mayúsculas, texto esto:
Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub

Pero el cursor cada ves que pongo una letra el cursor "se va al inicio", detrá de lo esccrito, le puse

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
SendKeys "{END}", True
End Sub

y da, pero mi pregunta porque se da esto y si hay otra formade solucionarlo

Saludos, no utilices el evento chance utiliza el keypress, algo asi

Private sub Text1_KeyPress(KeyAscii as integer)
KeyAscii=asc(ucase(chr(keyascii)))
End Sub


Saludos desde Venezuela

Muchas Gracias Ivan!