Impedir Que Ingresen Caracteres En Textbox

[DIDAKE]

Hola : Necesito Impedir Que Ingresen Como Primer Caracter ( Solo Para El Primer Caracter ) Algunos Signos De Puntuación, Por Ejemplo = Signo ¿ ; Signo ! ; Signo * .
He Podido Capturar Estos Signos Con Keypress Y Ascii, Y A Partir De Eso Enviar Un Msgbox, Pero Ocurre Que De Todos Modos En El Tetbox Me Aparece Luego Del Msgbox El Caracter Introducido Por El Usuario , El Que Me Desata El Msgbox De Aviso.
He Probado Con Textbox.text = "" Y Con Textbox.text =clear Y No Pasa Nada.
¿ Alguna Idea De Como Se Puede Hacer ?

[tazzito]

si los capturas en el keypress asignale al keyascii el valor 0

if trim(textbox.text)=space(0) then 'es el primer caracter
if instr(1,"¿;!*", chr(keyascii)) > 0 then keyascii=0
endif

[DIDAKE]

Podrías ampliar la solución . soy un poco "duro" aún. Gracias

[tazzito]

ese codigo va en el keypress del textbox en el cual quieres sacar esos caracteres, mejor dime que parte exacta no entiendes par ampliar un poco mas.

[vbx3m]

En el evento KeyPress coloca

Código:

If Len(Text1.Text) = 0 Then
    If KeyAscii >= 33 And KeyAscii <= 47 Then KeyAscii = 0
End If

Este codigo no permite añadir caracteres especiales como primer carcater desde 3l 33 al 47 (aun faltan) asi que tu puedes seleccionar los que no quieras que se escriban...

[David]

Iniciado por vbx3m

En el evento KeyPress coloca

Código:

If Len(Text1.Text) = 0 Then
    If KeyAscii >= 33 And KeyAscii <= 47 Then KeyAscii = 0
End If

Este codigo no permite añadir caracteres especiales como primer carcater desde 3l 33 al 47 (aun faltan) asi que tu puedes seleccionar los que no quieras que se escriban...

También podría hacer que en el evento Change se busque si no se ingresó alguno de esos caracteres... ya que alguien podría Pegar ese carácter...

[f_visualbasic]

La respuesta de vbx3m es efectiva, pruébala.