Подскажите как в этот код добавить строки в которых можно буквы сообщения на англ заменить их порядковым номером

Private n As Long 
'исходный алфавит
Const АБВ As String = "abcdefghijklmnopqrstuvwxyz" 
'новый алфавит
Const НовАБВ As String = "яюэьыъщшчцхфутсрпонмлкйизжедгвба" 
Private Sub AnotherCipher()
Dim STR As String, strT As String, strR As String 
‘строка которую будем зашифровывать
STR = "Простая замена один из самых древних шифров"
 ‘ переход к нижнему регистру
STR = LCase(STR)
‘печать в окно Immediate 
Debug.Print STR
' шифровка
 
Decode STR, strR, АБВ, НовАБВ 
Debug.Print strR
'расшифровка
Decode strR, strT, НовАБВ, АБВ 
Debug.Print strT
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

Private n As Long
'исходный алфавит
Const АБВ As String = "abcdefghijklmnopqrstuvwxyz"
'новый алфавит
Const НовАБВ As String = "яюэьыъщшчцхфутсрпонмлкйизжедгвба"
 
Private Sub AnotherCipher()
    Dim STR As String, strT As String, strR As String
    'строка которую будем зашифровывать
    STR = "Простая замена один из самых древних шифров"
    ' переход к нижнему регистру
    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) = CStr(Asc(Mid(STR, i, 1)) - 96)
        End If
    Next i
End Sub

Sub kkhjlyuyh()
    Dim s1$, s2$
    s1 = "jyuhgyWEeRRFX"
    s2 = charToABNum(s1)
End Sub
Function charToABNum(s1 As String) As String
    Dim s2$, i&, sn$, ln&, crsr&
    s1 = UCase(s1)
    s2 = String$(1000, vbNullChar)
    crsr = 1
    For i = 1 To Len(UCase(s1))
        sn$ = Asc(Mid$(s1, i, 1)) - 64
        ln = Len(sn)
        Mid$(s2, crsr, ln) = sn
        crsr = crsr + ln
    Next
    charToABNum = Mid$(s2, 1, crsr - 1)
End Function

Option Explicit
Const АБВ As String = "abcdefghijklmnopqrstuvwxyz"
Function Cod(Stroka As String) As String
  Dim i%
  For i = 1 To Len(Stroka)
    If InStr(1, АБВ, Mid(Stroka, i, 1)) > 0 Then
      Cod = Cod & InStr(1, АБВ, Mid(Stroka, i, 1))
      'Cod = Cod & InStr(1, АБВ, Mid(Stroka, i, 1)) + 9 'К порядковому номеру прибавляем 9
      'Cod = Cod & IIf(InStr(1, АБВ, Mid(Stroka, i, 1)) > 9, _
      'InStr(1, АБВ, Mid(Stroka, i, 1)), 0 & InStr(1, АБВ, Mid(Stroka, i, 1))) 'Номера в двухзначном виде
    Else
      Cod = Cod & Mid(Stroka, i, 1)
    End If
  Next
End Function