Eu adicioneiFileSystemWatcher no Form1_Load assim:

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

Eu tenho uma função OnChanged que é uma simples MessageBox. Ainda assim, quando eu mudo ostatus.txt arquivo, nenhuma caixa de mensagem é mostrada.