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.