out附件下载if判断没有成功是怎么回事？

Moom_略

代码如下：
If InStr(MyFileName, "思考A3") = 0 Or _
                        InStr(MyFileName, "广发纳斯特乐睿1号") = 0 Then

            '//判断是否包含该月份的文件夹，有则保存在文件夹 ，无则创建文件

                Folder = "E:\outlook\" &  format(date(),"YYYYMMdd")    '//判断月份
                                vItem.SaveAsFile Folder & "\" & vItem.FileName    '//保存附件路径

                If Not Fso.FolderExists(Folder) Then    '//无则创建文件夹

                    Fso.CreateFolder (Folder)

                End If

            Else
                vItem.SaveAsFile "E:+\outlook\down\" & vItem.FileName    '//保存到根目录文件夹
            End If



我想要根据关键词来下载附件，就是这行diamante，If InStr(MyFileName, "思考A3") = 0 Or _
InStr(MyFileName, "广发纳斯特乐睿1号") = 0 Then
但是结果是所有附件都下载了，这个if判断不成功，是写错了吗，哪里有问题？求指导