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

Формулировка задачи:

Здравствуйте! Сторонняя программа записывает информацию в txt файл, как можно сделать, что как только Vb обнаруживает изменения в тхт , он читает информацию из файла и делает расчеты и записывает ее в другой тхт файл. Я могу сделать через таймер, что он будет все время открывать тхт файл, но ведь это лишняя нагрузка? Ведь каждые 100 млсек будет открываться файл

Решение задачи: «Оптимальный мониторинг изменения файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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