关于软件试用问题

Private Sub Form_Load()
Dim a As Long
Dim b As Long
b = GetSetting("MyApp", "set", "times", 1)
a = b
If a < 30 Then
MsgBox "现在剩下：" & 30 - a & "试用次数，好好珍惜！"
a = a + 1
b = a
SaveSetting "MyApp", "set", "times", b
Else
MsgBox "试用次数已满，请联系南京中力!"
End If
End Sub

'时间限制的（如10天）
Private Sub Form_Load()
Dim a As Long
a = GetSetting("MyApp", "set", "day", 0)
If a = 10 Then
MsgBox "试用期已过，请联系!":DoCmd.Quit
Else
MsgBox "现在剩下：" & 10 - a & "试用天数，好好珍惜！" 
if day(now)-a>0 then
a = RemainDay + 1
SaveSetting "MyApp", "set", "times", a
End if
End if
End Sub