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