Visual Basic - FORMATOI

ALGUIEN SABE COMO HACER UNA VALIDACION EN CUADRO DE TEXTO EN VISUAL BASIC QUE SOLO PUEDA INGRESAR CARACTERES EN MAYUSCULAS ASI COMO EN VISUAL FOX PRO ERA LA PROPIEDAD FORMAT Y SE LE COLOCABA EL SIMBOLO " ! "

haga una funcion que te convierta las letras minusculas en mayusculas en la propiedad keypress del textbox
Private Sub Text1_KeyPress(KeyAscii As Integer)
if (keyascii >96 and keyascii <123) or keyascii = 164 then
keyascii = convertir(keyascii)
Endif
End Sub

private function convertir(byval a as integer) as interger
dim b as integer
if a = 164 then
b = 165 'convierto la ñ a Ñ
else
b = a - 32
endif
convertir=b
end sub