vbScript以部分主题作为文件名保存附件

我正在使用vbScript将通过电子邮件收到的附件保存到共享驱动器。我能够按预期移动文件。我不知道如何从主题行中提取日期，并将其用作文件名的一部分

电子邮件主题如下所示：

公司摘录20160125

该文件应命名为：COM20160125.txt

    For Each objMailItem in objItems 'Handle each email
        For Each objAtt In objMailItem.Attachments 'Handle multiple attachments
            If objMailItem.Subject = |"COMPANY EXTRACT 2*" Then

---

解决方案如下：

 For Each objMailItem in objItems 'Handle each email
        For Each objAtt In objMailItem.Attachments 'Handle multiple attachments
             If InStr(objmailItem.Subject, "COMPANY EXTRACT 2") Then
            objAtt.SaveAsFile NETWORK_SAVE_LOCATION & "COM" & Right(objmailItem.Subject,8) & ".txt"