Visual Basic - Ingresar solo mayúsculas a text box

Amigos, como hago para que en una caja de texto pueda ingresar solo letras mayúsculas. He probado con lo sgte:
Private Sub Textbox.Text_change()
Textbox.Text = UCase(Textbox.Text)
end Sub
Pero, con esto si ingreso por teclado por ejemplo:"hola", en la caja de texto aparece ALOH.
QUE PUEDO HACER? Gracias!

Tenes que llamar la funcion Ucase en el evento keypress, en lugar de hacerlo en el evento Change

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTec As String

sTec = Chr(KeyAscii)
KeyAscii = Asc(UCase(sTec))

End Sub
suerte

thanks a lot Guido! bye

Otra manera de hacerlo es utlizando el método de pérdida de foco:
Private Sub TextBox_LostFocus ()
TextBox.Text = Ucase (TextBox.Text)
end sub

Al hacerlo en el evento cada vez que introduces una letra se produce un evento Change y el cursor se situa a la izquierda, por eso te escribe al revés.