VBAでチェックボックスを作り、該当のセルに対して数を加算していく

Question

前提・実現したいこと

初めての投稿です。VBA初心者なのですが色々調べた結果、解決できずこちらで質問することにしました。
Excelでチェックボックスを作り、通常であればTrue　Falseなのですが、それをマクロを使い数字に置き換えるというものです。
Trueの場合、該当セルに2を入れ、Falseの場合該当セルに0を入れるというものです。
いくつもチェックボックスがあり、チェックされたオブジェクトに応じて該当セルに2が加算されるというようにしたいです。

発生している問題・エラーメッセージ

セルを設定してコードを書いたのですが、なぜか、2がマイナス方向に減算されていきます。

該当のソースコード

Sub AddCheck()
    If ActiveSheet.CheckBoxes("CheckBox").Value = True Then
    Range("A12") = Range("A12") + 2
    Else
    Range("A12") = Range("A12") - 2
    End If
End Sub

試したこと

海外のサイトなどを調べて試行錯誤したのですが解決せず。。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

フォームコントロールのValueは
xlon　＝　1
xloff　＝　-4146

です。

なので、

Sub AddCheck()
    If ActiveSheet.CheckBoxes("CheckBox").Value = xlOn Then
        Range("A12") = Range("A12") + 2
    Else
        Range("A12") = Range("A12") - 2
    End If
End Sub

とします。

また、sgn関数を使うとマイナスの値は-1
プラスの値は+1で返してくれるので、

Sub test()
    Range("A12").Value = Sgn(ActiveSheet.CheckBoxes("CheckBox").Value) + 1
End Sub

というようにも書けます。
ま、If分で条件分岐したらいいとは思いますが、参考まで。

ちなみに
VBAでは
True　＝　-1
False　＝　0
です。

提示のコードでは-1になることはないので、
Elseのほうへいずれもいきます。