1:  <Extension()> _
   2:  Public Function EqualsAny(ByVal s As String, ByVal items As String, _
   3:                                Optional ByVal sep As Char = ","c, _
   4:                                Optional ByVal Comparison As StringComparison = CurrentCultureIgnoreCase) As Boolean
   5:      Dim itemz As List(Of String) = items.Split(sep).ToList
   6:      Dim idx = (From x In itemz Where s.Equals(x, Comparison) Select x).ToList
   7:      EqualsAny = (idx.Count > 0)
   8:      itemz = Nothing : idx = Nothing
   9:  End Function
  10:   
  11:  <Extension()> _
  12:  Public Function StartsWithAny(ByVal s As String, ByVal items As String, _
  13:                                Optional ByVal sep As Char = ","c, _
  14:                                Optional ByVal Comparison As StringComparison = CurrentCultureIgnoreCase) As Boolean
  15:      Dim itemz As List(Of String) = items.Split(sep).ToList
  16:      Dim idx = (From x In itemz Where s.StartsWith(x, Comparison) Select x).ToList
  17:      StartsWithAny = (idx.Count > 0)
  18:      itemz = Nothing : idx = Nothing
  19:  End Function
  20:   
  21:  <Extension()> _
  22:  Public Function EndsWithAny(ByVal s As String, ByVal items As String, _
  23:                                Optional ByVal sep As Char = ","c, _
  24:                                Optional ByVal Comparison As StringComparison = CurrentCultureIgnoreCase) As Boolean
  25:      Dim itemz As List(Of String) = items.Split(sep).ToList
  26:      Dim idx = (From x In itemz Where s.EndsWith(x, Comparison) Select x).ToList
  27:      EndsWithAny = (idx.Count > 0)
  28:      itemz = Nothing : idx = Nothing
  29:  End Function
  30:   
  31: