VBA easy way to replace characters in a cell

[Stephen_IV]

I have a range of strings that contain different values in which I need to replace.
Is there an easy way to replace these characters:

"'", "2", "5", "@", "Q", "v", "b", "g", "v", "{" to 0
"%", "/", ">", "?", "N", "W", "]", "i", "u", "|" to 1

If I have
2?@55| then I need the output to be 00551
>116v742W then I need the output to be 11607401


Thanks in advance

 

[steve the fish]

This is confusing. If 5 needs to changed to 0 then why is 2?@55| output meant to be 00551? Anyway you not said where these are or where they need to go so heres a start:

Function ChangeChars(str As String)

Dim chars As String, replaceChars As String
Dim a As String, b As String, i As Integer

chars = "'25@Qvbgv{%/>?NW]iu|"
replaceChars = "00000000001111111111"

For i = 1 To Len(chars)
    a = Mid(chars, i, 1)
    b = Mid(replaceChars, i, 1)
    str = Replace(str, a, b)
Next

ChangeChars = str

End Function

 

[Stephen_IV]

Steve the Fish, Sorry you are spot on. I did make a mistake with the 5 you output is correct and I thank you for getting me moving on this. I appreciate you help!!!