' A replacement for the InStrRev function under VB4 and VB5'' NOTE: uses the StrReverse functionFunction 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 IfEnd Function


Revolutionizing Search: A Glimpse Into Google’s Generative Experience
Google is revolutionizing the search experience as we know it with its latest generative experience. No longer will you be bound by the limitations of traditional keyword searching. Now, you