FindLast

Function 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
Loop
End Function