Untitled

Dim searchList As List(Of String) = New List(Of String)() From {"dispecer", "operator", "idm", "Dispecerat", "test", "Dispo", "Diszpecser", "TESZT", "Cronos", "Maghiar", "CFR", "MAV", "Tura", "Rcr", "Port", "rc"}
        Dim searchListClients = UsersBLL.aduListaAppClients(cUser.U_ID)
        Dim searchString As String = Username
        Dim found As Boolean = False

        Dim regex As Regex
        For Each item As String In searchList
            Dim regexPattern As String = String.Format("{0}", Regex.Escape(item))
            regex = New Regex(regexPattern, RegexOptions.IgnoreCase)
            If regex.IsMatch(searchString) Then
                found = True
                Exit For  ' Exit the loop if a match is found
            End If
        Next