Замена символов ячейки по маске

Sub t()
    s = [f1].Text
    For i = 1 To Len(s)
        ActiveCell.Offset(0, i - 1).Value = Mid(s, i, 1)
    Next
End Sub

Sub MaskInit() 'генерация маски
Dim r As Long
Randomize
For r = 32 To 255
  Cells(r - 30, 1) = Chr$(r)
  Cells(r - 30, 2) = Chr$(r)
  Cells(r - 30, 3) = Rnd
Next r
Columns("B:C").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Columns("C").ClearContents
End Sub
 
Function CoDec(s As String, Optional b_Dec As Boolean) As String
Dim i As Long, rn As Range, c As String
For i = 1 To Len(s)
  c = Mid$(s, i, 1)
  If c = "*" Or c = "?" Or c = "~" Then c = "~" & c
  Set rn = Columns(-b_Dec + 1).Find(c, MatchCase:=True)
  If Not rn Is Nothing Then
    CoDec = CoDec & rn.Offset(, 1 + b_Dec * 2)
  Else
    CoDec = CoDec & Mid$(s, i, 1)
  End If
Next i
End Function
 
Sub CoDec_Example()
Dim s As String
s = "*Замена символов ~ ячейки по маске?"
s = CoDec(s) 'шифруем
Debug.Print s
s = CoDec(s, True) 'расшифровываем
Debug.Print s
End Sub

Function CoDec(s As String, Optional b_Dec As Boolean) As String
's - обрабатываемая строка
'b_Dec - направление шифрования (False(по умолчанию)-шифруем, True-расшифровываем)

Private Sub CommandButton1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Cells(5, 5) 
b = CoDec(a) 
Cells(6, 5) = b
'Debug.Print b
c = CoDec(a, True) 
Cells(7, 5) = c
Debug.Print c
End Sub