Imports System
Public Class Program
Public Shared Function string_contains_special_characters(ByVal str As String) As Boolean
Dim SpecialChars As Char() = "!@#$%^&*()".ToCharArray()
Dim indexOf As Integer = str.IndexOfAny(SpecialChars)
If indexOf = -1 Then
Return False
End If
Return True
End Function
Public Shared Sub Main()
Dim str As String = "vb c++ java python"
Console.Write(string_contains_special_characters(str))
End Sub
End Class
' run:
'
' False
'