Расшифровка текстового файла

Option Explicit
   Dim File As String, CF As String
 
Private Sub Комманда2_Click()
Dim M() As String
Dim Q()
Dim J
Dim S(30, 10)
   File = App.Path & "\табл_ключ.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
      CF = Trim(CF)
Do While InStr(1, CF, "  ") > 0
CF = Replace(CF, "  ", " ")
Loop
 
M = Split(CF, vbNewLine)
'- в каждой нечетной строке выбираются только 2 нечетных номера чисел (первое и пятое)
ReDim Q(UBound(M, 1) * 2)
Dim R, C
For R = 0 To UBound(M, 1) - 2 Step 2
J = J + 1
Q(J) = Split(Trim(M(R)), " ")(0)
J = J + 1
Q(J) = Split(Trim(M(R)), " ")(4)
Next R
 
'разместить варианты ключей в массиве размером
'30 строк и 10 столбцов(построчно)
    J = 0
For R = 1 To 30
    For C = 1 To 10
        J = J + 1
        S(R, C) = Q(J)
Next C, R
 
'- найти в четных столбцах строк с 10 по 30 минимальное число-это и будет ключ шифра
Dim MIN
MIN = S(10, 2)
For R = 10 To 30
    For C = 2 To 6 Step 2
  If MIN > S(R, C) Then MIN = S(R, C)
        S(R, C) = Q(J)
Next C, R
MsgBox MIN, 64, "Пароль"
End Sub