Изменение файла txt по действию Label.Click

'Форма:
Private Sub Form_Load()
Cvet 0, 3
End Sub
 
'Модуль:
Sub Cvet(A As Integer, B As Integer) 'Определение цвета
Data1 = "С:" & B & ".txt"
Open Data1 For Input As #1
Do Until A >= 25
A = A + 1
Line Input #1, Data2
If Data2 = 0 Then
    Form1.Label1(A - 1).ForeColor = &HFF00&
Else
    Form1.Label1(A - 1).ForeColor = &HFF&
End If
Loop
Close #1
End Sub

Sub Perezapis(A As Integer, B As Integer, C As Integer) 'Перезапись данных в файле
Data1 = "D:\Avto" & B & ".txt"
Open Data1 For Input As #1
Dim s As String
s = Input(LOF(1), 1)
Dim rows() As String
rows = Split(s, vbCrLf)
Close #1
 
If s = "0" Then s = "1" Else s = "0"
rows(C) = s
 
Open Data1 For Output As #2
Print #2, Join(rows, vbCrLf)
Close #2
End Sub

Dim redTXT() As String 'Объявляем динамический массив
 
Function updateTXT(i As Integer)
Open "C:\Users\Валерий\Desktop\5.txt" For Input As #1      'Открываем выбранный файл для чтения
k = 0 'Переменная для подсчета количества строк
    Do While Not EOF(1) 'Читаем файл до конца
            k = k + 1
            ReDim Preserve redTXT(k) 'Увеличиваем размерность динамического массива с сохранением внесенных данных
            Line Input #1, redTXT(k) ' Записываем строку в массив
    Loop
               
Close #1
 
Open "C:\Users\Валерий\Desktop\5.txt" For Output As #2      'Открываем выбранный файл для Перезаписи
For j = 1 To k
If j <> i Then Print #2, redTXT(j) Else Print #2, 1 - redTXT(j)
'Проверяем индекс Label, если индекс переданнога Labela не равен номеру строки, оставляем строку без изменения. Если
'индекс переданнога Labela равен номеру строки изменяем значение в строке 0 на 1, 1 на 0
Next j
            
Close #2
 
End Function
 
Private Sub Label1_Click(Index As Integer)
L = updateTXT(Index + 1)
Label1(Index).Caption = 1 - Label1(Index).Caption
End Sub

Sub Perezapis(A As Integer, B As Integer, C As Integer) 'Перезапись данных в файле
 
Dim s as integer, s1% , n%
dim priznak%(24)
 
Data1 = "D:\Avto" & B & ".txt"
Open Data1 For Input As #1
 
for s%=0 to 24
  input #1,n%
  if n%=1 then 
    priznak%(s%)=0
  else
     priznak%(s%)=1
  endif
next
close 
Open Data1 For Output As #2
 
for s%=0 to 24
  Print #2, priznak%(s%)
next
Close #2
End Sub

s%=0
do until eof(1)
     input #1,n%
  if n%=1 then 
    priznak%(s%)=0
  else
     priznak%(s%)=1
  endif
  s%=s%+1
loop
close 
Open Data1 For Output As #2
 
for s1%=0 to s%-1
  Print #2, priznak%(s1%)
next
Close #2