yo añadíFileSystemWatcher en Form1_Load así:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ....................
        Dim watcher As New FileSystemWatcher()
        'For watching current directory
        watcher.Path = "/"
        'For watching status.txt for any changes
        watcher.Filter = "status.txt"
        watcher.NotifyFilter = NotifyFilters.LastWrite
        watcher.EnableRaisingEvents = True
        AddHandler watcher.Changed, AddressOf OnChanged
End Sub

Tengo una función OnChanged que es un simple cuadro de mensaje. Aún así, cuando cambio elstatus.txt archivo, no se muestra ningún cuadro de mensaje.