Public Function InstrRev(ByVal SourceString As String, ByVal FindString As String, Optional ByVal Start As Long = -1, Optional ByVal Comparemode As Long = 0) As Long
Searches the SourceString backwards from Start for a FindString and returns the found position (1-based) or 0 (not found).
SendDebug(InstrRev("Hello world", "O", -1, vbTextCompare)) 'Prints the last occurrance of 'O', 8
SendDebug(InstrRev("Hello world", "O", -1, vbBinaryCompare)) 'Prints the last occurrance of 'O' (case sensitive, not found), 0