Написать программу Перестановочный шифр с ключевым словом

Function MyEncode$(txt$, key$)
    Dim i&, j&, n&, m&, l&, s1$, s2$
    n = Len(key) 'длина ключа
    If n = 0 Then Exit Function 'если ключ нулевой длины, то выходим из функции
    l = Len(txt)
    m = -Int(-l / n)
    
    ReDim nKeys&(1 To n)
    For i = 1 To n 'определяем последовательность столбцов по ключу
        s1 = Mid$(key, i, 1)
        For j = 1 To n
            s2 = Mid$(key, j, 1)
            If s1 > s2 Or (s1 = s2 And j <= i) Then nKeys(i) = nKeys(i) + 1
    Next j, i
    
    ReDim out$(1 To n * m)
    For i = 1 To Len(txt) 'шифруем строку
        out(nKeys((i - 1) Mod n + 1) * m + (i - 1) \ n - m + 1) = Mid(txt, i, 1)
    Next i
    MyEncode = Join(out, "")
End Function
 
Function MyDecode$(txt$, key$)
    Dim i&, j&, d&, k&, n&, m&, l&, nTmp&, sTmp$, outTxt$
    n = Len(key) 'длина ключа
    If n = 0 Then Exit Function 'если ключ нулевой длины, то выходим из функции
    l = Len(txt)
    m = -Int(-l / n)
    d = l Mod n
 
    ReDim nKeys&(1 To n), sKeys(1 To n)
    For i = 1 To n 'определяем последовательность столбцов по ключу
        nKeys(i) = i
        sKeys(i) = Mid$(key, i, 1)
        For j = 1 To i - 1
            If sKeys(i) < sKeys(j) Then
                sTmp = sKeys(i): sKeys(i) = sKeys(j): sKeys(j) = sTmp
                nTmp = nKeys(i): nKeys(i) = nKeys(j): nKeys(j) = nTmp
            End If
    Next j, i
    
    ReDim out$(1 To n, 1 To m)
    For i = 1 To n 'дешифруем строку
        For j = 1 To m + (nKeys(i) > d And d > 0)
            k = k + 1
            out(nKeys(i), j) = Mid$(txt, k, 1)
    Next j, i
    For j = 1 To m
        For i = 1 To n
            outTxt = outTxt & out(i, j)
    Next i, j
    MyDecode = outTxt
End Function

For i = 1 To Len(txt) 'шифруем строку
out(nKeys((i - 1) Mod n + 1) * m + (i - 1) \ n - m + 1) = Mid(txt, i, 1)
 Next i
MyEncode = Join(out, "")