Как регистрировать данные непрерывно до второго нажатия кнопки.

---

привет,
я хочу постоянно записывать данные в текстовый файл.
При первом нажатии кнопки должно начаться ведение журнала данных и запись данных в txt файл
при втором щелчке он должен остановить регистрацию данных.
как этого добиться
Заранее спасибо

Что я уже пробовал:

Private Sub Button3_Click (sender As Object, e As EventArgs) обрабатывает Button3.Щелчок
Приложение.Функция doevents()
bt_count3 = bt_count3 + 1
Если bt_count3 <= 1, то
v4klog.Именем = Дата И Время.Сейчас.Метод toString("ддммгггг") &ампер; "_" &усилителя; дата и время.Сейчас.Метод toString("Ччммсс") &ампер; "v4k.xls"
Если v4klog.ShowDialog() = Windows.Формы.свойство DialogResult.Тогда ладно
v4klogfile_name = v4klog.имя файла
nc1 = 0
nr1 = 2
V4kworkbook = xlapp2.Книги.Добавить(1)
V4kworksheet = V4kworkbook.Sheets("лист1")
V4kworksheet.Ячейки (1, 1) = " TR1"
V4kworksheet.Ячейки (1, 2) = " TR2"

file2_count = 0
Кнопка 3.Text = " стоп"
Кнопка 3.Цвет Текста = Цвет.Красный
enable_v4k = истина
Конец, Если
Конец, Если
Если bt_count3 >= 2, то
Кнопки button3.Включен = Ложь
Кнопка 3.Text = " START"
Кнопка 3.ForeColor = Цвет.Зеленый
bt_count3 = 0
Если enable_v4k = True, то
enable_v4k = ложь
v4ksave.Видимое = Истинное
lbv4ksave_status.Видимое = Истинное
Для k = от 3 до 4002
Приложение.Функция doevents()
V4kworksheet.Ячейки (1, k) = "C" & k-2
v4ksave. Value = k
Следующий
v4ksave.Видна = Ложь
Для j = от 1 до 10

lbv4ksave.Видимое = Истинное
задержка 1(100)
lbv4ksave.Видна = Ложь
задержка 1(100)
Следующий
lbv4ksave_status.Видна = Ложь
Кнопки button3.Включен = Истина
V4kworksheet.Диапазон ("A1:EWX1"). HorizontalAlignment = Microsoft.Офис.Взаимодействие.Превосходить.Константы.xlCenter
V4kworkbook.Сохранить как(v4klogfile_name)
V4kworkbook.Закрывать()
xlapp2.Бросить()
Конец, Если
Конец, Если
Конец Подводной Лодки

---