Решение с чекбоксами - VB

Формулировка задачи:

Добрый день. помогите решить проблему. Есть 2 чекбокса и 1 текстбокс. Нужно сделать так если нажимаю на чекбокс то считается формула и записывается ответ в текстбокс. когда нажимаю на второй чекбокс то считается другая формула и прибавляет ответ в текстбокс. и сделать так если включаешь чекбокс то 1 раз прибавляет а не так что бы включаешь оно прибавляет патом выключил включил оно опять прибавляет.

Решение задачи: «Решение с чекбоксами»

textual
                            Листинг программы 
                        

                            Option Explicit
'
'   Необходимые компоненты на форме Check1 и Command1 (кнопка)
'
Private Sub Form_Unload(Cancel As Integer)
    Call SaveSetting(App.Path & Me.Name, Check1.Name, 0, Check1.Value)
End Sub
 
Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Check1.Value Then
        'Формула
    End If
End Sub
 
Private Sub Form_Load()
    Check1.Value = GetSetting(App.Path & Me.Name, Check1.Name, 0, Check1.Value)
End Sub
 
Private Sub Command1_Click()
    'удаление всех сохраненных настроек
    Call DeleteSetting(App.Path & Me.Name, Check1.Name)
    Check1.Value = 0
End Sub
                        