Como forzar el ingreso de mayusculas en un textbox

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

Lo que hace es al presionar una tecla en el textbox, en vez de escribir esa tecla la cambia por otra...
1- vuelve a chr (osea caracter) la tecla presionada...
2- Transforma en mayuscula ese chr (osea la letra) (nota: si ya esta en mayuscula obviamente lo deja asi, y si la letra es un caracter raro queno tiene mayuscula lo deja igual)
3- Vuelve a generar el ascii de esa letra en "mayuscula"....

eso si no lo sabia antrax muy bueno cuidate amigo...