Poner fecha de eliminación a codigo que trabaja con varias series

[zero]

Hola Amigos Programadores, tengo este codigo ? que me sirve para que el archivo corra solo en las pc con los series de disco duro asignados en ese codigo, pero yo quería saber si es posible adaptarle fecha para que después de esa fecha el archivo se elimine.. Probé ponerle este codigo al comienzo de la macro paro me aparece error   :

Dim FechaVen As Date
    FechaVen = "20/07/2021"
    
    If Date >= FechaVen Then

 

 

 

Private Sub Elimina()
    If IsError(Application.Match(Hex(CreateObject("scripting.filesystemobject").Drives.Item("c:").SerialNumber), Array("EE91AAE1", "8001a6af", "otroSerial_3"), 0)) Then
    Application.DisplayAlerts = False
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    ThisWorkbook.Close False
End If

End Sub
 

 

Agradezco La ayuda Brindada, Gracias

ejemp11.xlsm