VBNet проверьте, символы STING Contians

If MyString.IndexOfAny("[~`!@#$%^&*()-+=|{}':;.,<>/?]".ToCharArray) <> -1 Then
MsgBox("No Symbols!")
End If
Salty Joe