Riesigen String trennen

Sub SplittenDerAddition()
Dim Formeltext3 As String
Zellname2 = 3
Formeltext2 = Range("M982").Value
'das letzte + Zeichen entfernen
Formeltext3 = Left(Formeltext2, Len(Formeltext2) - 1)
'Länge des Strings ermitteln
MyLen = Len(Formeltext3)
'Schleifenanzahl festlegen
Schleife = WorksheetFunction.RoundUp(Len(Formeltext3) / 1200, 0)
'festlegen ab welcher Stelle innerhalb des Strings gesucht werden soll
Trennzahl = Round(Len(Formeltext3) / Schleife, 0)
For t = 1 To Schleife
Zellname2 = Zellname2 + 1
If MyLen > 1200 Then
TrennPos1 = InStr(Trennzahl, Formeltext3, "B", 1)
Addition = Right(Formeltext3, TrennPos1)
Range("M" & Zellname2 + 3).Value = "=" & Addition
Formeltext4 = Left(Formeltext3, Len(Formeltext3) - (Len(Addition)) - 1)
Formeltext3 = Formeltext4
MyLen = Len(Formeltext3) - Len(Addition)
Else
Formeltext4 = Left(Formeltext3, Len(Formeltext3) - (Len(Addition)))
Formeltext3 = Formeltext4
Range("M" & Zellname2 + 3).Value = "=" & Formeltext4
End If
Next t
End Sub

Vieleicht sitze ich schon zu lange dran und habe eine Denkblockade………………….
Es will mir nicht gelingen den String so zu trennen, dass eine sauber Formeladdition möglich ist.
Gruß SP