ケアプロダクトデザイナーの記録

以下ライセンスうまくいかない・・・
どうやるのこれ？？

https://www.timsoft.co.jp/stadium/%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%81%A7%E3%83%A9%E3%82%A4%E3%82%BB%E3%83%B3%E3%82%B9%E3%82%92%E3%83%81%E3%82%A7%E3%83%83%E3%82%AF%E3%81%99%E3%82%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/


以下は社内的なやつ



Sub CheckLicense()
Dim licenseKey As String

' ユーザーにライセンスキーを入力させる
licenseKey = InputBox("ライセンスキーを入力してください", "ライセンス認証")

' ライセンスキーが "111" であるかどうかを検証する
If licenseKey = "111" Then
MsgBox "ライセンスが正常に認証されました。", vbInformation, "ライセンス認証"
Else
' ライセンスが正しくない場合は、警告メッセージを表示する
MsgBox "ライセンスキーが正しくありません。", vbCritical, "ライセンス認証"
End If
End Sub




現在の閲覧者数:
"
"