Макрос для преобразования специальных символов в буквенно-цифровые

Question

Я пишу сценарий VB для преобразования букв и цифр в специальные символы и наоборот. Сценарий работал нормально, когда я пытался преобразовать значения Alpha Numeri c в специальные символы, но он просто возвращает 'X', когда я пытаюсь преобразовать специальные символы в Alpha Numeri c. Я не уверен почему. Я вставил код ниже. Любая помощь приветствуется.

fnd = Array("~","\",">","!","@","#")
rplc = Array("A", "B", "C","1","2","3")
For x = LBound(fnd) To UBound(fnd)
    'Loop through each worksheet in ActiveWorkbook
    For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fnd(x), Replacement:=rplc(x), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
        SearchFormat:=False, ReplaceFormat:=False
    Next sht  
Next x

Answer 1

Существовали определенные персонажи, которым требовался экранирующий символ перед ними. Поэтому я заменил

"~", "*", "?"

на

"~~", "~*", "~?"

И это сработало. Спасибо за помощь.