Visual Basic - PASAR A MAYUSCULA

GENTE. ALGUIEN ME PASA EL CODIGO PARA PASAR EL TEXTO QUE SE ESTA ESCRIBIENDO EN UN TXTBOX A MAYUSCULA. O SI AHI ALGUNA OTRA FUNCION PARA QUE ME INTRODUZCAN SOLO MAYUSCULA EN MIS TEXTBOX. GRACIAS!

Fijate con:

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