Обрабатывать txt-файл в случае, если файл сохранен сегодняшней датой - VBA

Формулировка задачи:

Гуру, помоги плз. Есть такой код, который октрывает файл "test.TXT" добавляет ему внизу подпись и сохраняет как "Test на & Date & .doc". Подскажите пожалуйста, как учесть момент, что нужно обрабатывать файл test.TXT только в случае если файл сохранен сегодняшней датой. ТО есть если дата файла test.TXT не сегодняшняя дата, то ничего делать не нужно.

ChangeFileOpenDirectory "F:\Data\102016"
    Documents.Open FileName:="test.TXT", ConfirmConversions:=False, Encoding:=866
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    Selection.WholeStory
    Selection.Font.Size = 9
    Selection.HomeKey Unit:=wdStory
    Selection.PageSetup.RightMargin = CentimetersToPoints(0.75)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ў"
        .Replacement.Text = "ї"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdStory
    Selection.EndKey Unit:=wdStory
    Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Application.Run MacroName:="Normal.NewMacros.F_Подпись"
    Selection.HomeKey Unit:=wdStory
    ActiveDocument.SaveAs FileName:="Test на " & Date & ".doc", FileFormat:=wdFormatDocument

Решение задачи: «Обрабатывать txt-файл в случае, если файл сохранен сегодняшней датой»

textual
                            Листинг программы 
                        

                            'Дата последней модификации файла
Public Function lastModifFile(pathFile As String) As Date
    Dim FSO As Object, File As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set File = FSO.GetFile(pathFile)
    lastModifFile = DateValue(File.DateLastModified)
End Function
                        