Binaryworld - InstrTblRev - The last occurrence of a char in a table ... [ VB -> String ]

' If INCLUDE is True or is omitted, return the last 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 last occurrence of the character in SOURCE
' that does not appear in TABLE.
' If START = -1, the search begins from the end of the string.

Function InstrTblRev(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
  If Start < 0 Or Start > Len(Source) Then Start = Len(Source)
  For i = Start To 1 Step -1
    If InStr(1, Table, Mid$(Source, i, 1), CompareMethod) > 0 Xor Not _
      Include Then
      InstrTblRev = i
      Exit Function
    End If
  Next
End Function