Replace only last occurrence of match in a string in VBA

Question

I have a string like this

\"C://Documents/TestUser/WWW/Help/Files/Move_Help.txt\"

and have to replace Move_Help.txt

Answer 1

Str = "C://Documents/TestUser/WWW/Help/Files/Move_Help.txt"

ValueCrnt = "Help" ValueNew = "Job"

Pos = InStrRev(Str, ValueCrnt)

If Pos > 0 Then Str = Mid(Str, 1, Pos - 1) & Replace(Str, ValueCrnt, ValueNew, Pos) End If

Wscript.Echo Str