ReplaceChar

Public Function replacechar(TotalString As String, _
OldChar As String, NewChar As String)
Dim i As Integer
i = 0
Dim p1, p2, p3, p4 As String
p1 = TotalString
i = InStr(p1, OldChar)
Do Until i = 0
i = 0
If Len(OldChar) > 1 Then
p2 = Left(p1, InStr(p1, Len(OldChar) - _
Len(OldChar))) & NewChar
Else:
p2 = Left(p1, InStr(p1, OldChar) - 1) & NewChar
End If
p3 = Right(p1, Len(p1) - InStr(p1, OldChar))
p1 = p2 & p3
i = InStr(p1, OldChar)
Loop
replacechar = p1
End Function