Оптимальный мониторинг изменения файла

Option Explicit
 
Private Sub CheckDateTime()
    Dim d1 As Date: Static d2 As Date
    On Error GoTo m
    d1 = FileDateTime(App.Path & "\" & CStr(Text1.Text))  'дата модификации файла
    If d1 <> d2 Then Call MsgBox("Файл изменился.")
    d2 = d1
m:
End Sub
 
Private Sub Timer1_Timer()
    CheckDateTime
End Sub

Option Explicit
 
Private Sub CheckDateTime()
    Dim d1 As Date, s As String
    Static d2 As Date
    s = App.Path & "\" & CStr(Text1.Text)
    On Error GoTo m
    d1 = FileDateTime(s)  'дата модификации файла
    If d1 <> d2 Then Call ReadFile(s)
    d2 = d1
m:
End Sub
 
Private Sub ReadFile(ByVal FileName As String)
    Dim s As String, FileName1 As String
    Dim ff As Integer:
    ff = FreeFile
    On Error Resume Next '
    Open FileName For Input As #ff
         s = Input(LOF(ff), ff) 'считываем файл
    Close #ff
    
    '''''
    Rem Тут рассчитываем
    MsgBox s '
    s = "Pезультат расчета"
    '''''''
    
    ff = FreeFile
    FileName1 = App.Path & "\" & "Output.txt"
    Open FileName1 For Output As #ff
         Print #ff, s 'пишем в файл
    Close #ff
End Sub
 
Private Sub Timer1_Timer()
    CheckDateTime
End Sub

 Open "C:\KLM\lotro\ras\arcosfinal.txt" For Output As #2   
    Write #2, angleA                                         
       Write #2, angleB
          Write #2, angleC
       Close #2

Sub Main()
Dim objWMI As Object, objCollection As Object, objEvent As Object
Dim strFile As String, intCount As Integer, blnFirstStart As Boolean
strFile = "D:\\test.txt"
If Len(Dir(Replace(strFile, "\\", "\"))) > 0 Then
    intCount = 0
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set objCollection = objWMI.ExecNotificationQuery _
        ("SELECT * FROM __InstanceModificationEvent WITHIN 3 WHERE " _
        & "Targetinstance ISA 'CIM_LogicalFile' AND " _
        & "TargetInstance.Name='" & strFile & "'")
    'MsgBox "Начали наблюдение.", vbInformation
    blnFirstStart = True
    Do
        Set objEvent = objCollection.NextEvent
        If blnFirstStart Then
            blnFirstStart = False
        Else
            intCount = intCount + 1
            MsgBox "Событие " & CStr(intCount) & "." & vbNewLine & _
                    "Вместо этого оператора должен быть код обработки файла.", vbInformation
            If intCount > 2 Then Exit Do
        End If
    Loop
    Set objEvent = Nothing: Set objCollection = Nothing: Set objWMI = Nothing
    'MsgBox "Закончили наблюдение.", vbInformation
Else
    MsgBox "Файл не найден.", vbCritical
End If
End Sub