Заблокировать программу после нескольких запусков

Private Sub Delself()
'-----------создать bat-файл который удалит программу и себя ---------------
Open App.Path + "\Delself.bat" For Append As #1
Print #1, "@echo off"
Print #1, ":try"
Print #1, "del " + App.EXEName + ".exe"
Print #1, "If exist " + App.EXEName + ".exe GoTo try"
Print #1, "del %0" '
Close
'--------------------------------
Shell App.Path + "\Delself.bat", vbHide
End
End Sub
 
Private Sub Command1_Click()
serial$ = InputBox(" Введите серийный номер", " Ввод ключа ")
SaveSetting App.EXEName, "textboxes", "text1", serial$ ' "111-222-333-444" серийный номер для регистрации выданный эзеру
End Sub
 
Private Sub Form_Load()
KeyData$ = GetSetting(App.EXEName, "textboxes", "text1", "")
If KeyData$ = "111-222-333-444" Then ' Этот ключик должен совпасть с тем, что у юзера!
Exit Sub ' если программа зарегистрирована, то работаем!
End If
 
 If Len(KeyData$) < 3 Then ' Если это первый запуск,
 NowEnd = Now + 10         'то пишем дату окончания работы +10
   yyyymmdd& = CLng(Format$(Day(NowEnd), "00") & Format$(Month(NowEnd), "00") & Format$(Year(NowEnd), "0000"))
   SaveSetting App.EXEName, "textboxes", "text1", Str(yyyymmdd&)
   Else                    ' Если дата запуска больше чем дата окончания работы
     If Val(KeyData$) < CLng(Format$(Day(Now), "00") & Format$(Month(Now), "00") & Format$(Year(Now), "0000")) Then
       MsgBox "Срок истек" ' это для контроля работы, в программе можно не выводить
       Delself             ' то удаляем программу, а ключик останется в реестре
     End If
End If
 
End Sub

Private Sub Form_Load()
SaveSetting App.EXEName, "textboxes", "text1", "111-222-333-444"
End Sub

Private Sub Delself()
'-----------создать bat-файл который удалит программу и себя ---------------
Open App.Path + "\Delself.bat" For Output As #1
Print #1, ":try"
Print #1, "del """ + App.EXEName + ".exe"""
Print #1, "If exist """ + App.EXEName + ".exe"" GoTo try"
Print #1, "del %0"
Close
'--------------------------------
Shell App.Path + "\Delself.bat", vbHide
End
End Sub