Binaryworld - InstrTbl - Search a string for any character in a table ... [ VB.net -> String ]

' If INCLUDE is True or is omitted, return the first occurrence of a character
' in a group
' or -1 if SOURCE doesn't contain any character among those listed in TABLE.
' If INCLUDE is False, return the first occurrence of the character in SOURCE
' that does not appear in TABLE.
'
' string indices are zero-based
' TABLE can be in the form "A-Z"

Function InstrTbl(ByVal Start As Integer, ByVal Source As String, _
  ByVal Table As String, Optional ByVal Include As Boolean = True, _
  Optional ByVal CaseInsensitive As Boolean = False) As Integer
  ' create the regular expression
  Dim pattern As String
  If Include Then
    pattern = "[" & Table & "]"
  Else
    pattern = "[^" & Table & "]"
  End If
  ' prepare the correct regex option
  Dim options As Text.RegularExpressions.RegexOptions
  If CaseInsensitive Then
    options = Text.RegularExpressions.RegexOptions.IgnoreCase
  End If
  ' create the Regex object
  Dim re As New Text.RegularExpressions.Regex(pattern, options)

  ' find the match
  Dim ma As Text.RegularExpressions.Match = re.Match(Source, Start)
  ' return the found index, or -1
  If ma.Success Then
    Return ma.Index
  Else
    Return -1
  End If

End Function