软件使用时间注册后如何用setup factory修改，偿试多次未果，汗流夹背．请高手指点！

我用下面代码实现时间限制，但过了两天使用期、程序重新安装后仍然提示已过使用时间：
Dim retvalue As Date
Dim days As Integer
days = 2
retvalue = GetSetting(App.Title, "mainkey", "datevalue", Date)
If retvalue = Date Then
   SaveSetting App.Title, "mainkey", "datevalue", Date
ElseIf Date - retvalue + days > days Then
   MsgBox "本软件的使用期已过" & days & "天，抱歉请退出！"
   End
End If
If days - (Date - retvalue) - days > days Then
   MsgBox "你修改了系统日期就不许使用本软件，抱歉请退出！"
   End
Else
   MsgBox "本软件只有" & days & "天的使用期！" & vbCrLf & "你还剩下" & days - (Date - 　　　　　　 retvalue) - days & "天试用期！"
End If
我知道注册表已被修改，但我想用setup factory7.0或6.0来更改注册表中的datevalue键值，或者直接删除mainkey键.并偿试用setup fctory多次都未成功，请各位高手帮帮我，十分感谢！