ReplaceLast – Replace the last occurrence of a substring

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 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


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist