Impedir utilizar ciertos caracteres en un Textbox

[seba123neo]

no se que hiciste con el codigo principal,no era tan dificil solo tenias que poner los mensajes:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Text1.SelStart
Case 0
If KeyAscii = Asc("!") Or KeyAscii = Asc("¿") Then KeyAscii = 0: MsgBox "no podes ingresar ! ni ¿"
Case 1
Select Case KeyAscii
Case Asc("A") To Asc("Z")
KeyAscii = 0
MsgBox "no podes ingresar la segunda letra en mayuscula"
Exit Sub
End Select
End Select
End Sub

saludos.