tx_words_ex = Trim(Me.txt_EX.Text)
tx_split = tx_words_ex.Split(New [Char]() {" "c, ","c, "."c, ":"c, ";"c})
 
starte den watcher
 
    Private Sub fsw_Changed(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles fsw.Changed
        Schreibe_in_Zyklus(" verändert --> " & LCase(e.FullPath), 3, LCase( _
        e.FullPath))
    End Sub
 
 
sub Schreibe_in_Zyklus (byval p1 as string, byval Flag as integer, byval p3 as _
  string)
        For Each s In tx_split
            If s.Trim() <> "" Then
                If p1.EndsWith(LCase(s)) = True Then
 
                    Schreibe_in_Logfile(p1)
 
 
                End If
            End If
        Next s
end sub