
ReplaceLast – Replace the last occurrence of a substring
‘ Replace the last occurrence of a stringFunction ReplaceLast(Expression As String, Find As String, ReplaceStr As String, _ Optional Compare As VbCompareMethod) As String Dim i As Long i = InStrRev(Expression, Find, , Compare) If i Then ‘ the search string is there ‘ note that the Replace function trims