Excel VBA

I have written a mcro to delete files from a shared drive. The macro selects files according to name criteria provided by the user but I also want to select by the file's last modified date. How can I do this ? Here is the code so far:

Sub Killer()
'macro to select & delete specific files
Dim Response As String
Dim datmod As Date
'Dim varNow As Variant 'the user form is shown & each button returns a different varNow value


Set fs = Application.FileSearch
With fs
.LookIn = InputBox("Enter the string for folder selection.", "Search folder criteria.", "S:\Operations\Analysts\text files")
Response = MsgBox("Search subfolders ?", vbYesNo + vbDefaultButton1 + vbQuestion, "Subfolders ?")
If Response = vbYes Then
.SearchSubFolders = True
Else
.SearchSubFolders = False
End If
'.LastModified <= InputBox("Include files last modified on or before date:", "Search folder criteria.", Date - 60)
.Filename = "*" & InputBox("Enter the string for file selection.", "Search criteria.") & "*" '"*0407.*"

If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."

ListDeleteOrCancel.Show
'##this is a user form with buttons to list the files (varnow =1), ##
'##delete them varnow = 2) or cancel (3)##

If varnow = 1 Then 'list files
Workbooks.Add
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)

ActiveCell.Offset(1, 0).Select
Next i
ElseIf varnow = 2 Then
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
MsgBox "There were " & .FoundFiles.Count & " files deleted."
Else
Unload ListDeleteOrCancel
Exit Sub
End If
Else
MsgBox "There were no files found."
End If
End With

End Sub