Visual Basic - AYUDA CON TEXT!!

Hola alguien sabe como puedo hacer para que cuando escribo en un text se escriba todo en mayusculas?

Gracias.

Introduce sto en el text
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Upper(KeyAscii)
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Introdude esto en el formulario
Function Upper(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = KeyAscii - 32
End If
Upper = KeyAscii
End Function

Estimado amigo:
En www.ambsoftware.com encontrarás un ejemplo que te muestra cómo hacerlo.
Para localizarlo te recomiendo que utilices el buscador de recursos de la página principal y escribas en la casilla la palabra "mayúscula".
Escríbela con acento ya que el buscador los distingue.
Espero que esta información te sirva de ayuda.
Fdo.- Alvaro Marín