General :: Error Message If Current Date Of A File Is Not Correct

I have a vba code export a error message if the current date of a file is not correct.. I have tested the code it worked to send a error message to a error.txt file but he it doesn't look to the modified date

So instead of:

file1.txt (13-02-14)
Then
Send error message ("file not updated") to: Error.txt

IF NOT
no action requeried

This code does the following :

file1.txt (Modified date: 13-02-14)
Then
Send error message ("file not updated") to: Error.txt

file2.txt (Modified date: 14-02-14)
Then
Send error message ("file not updated") to: Error.txt

Code:
Sub CheckD()
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object: Set objFile = FSO.GetFile("C:Users
ameDocumentsShow5621.txt")
If objFile.DateLastModified <> Date - 1 Then

[Code] .....

So also if it is the current date he send the error message to the error.txt file, it could be possible that i did something wrong.