Check in the string list

Question

I have the code below, do I have to use the loop? Is there a better way? thank you.

Dim result As Boolean

    Dim a As New List(Of String)
    a.Add("abcd")
    a.Add("qwer")

    Dim x As String = "abcdef"
    For Each s As String In a
        If x.Contains(s) = True Then
            result = True
        End If
    Next

Answer 1

Try this alternative:

Dim a As New List(Of String) From {"abcd", "qwer"}
Dim x As String = "abcdef"

Dim result As Boolean = a.Any(AddressOf x.Contains)