' returns the last occurrence of a substring' The syntax is similar to InStrFunction InstrLast(ByVal Start As Long, Source As String, search As String, _    Optional CompareMethod As VbCompareMethod = vbBinaryCompare) As Long    Do        ' search the next occurrence        Start = InStr(Start, Source, search, CompareMethod)        If Start = 0 Then Exit Do        ' we found one        InstrLast = Start        Start = Start + 1    LoopEnd Function