user defined macro to replace certain characters in a string based on user input

All,

Declared... I am not a VBA programmer.

Assume you want to replace a list of characters with another list of characters in a particular cell with a user defined function. For example... "!@#$%" and "* ()_" ... you want each instance of "!" to be replaced with "*", each instance of "@" with space, "#" with "(" and so on.

Something like this for the active cell:

function creplace()
    prompt user for from characters and to characters
    for x=1 to numcharacters
          cellvalue =  Replace(cellvalue, from_character, to_character)
    next x
end function

In other words, could somebody have the function invoke a dialogue the user for the "from characters" and the "to characters" so that this is truly dynamic.

I ask because I have looked and not found this to my surprise. I was told ASAP utilities had it, but I installed it and could not find it.

dim st1 as string
dim st2 as string
st1 = inputbox("Find:","Title","Default")
st2 = inputbox("Change to:","Title","Default")
CELLVALUE = Replace(CELLVALUE,st1,st2)