create a function in Module
Function FindReplace(FindString As String, Substitute As String, StringExpr As String) As String
Dim n_Pos As Integer
While InStr(StringExpr, FindString)
n_Pos = InStr(StringExpr, FindString)
StringExpr = Mid(StringExpr, 1...