' 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 IfEnd Function