LastSearch

Function LastInStr(txt As String, pattern As String)
Dim pos1 As Integer
Dim pos2 As Integer
pos2 = 0
Do
pos1 = pos2
pos2 = InStr(pos1 + 1, txt, pattern)
Loop While pos2 > 0
LastInStr = pos1
End Function