Выполнять периодический поиск текста в файле

Option Explicit
Dim Z
Dim LL
 
Private Sub Form_Load()
On Error Resume Next
Kill App.Path & "\1.txt"
End Sub
 
Private Sub Комманда1_Click()
Часы1.Enabled = True
End Sub
 
Private Sub Комманда2_Click()
Часы1.Enabled = False
End Sub
 
Private Sub Комманда3_Click()
Dim MS() As String
   Dim File As String, CF As String
   Dim i As Integer
   File = App.Path & "\1.txt"
   Open File For Binary As #1
   If LL = FileLen(File) Then Close #1: Exit Sub
   LL = FileLen(File)
      CF = Input(FileLen(File), 1)
   Close #1
   MS = Split(CF, "Запись № ")
   
 
 MS = Split(MS(UBound(MS)), vbNewLine)
 Метка2.Caption = "Запись № " & MS(0)
For i = 1 To UBound(MS) - 1
Метка1(i - 1).Caption = MS(i)
Next i
 
End Sub
 
Private Sub Комманда4_Click()
Часы2.Enabled = True
End Sub
Private Sub Комманда5_Click()
Часы2.Enabled = False
End Sub
 
Private Sub Часы1_Timer()
Z = Z + 1
Open App.Path & "\1.txt" For Append As 1
Print #1, "Запись № " & " " & Z
Print #1, "Важная строка  № " & " " & Z & 1
Print #1, "Важная строка  № " & " " & Z & 2
Print #1, "Важная строка  № " & " " & Z & 3
Close 1
End Sub
 
Private Sub Часы2_Timer()
Комманда3_Click
End Sub

mass(0)="День №123"
mass(1)="ФИО: Иванов Иван Иванович дата рожения: 1.01.1981 оклад: 12345"
mass(2)="ФИО: Петров Петр Петрович дата рожения: 2.02.1982 оклад: 34568"
mass(3)=""
mass(4)=""
mass(5)="День №124"
mass(6)="ФИО: Хренова Гадя Петровна дата рожения: 5.05.1985, оклад: 24348"
mass(7)="ФИО: Ларин Игорь Николаевич дата рожения: 6.06.1986, оклад: 24157"
mass(8)=""

mass(0)="День №123"
mass(1)="ФИО: Иванов Иван Иванович"
mass(2)="дата рожения: 1"
mass(3)="01"
mass(4)="1981"
mass(5)="оклад: 12"
mass(6)="345"

Dim fs As FileStream = New FileStream(strFileName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
            Dim fr As StreamReader = New StreamReader(fs)
            Dim mass() As String
 
 
            mass = fr.ReadToEnd.Split(Chr(10) & Chr(13))
            fr.Close()
            fs.Close()