try this:

Code:
Dim s As String = "abcdefghij"
Dim a() As String = {"e", "a", "s", "y"}
MsgBox(a.Any(Function(str) s.Contains(str)))