Cita:
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...