Textdatei auf Veränderung überwachen und importieren

Kann man eine Textdatei automatisch importieren lassen,
sobald sich deren Inhalt ändert ?

Dieses Beispiel überwacht alle 2 Sekunden die Datei
"c:\temp\test.txt" auf Veränderung (überwacht wird
die Zeit der letzten Speicherung).
Ändert sich diese Zeit, wird sie ab Zeile 2 importiert)

Dim MerkZeit
Const Dateiname = "c:\temp\test.txt"
Sub Start()
    Application.OnTime Now + TimeValue("00:00:02"), "FileCheck"
End Sub
Sub Stopp()
    Application.OnTime Now + TimeValue("00:00:02"), _
      Procedure:="FileCheck", Schedule:=False
End Sub
Sub FileCheck()
    Zeit = Format(FileDateTime(Dateiname), "hh:mm:ss")
    If Zeit <> MerkZeit Then
        MerkZeit = Zeit
        Call Import(Zeit)
    End If
    Call Start
End Sub
Sub Import(Zeit)
    Open Dateiname For Input As #1
    Cells(1, 1) = "Letzter Import: " & Zeit
    Zeile = 2
    Do While Not EOF(1)
        Line Input #1, s
        Cells(Zeile, 1) = s
        Zeile = Zeile + 1
    Loop
    Close #1
End Sub