Snippet Library

none

Function InStrRev(ByVal Text As String, Search As String, _
    Optional ByVal Start As Long = -1, Optional ByVal CompareMethod As _
    VbCompareMethod = vbBinaryCompare) As Long
    Dim Index As Long
    ' reverse the source strings,
    ' so that we can use regular InStr
    Text = StrReverse(Text)
    Search = StrReverse(Search)
    ' we must "reverse" Start too
    If Start < 0 Then
        Start = 1
    Else
        Start = Len(Text) + 1 - Start
    End If
    
    Index = InStr(Start, Text, Search, CompareMethod)
    If Index Then
        ' adjust the result
        InStrRev = Len(Text) - Index - Len(Search) + 2
    End If
End Function;