' 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 the first part ' of the string, so we must restore it using Left$ ReplaceLast = Left$(Expression, i - 1) & Replace(Expression, Find, _ ReplaceStr, i, 1, Compare) Else ' the search string isn't there ReplaceLast = Expression End IfEnd Function


The Role of Call Data: How Call Tracking Can Improve Customer Experience
Who would argue that experiences reign supreme? But not just any experiences — the ones that occur when customers interact with your business. It’s these real-life interactions that have the