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¿?¿?¿?¿?

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