试用次数存储在那个文件中？

Private Sub Form_Load()
Dim a As Long
Dim b As Long
b = GetSetting("myapp", "set", "times", 51345)
a = b Xor 51345
If a < 3 Then
MsgBox "现在剩下" & 3 - a & "次试用次数"
b = a + 1
b = b Xor 51345
SaveSetting "myapp", "set", "times", b
Else
MsgBox "试用次数已满"
End If
End Sub

各位高手好，这个关于次数限制的代码，请问这个次数记录在那个注册文档中，能否修改注册表中的次数。

因为我是第一次使用这个代码，就提示试用次数已满，不知为什么？