Office: (Office 2010) Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren

Guten Abend,
ich bin VBA Neuling und habe mir durch goggeln das ein oder andere Skript zusammengestellt. Jetzt komme ich aber an meine Grenzen.
Ich habe in einer Userform eine Listbox, die aus der Tabell3 Ihre Daten erhält. In TextBox 1 steht Text, in den TextBoxen 2-6 stehen Zahlen.
Die Eingabe und Speicherung der Zahlen in den Textboxen für den markierten ListBox - Eintrag funktioniert reibungslos. Ich möchte nun erreichen, dass der vorhandene Wert in der dazugehörigen Zelle der Tabelle, mit dem neuen Wert aus der TextBox 3-6 addiert wird. Kann mir bitte Jemand bei der Umsetzung helfen???
Folgender Code führt durch Aufruf des Button1 zur Speicherung der Daten:
Private Sub EINTRAG_SPEICHERN()
Dim lZeile As Long
Dim i As Integer

'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox2.ListIndex = -1 Then Exit Sub

'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = ListBox2.List(ListBox2.ListIndex, 0)

For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Select Case (i)
Case 1: Tabelle3.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Case 2 To 4: Tabelle3.Cells(lZeile, i) = CLng(Me.Controls("TextBox" & i))
Case 5 To 6: Tabelle3.Cells(lZeile, i) = CDbl(Format(Me.Controls("TextBox" & i), "#,##0.0"))

End Select

Next i

'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
ListBox2.List(ListBox2.ListIndex, 1) = TextBox1
ListBox2.List(ListBox2.ListIndex, 2) = TextBox2
ListBox2.List(ListBox2.ListIndex, 3) = TextBox3
ListBox2.List(ListBox2.ListIndex, 4) = TextBox4
ListBox2.List(ListBox2.ListIndex, 5) = TextBox5
ListBox2.List(ListBox2.ListIndex, 6) = TextBox6

'Und dem Benutzer direkt noch den Cursor in das erste Eingabefeld stellen und alles vorselektieren,
'so kann der Benutzer direkt loslegen mit der Dateneingabe.
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)

End Sub