Archivo de texto

Eso no sería mucha seguridad por que sería fácil de quitarle esta, yo creo que tu puedes ingeniar un sistema de más seguridad, pero te voy a mostrar como puedes hacer lo que tu quieres.
Primero lo que se va a hacer es que el programa guarde un archivo indicando la fecha en la cual se inició el programa por primera vez, luego cuando se inicie de nuevo el programa calcular cuantos días paso desde esa fecha y decir si el programa ya se expiró o no.
Aquí te va el código.
En el evento Load de Formulario pon esto:
On Error Resume Next
Dim FechaInicio As Variant
Dim FechaFinal As Variant
FileLen("Aquí Pon Dirección completa del archivo")
If Err.number <> 0 Then
'(Comprueba si existe el archivo si no lo crea con la fecha actual)
Open "Aquí Pon Dirección completa del archivo" For Output As #1
Write #1,Date(Date)
Close #1
FechaInicio = Date(Date)
Else
Open "Aquí Pon Dirección completa del archivo" For Input As #1
Input #1,FechaInicio
Close #1
End If
FechaFinal = DateValue(Now)
If FechaFinal - DateValue(FechaInicio) > 20 Then
Msgbox "El Programa A Expirado",vbCritical,"Tiempo Expirado"
End
End if
End Sub
Espero que te sirva, si es que no te funciona cambia todos los Date(Date) por
Date(now) y cualquier duda que tengas solo escríbeme.