Impedir utilizar ciertos caracteres en un Textbox

[fero]

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case Text1.SelStart
Case 0
If KeyAscii = Asc("!") Or KeyAscii = Asc("¿") Then KeyAscii = 0: Exit Sub
Case 1
Select Case KeyAscii
Case Asc("A") To Asc("Z")
KeyAscii = 0
Exit Sub
End Select
End Select

End Sub