Sub Wsw_CheckKeywords(Handle, sMemChanges, ByRef sStatusMessage, ByRef iKeywordFound)

 Dim s = LCase(sMemChanges)

   ' Look for WebSite Watcher but exclude weight watcher

   If (InStr(s, "website") > 0) And (InStr(s, "watcher") > 0) And (InStr(s, "weight") = 0) Then

      iKeywordFound = 1

      Return

   End If

   If (InStr(s, "aignesberger") > 0) And (InStr(s, "watcher") > 0) Then

      iKeywordFound = 1

      sStatusMessage = "Keyword 'aignesberger + watcher' found"

      Return

   End If

End Sub