How does OR in VBA work?

[Aussiebear]

Since it seems no one else has an idea..... maybe you might like to try this

Sub Search_Move_Email()
    Dim olItem As Outlook.MailItem
    Dim MailItem As Outlook.MailItem
    Dim sText As String
    Dim myNameSpace As Outlook.NameSpace
    Dim myDestFolder As Outlook.MAPIFolder
    Dim mySearchFolder As Outlook.MAPIFolder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myDestFolder = myNameSpace.Folders("root").Folders("archiv")
Set mySearchFolder = myNameSpace.Folders("root").Folders("alert-check")
For Each MailItem In mySearchFolder.Items
    Set olItem = MailItem
    sText = olItem.Body
    If (InStr(1, sText, "no rows selected", vbTextCompare) > 0) then
       olItem.Move myDestFolder
    ElseIf (InStr(1, sText, "Es wurden keine Zeilen ausgewählt", vbTextCompare) > 0) Then
       olItem.Move myDestFolder
    End If
Next
End Sub