Function Replace(str, replacechar, withchar)
    Dim i
    For i = 1 To Len(str)
        If Mid(str, i, 1) = replacechar Then
            Replace = Replace & withchar
        Else
            Replace = Replace & Mid(str, i, 1)
        End If
    Next
End Function