Visual Basic - Ayuda Como hacer que un Textbox Acepte solo letras Mayusculas

Buenas!

necesito hacer que un text box acepte solo Mayusculas o escriba mayusculas si alguien sabe por fa diganme pliz es urgente

hola Jose Manuel
escribe este code en Text1_KeyPress:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then KeyAscii = 0
End Sub

No hace falta complicar tanto la cosa, bastaría con usar Ucase.
text1=ucase(Text1)

KeyAscii = AscW(UCase$(ChrW$(KeyAscii))) ' Con esto lo que ingresen queda automaticamente en mayusculas

Gracias Por sus Aportes los Probe todo y si funcionan Ojala siga Creciendo la Comunidad Visual Basic


Gracias jcmg
Gracias Pedro Luis
Gracias jorge

Se los Agreadesco