'Replace()
'
'Replaces any substring with any other substring.
Public Function Replace(ByRef originalString As String, ByRef textToReplace As String, _
ByRef replacementText As String)
Dim offset As Integer
If originalString = "" Then
Replace = ""
Else
offset = InStr(1, originalString, textToReplace, vbTextCompare)
If offset <= 0 Then
Replace = originalString
Else
Replace = Replace(Left(originalString, offset - 1), textToReplace, replacementText) & _
replacementText & _
Replace(Mid(originalString, offset + Len(textToReplace)), textToReplace, replacementText)
End If
End If
End Function