Изменить программный код шифра замены

Private n As Long
'исходный алфавит
Const АБВ As String = "abcdefghijklmnopqrstuvwxyz"
'новый алфавит
Const НовАБВ As String = "labourcdefghijkmnpqstvwxyz"
Private Sub AnotherCipher()
Dim str As String, strT As String, strR As String
'строка которую будем зашифровывать
str = "Simple replacement is the one of the most ancient ciphers"
' переход к нижнему регистру
str = LCase(str)
'печать в окно Immediate
Debug.Print str
' шифровка
Decode str, strR, АБВ, НовАБВ
Debug.Print strR
'расшифровка
Decode strR, strT, НовАБВ, АБВ
Debug.Print strT
End Sub
Private Sub Decode(str, STRS, Oldkey, NewKey)
Dim n As Long, i As Long
Dim tmp As String
'определяем количество символов исходной строки
n = Len(str)
'вводим преобразованную строку, состоящую из n пробелов
STRS = Space(n)
For i = 1 To n
'выделяем один символ исходной строки
tmp = Mid(str, i, 1)
'определяем место символа исходной строки в исходном алфавите
k = InStr(1, Oldkey, tmp)
If k = 0 Then
'если в исходном алфавите такого символа нет
'то переносим его в новую строку не изменяя
Mid(STRS, i, 1) = tmp
Else
'заменяем соответствующий пробел на символ нового алфавита
Mid(STRS, i, 1) = Mid(NewKey, k, 1)
End If
Next i
End Sub