Visual Basic - Necesito vuestra ayuda

Estimados: necesito entregar una aplicación la cual debe "expirar" (no volver a iniciar) luego de un tiempo determinado. La idea es que la solución no sea dependiente de que el usuario modifique la fecha del reloj. Tal vez lo ideal sería escribir una clave en el registro, pero no se me ocurre contra que compararla. ¿Alguien puede orientarme en la solución? Si tienen código en algún lenguaje mucho mejor.
Desde ya, muchísimas gracias.
Saludos.
Ignacio.

Mira una vez aqui en el foro respodieron la solución es esta 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