VBA Outlook - E-Mails entsprechend filtern

Option Explicit

'Deklarationen  
'zuerst für Outlook selbst und den Namespace... ohne die beiden geht nichts.  
Dim MyOLApp As Application
Dim myNameSpace As NameSpace

Private Sub Application_NewMail()
    
    'Ruft die Funktion "test" auf  
    test
    
End Sub

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

    'Ruft die Funktion "test" auf  
    test

End Sub

Public Sub test()

    'Deklaration  
    Dim FolderInbox As MAPIFolder
    Dim FolderDest As MAPIFolder
    
    Dim Mails As Outlook.Items
    Dim Mail As Object
    
    Dim WordListSrc As String
    Dim WordList() As String
    Dim Word As Variant
   
        
    'Wortdatei laden  
    WordListSrc = "C:\Outlook_filter.txt"  
    
    'Array erzeugen - jede Zeile wird in ein Feld gespeichert  
    WordList = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(WordListSrc, 1).ReadAll, vbCrLf)  

    
    'Outlook als Object erstellen  
    Set MyOLApp = CreateObject("Outlook.Application")  
    Set myNameSpace = MyOLApp.GetNamespace("MAPI")  
    
    'Default-Mailbox nehmen.. manche haben nur eine, andere ein Dutzend  
    ' die aktive Mailbox laut Profil ist logischerweise der Parent (neudeutsch für <i>"Vadder"</i> vom "Posteingang"  
    Set FolderInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set FolderDest = FolderInbox.Parent.Folders("xyz")  
    
    
    Set Mails = FolderInbox.Items
    Set Mail = Mails.Find("[Subject]  <> '\-\-\-\-\-\-\-\-\-\-\-\-/-/-/-/-/-/-/-/-/-/-/' ")  
    Do While TypeName(Mail) <> "Nothing"  
        For Each Word In WordList
            'Vergleiche Mailtext mit jedem Suchbegriff aus der Wortdatei, bis einer der beiden Bedingungen zutrifft.  
            ''Als gelesen markieren  
            ''In Verzeichnis verschieben  
            ''FOR-Schleife beenden  
            If (InStr(1, Mail.Body, Word, vbTextCompare) Or InStr(1, Mail.Subject, Word, vbTextCompare)) <> 0 Then
               Mail.UnRead = False
               Mail.Move FolderDest
               Exit For
            End If
        Next
        'Makiert die nächste Mail  
        Set Mail = Mails.FindNext
    Loop

    'Variablen löschen  
    Set myNameSpace = Nothing
    Set FolderDest = Nothing
    
    Set Mails = Nothing
    Set Mail = Nothing
    
    Set Word = Nothing
    
End Sub