Шифровка\расшифровка: каждое расшифрованное слово записывать в отдельный файл

Dim k, l, ksh As Double
Dim r, r1, r2 As String
 
Private Sub cmd_cod_Click()
Dim d As String
Dim p2 As Byte
Dim p1 As Byte
Dim fso ' объявляем переменую fso – экземпляр FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
 
a = ""
If ksh = -1 Then
     MsgBox ("Операция не выполнена. " + Chr(13) + " Необходимо выбрать ключ ")
End If
 
idf5 = FreeFile
 
Open r1 For Binary As idf5
d = ""
pos = 1
idf4 = FreeFile
Open r For Binary As idf4
Get #idf4, 1, p1
Do While Not EOF(idf4)
    pos = pos + 1
    If p1 + ksh <= 255 Then
        p2 = CByte(p1 + ksh)
            Else
        p2 = CByte((p1 + ksh) Mod 256)
    End If
   d = d + Chr(p2)               ' формирование строки зашифрованного текста
    Get #idf4, pos, p1           ' чтение следующего байта
 Loop
Put #idf5, , d ' запись зашифрованного текста в файл
 
Close idf5
Close idf4
 
End Sub
 
Private Sub cmd_exit_Click()
Unload Me
End Sub
 
Private Sub cmd_row_Click()
' добавление строки
ms1.AddItem ms1.Rows + 1
entery_row
clean
End Sub
 
Private Sub cmd_decod_Click()
Dim d As String
Dim p2 As Byte
Dim p1 As Byte
idf5 = FreeFile
Open r2 For Binary As idf5
d = ""
ksh = 256 - ksh
' записывается расшифрованный текст
pos = 1
idf4 = FreeFile
Open r1 For Binary As idf4
Get #idf4, 1, p1          ' из исходного файла читается  первый бит
Do While Not EOF(idf4)
    pos = pos + 1
    If p1 + ksh <= 255 Then    ' нет переполнения
        p2 = CByte(p1 + ksh)
        Else
        p2 = CByte((p1 + ksh) Mod 256)
    End If
   d = d + Chr(p2)               ' формирование строки зашифрованного текста
    Get #idf4, pos, p1           ' чтение следующего байта
 Loop
Put #idf5, , d                      ' запись зашифрованного текста в файл
Close idf5
Close idf4
End Sub
 
Private Sub cms_gen_Click()
'кнопка генерировать
clean
gen_cmd
End Sub
Private Sub Dir1_Change()
     File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
     Dir1.Path = Drive1.Drive
End Sub
 
Private Sub File1_Click()
Dim fileno, Counter, j As Integer
Dim getv() As String
fileno = FreeFile
Counter = 0
r = Dir1.Path & "\" & File1.FileName
r1 = Dir1.Path & "\текст1.txt"
r2 = Dir1.Path & "\текст2.txt"
Open r For Input As fileno
Do Until EOF(fileno)
Counter = Counter + 1
ReDim Preserve getv(Counter)
Line Input #fileno, getv(Counter)
Loop
Close fileno
For j = 0 To UBound(getv)
txt_box.Text = getv(j)
Next
lbl_date.Caption = FileDateTime(r)
End Sub
 
Private Sub Form_Load()
Form1.Caption = "Лабораторная работа №5"
ksh = -1
'изменение ширины 1 столбца
ms1.ColWidth(0) = 200
'заполнение fixed полей
For i = 1 To 4
ms1.TextArray(i) = i
Next
For i = 1 To 4
ms1.TextArray(5 * i) = i
Next
'заполнение массива числами
gen_cmd
End Sub
 
Public Sub ms1_Click()
Dim x As Double
'выбор ячейки
k = ms1.Row
l = ms1.Col
clean
gen_click
ksh = GetCellIndex(ms1, ms1.Col, ms1.Row)
txt_key.Text = ms1.TextArray(ksh)
End Sub
 
Function GetCellIndex(ms1 As MSFlexGrid, k As Integer, l As Integer)
GetCellIndex = l * ms1.Cols + k
End Function
 
Private Sub gen_cmd()
'генерировать
For i = 6 To ((ms1.Rows * ms1.Cols) - 1)
If i Mod 5 = 0 Then
Else: ms1.TextArray(i) = Int(999 * Rnd)
End If
Next
End Sub
 
Private Sub gen_click()
'заливка выбираемой ячейки
ms1.CellBackColor = RGB(255, 0, 0)
i = ms1.Row
j = ms1.Col
'заливка столбца
ms1.Row = 0
ms1.Col = j
ms1.CellBackColor = RGB(255, 0, 255)
'заливка строки
ms1.Row = i
ms1.Col = 0
ms1.CellBackColor = RGB(255, 0, 255)
'возвращение фокуса выбираемой ячейки
ms1.Row = i
ms1.Col = j
End Sub
 
Public Sub clean()
'очистка цвета
For i = 0 To ms1.Rows - 1
For j = 0 To 4
ms1.Row = i
ms1.Col = j
ms1.CellBackColor = RGB(255, 255, 255)
Next
Next
'возвращение фокуса
 ms1.Row = k
 ms1.Col = l
 
End Sub
 
Public Sub entery_row()
'генерация чисел в новой строке
For i = ((ms1.Rows * ms1.Cols) - 5) To ((ms1.Rows * ms1.Cols) - 1)
If i Mod 5 = 0 Then
ms1.TextArray(i) = ms1.Rows - 1
Else: ms1.TextArray(i) = Int(999 * Rnd)
End If
Next
End Sub