Сохранение суммы значений textbox в одну ячейку, при выполнении условия

[Посетитель]

Добрый день. Подскажите, пожалуйста. Есть 2 textbox, в которые вводятся числовые значения (первый обязательный к заполнению, второй - нет). Сумму значений из первого textbox нужно записать в одну ячейку, но при условии, что заполнен второй textbox (<>""). Как это можно осуществить?

[Администратор]

Private Sub CommandButton1_Click()
    If Me.TextBox2.Text <> "" Then
        ActiveCell.Value = Me.TextBox1.Text
    End If
End Sub

[Посетитель]

Сложность в том, что все числа из textbox1 нужно отправлять в одну ячейку, прибавляя к уже имеющейся в ней сумме, но только при соблюдении условия, что будет заполнен textbox2, а сколько будет таких "парных текстбоксов" заранее не известно.

[Администратор]

Я до конца не понял вашу ситуацию, может быть это решает вашу задачу:

Private Sub CommandButton1_Click()
    If Me.TextBox2.Text <> "" Then
        ActiveCell.Value = ActiveCell.Value + Me.TextBox1.Text
    End If
End Sub