Impedir utilizar ciertos caracteres en un Textbox

[fero]

Text1.SelStart indica el punto de inserción de un caracter en el textbox.
Si es 0, entra como primer caracter, si es 1 entra como segundo. Esto se determina con select case 0 y case 1.
Como puede haber varios caracteres en el textbox y uno podría insertar caracteres en primer o segundo lugar no se puede usar len(text1.text).
A mi me funciona, sólo que en lugar del signo ¡ yo usé el !. Hay que cambiar esto:
If KeyAscii = Asc("¡") Or KeyAscii = Asc("¿") Then KeyAscii = 0: Exit Sub

Lo que habría que evitar, si es el caso es esto otro:
Suponer que el texto tiene "ssAdf"
Esto no va contra los requerimientos, pero si se selecciona la letra s (cualquiera) y se suprime, queda un segundo caracter en mayúscula A, y el SUB no lo detecta.