[VB.NET]: Controllare il contenuto di una frase per caratteri non ammessi

[Jupy64]

Ciao, potresti fare anche una cosa del genere:

Dim vChar() As Char = {"{"c, "}"c, "#"c, "@"c}
Dim s1 As String = "pro@va"
If s1.IndexOfAny(vChar) > 0 Then
      MessageBox.Show("trovato carattere non valido")
End If