Variablen Summe individuell trennen Schleife

Private Sub CommandButton1_Click()
Dim arrTB(15) As Variant, arrErgebnis() As Variant
Dim lngSchwelle As Long, lngTotal As Long
Dim strZwischenergebnis As String
Dim i As Integer, intCounter As Integer
lngSchwelle = 140
' Textboxen einlesen
For i = 1 To 16
arrTB(i - 1) = Controls("TextBox" & i)
Next i
' Textboxen stückeln
For i = 0 To 15
If Len(strZwischenergebnis & arrTB(i))  "" Then
ReDim Preserve arrErgebnis(intCounter)
arrErgebnis(intCounter) = strZwischenergebnis
End If
' Ausgabe Ergebnis
For i = LBound(arrErgebnis) To UBound(arrErgebnis)
MsgBox arrErgebnis(i)
Next i
End Sub