Public Sub sReplace(String1 As String, String2 As String, RepString As String)

Dim I As Integer
I = 1
Do
If (I > Len(String1)) Then Exit Do
I = InStr(I, String1, String2)
If I Then
String1 = Left$(String1, I - 1) + RepString + Mid$(String1, I + Len(String2)+1 )
I = I + 2
DoEvents
End If
Loop While I
End Sub