Visual Basic - Crear demo 60 dias

tengo una aplicacion que quiero distribuir a modo de demo de 60 dias, hay alguna manera de crear esto sin recurrir a la fecha de sistema? algo que sea mas o menos seguro para que no pueda saltarse simplemente hechando un año atras el rejol ;)

un saludo.

Mira una vez aqui en el foro lo respodieron, te aclaro nunca la he utilizado espero y te sirva, saludos!!!
Dim Caducar
Caducar = CDate("15 septiembre 2004")

SaveSetting "MicrosoftCompanySystem", "Wizards", "UntilClasses", Format(Caducar)

Caducidad = GetSetting("MicrosoftCompanySystem", "Wizards", "UntilClasses")
If Caducidad <> "" Then
Fecha = CDate(Caducidad)

If Fecha < Date Then
MsgBox "El periodo de prueba de este archivo a finalizado!" _
& Chr(10) & "Lamentamos los incovenientes ocasionados" _
& Chr(10) & "Para seguir ejecutando este archivo debe" _
& Chr(10) & "ponerse en contacto con el proveedor del programa" _
& Chr(10) & "[email protected]", vbInformation
ThisWorkbook.Close False
End If