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

' If INCLUDE is True or is omitted, return the first occurrence of a character
' in a group
' or zero 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.

Function InstrTbl(ByVal Start As Long, Source As String, Table As String, _
  Optional Include As Boolean = True, Optional CompareMethod As _
  VbCompareMethod = vbBinaryCompare) As Long
  Dim i As Long
  For i = Start To Len(Source)
    If InStr(1, Table, Mid$(Source, i, 1), CompareMethod) > 0 Xor Not _
      Include Then
      InstrTbl = i
      Exit Function
    End If
  Next
End Function