Actualización del programa

Hola de nuevo amiga que seguido no..., bueno mi consulta ahora es la siguiente necesito colocar una fecha de vencimiento a mi proyecto ya que todos los meses debo agregar una información que es vital para los resultados, de tal manera que si no se actualiza el proyecto no pueda ejecutarse, he probado con esto que saque de acá del foro pero no funciona:
Primero se establece la fecha de caducidad
Private Sub EstableceCaducidad()
Dim Caducar As Date
Caducar = CDate("20/5/2004")
SaveSetting "MiArchivo", "Util", "Caduca", Format(Caducar)
End Sub
en el evento Open validamos que este dentro de la fecha
Private Sub Workbook_Open()
Dim Caducidad As String
Dim Fecha As Date
Caducidad = GetSetting("MiArchivo", "Util", "Caduca")
If Caducidad <> "" Then
Fecha = CDate(Caducidad)
If Fecha < Date Then
MsgBox "Este archivo a caducado"
ThisWorkbook.Close False
End If
End If
End Sub
esta macro es para que elimines la fecha de caducidad
Private Sub QuitarCaducidad()
DeleteSetting "MiArchivo", "Util"
End Sub
Ahora no se que es lo que pasa observa que estoy colocando una fecha super antigua para probar haber si de una vez me aparece el mensaje "Este archivo ha caducado", pero no lo hace sigue trabando normal
Otra cosa estoy colocando la primera parte de la rutina la estoy colocando en Declaraciones en ThisWorkbook, la segunda en ThisWorkbook evento open y la tercera en la misma que la primera estra bien así o me estoy equivocando y por eso no me funciona o es que me falta algo para hacerlo bueno amiga un saludo y gracias de antemano