[SOLVED] If .pdf Contains "Q#" Then Save Elsewhere

How can I add logic to where if fileExtension = ".pdf" or ".PDF" & .FileName contains "Q#" or "Quote" then do something

Code:

---

    fileExtension = Array(".pdf", ".PDF", ".zip", ".ZIP", ".dwg", ".DWG", ".dxf", ".DXF", ".stp", ".STP", "step", "STEP", ".igs", ".IGS", "xlsx", "xlsb", "xlsm")    For j = 1 To olMsg.Attachments.Count
        Set objAtt = olMsg.Attachments(j)
        strName = objAtt.FileName
        For k = 0 To UBound(fileExtension)
            If Right(strName, 4) = fileExtension(k) Then
                objAtt.SaveAsFile saveFolder & strName
                Exit For
            End If
        Next k
    Next j

---

SOLVED

Code:

---

    fileExtension = Array(".pdf", ".PDF", ".zip", ".ZIP", ".dwg", ".DWG", ".dxf", ".DXF", ".stp", ".STP", "step", "STEP", ".igs", ".IGS", "xlsx", "xlsb", "xlsm")    For j = 1 To olMsg.Attachments.Count
        Set objAtt = olMsg.Attachments(j)
        strName = objAtt.FileName
        For k = 0 To UBound(fileExtension)
            If Right(strName, 4) = fileExtension(k) Then
                If InStr(strName, "Q #") > 0 Then
                    saveFolder = strFolderpath & "\^Quoting\Quote of Record\"
                    strName = "Old Quote_" & strName
                    objAtt.SaveAsFile saveFolder & strName
                ElseIf InStr(strName, "Quote") > 0 Then
                    saveFolder = strFolderpath & "\^Quoting\Quote of Record\"
                    strName = "Old Quote_" & strName
                    objAtt.SaveAsFile saveFolder & strName
                Else
                objAtt.SaveAsFile saveFolder & strName
                End If
                Exit For
            End If
        Next k
    Next j

---