Реализовать шифр одиночной перестановки

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Const DefText As String = "Неясное становится еще более непонятным" 'текст по умолчанию 
        Dim InText As String 'текст который надо зашифровать 
        Dim LenText As Integer 'длина этого текста 
        Dim OutText As String 'здесь будет зашифрованный текст 
        Dim Sim As String
        Dim i As Byte
        Dim xi As Byte ' 
        Dim XMax As Byte
        Dim ts As String
        Dim sc As Byte
        InText = InputBox("Введите сообщение", "Шифрование", DefText) 'ввод текста 
        If Len(InText) = 0 Then 'выход если нет текста 
            Exit Sub
        End If
        InText = UCase(InText) 'делаем все символы заглавными 
        ts = ""
        For i = 1 To Len(InText)
            Sim = Mid(InText, i, 1) ' 
            If Sim <> " " Then 'удаляем 
                ts = ts & Sim 'пробелы 
            End If ' 
        Next i
        InText = ts
        LenText = Len(InText) 'высчитываем новую длину
        XMax = 0
1:      XMax = InputBox("Введите ключ", "Шифрование", 0) 'ввод текста
        If Val(XMax) = 0 Then
            MsgBox("Введите ключ")
            GoTo 1
        End If
        If Val(XMax) = 1 Then
            MsgBox(DefText)
            Exit Sub
        End If
        sc = 0 'счетчик символов для вставки пробела 
        For i = 1 To XMax
            xi = i
incr:       Sim = Mid(InText, xi, 1)
            OutText = OutText & Sim
            sc = sc + 1
            If sc = 5 Then 'вставляем 
                OutText = OutText & " " 'разделительный 
                sc = 0 'пробел 
            End If 'групп 
            xi = xi + XMax
            If xi <= LenText Then 'если еще 
                GoTo incr 'не все символы 
            End If 'перебраны то повтор 
        Next i
        MsgBox(OutText) 'вывод текста 
    End Sub

Public Class Form2
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim s As String = "Определены границы земель государственной и коммунальной формы собственности на территорию более 55 тыс. га"
        Dim n As Integer = 11 '4 '6 '5 'число строк
        Dim sOut As String = codingStr(s, n) 'кодируем
        Label1.Text = sOut
        sOut = uncodingStr(sOut, n) 'декодируем
        Label2.Text = sOut
    End Sub
    Private Function codingStr(ByVal s As String, ByVal ns As Integer) As String
        Dim ss() As Char = s.ToCharArray
        Dim k As Integer = ss.Count
        Dim ms As Integer = k \ ns + 1
        If ns < 3 Then
            MsgBox("Нужно увеличить число строк!")
            Return ""
        End If
        If ms < 3 Then
            MsgBox("Нужно уменьшить число строк!")
            Return ""
        End If
        ReDim Preserve ss(ns * ms - 1)
        For Each ch As Char In ss
            If ch = Chr(0) Then
                Dim jj As Integer = Array.IndexOf(ss, ch)
                ss(jj) = Chr(32)
            End If
        Next
        Dim shr(ss.Count - 1) As Char
        Dim t As Integer = -1
        For i = 0 To ns - 1
            For j = 0 To ms - 1
                t += 1
                shr(t) = ss(i + ns * j)
            Next
        Next
        Return String.Join("", shr)
    End Function
    Private Function uncodingStr(ByVal s As String, ByVal ns As Integer) As String
        Dim ss() As Char = s.ToCharArray
        Dim k As Integer = ss.Count
        Dim ms As Integer = k \ ns
        Dim shr(ss.Count - 1) As Char
        Dim t As Integer = -1
        For j = 0 To ms - 1
            For i = 0 To ns - 1
                t += 1
                shr(t) = ss(j + ms * i)
            Next
        Next
        Return RTrim(String.Join("", shr))
    End Function
End Class