Es muss keine bestimmte Anzahl sein. Desto weniger neue strings, desto besser, aber kein muss.

Ich habe noch ein wenig weitergetüftelt und bereits etwas hinbekommen, was schon grob die arbeit macht. allerdingst ist es noch nicht komplett und es gibt derzeit noch ein paar Fehler. Aber vielleicht hast du dann schon einen guten Tipp. Danke dir.

Private Sub CommandButton7_Click()
    Dim xxarray As Variant
    Dim durchlauf As Long
    Dim werte As String
    Dim teilwert As String
    Dim zwwert As String
    Dim nehmen As Boolean
    
    xxarray = Split(textbox_xx.Text, textbox_trennzeichen.Text)
    
    werte = ""
    teilwert = ""
    zwwert = ""
    nehmen = False
    For durchlauf = 0 To UBound(xxarray)
        MsgBox durchlauf
        If Len(textbox_a.Text & " " & textbox_b.Text & " " & zwwert & Trim(xxarray(durchlauf)) & " " & textbox_c.Text) < textbox_laenge.Text Then
            If zwwert = "" Then
                zwwert = Trim(xxarray(durchlauf))
            Else
                zwwert = zwwert & ", " & Trim(xxarray(durchlauf))
            End If
        Else
                'nehmen = True
                If zwwert = "" Then MsgBox "zu lang: " & Trim(xxarray(durchlauf))
        End If
        If durchlauf = UBound(xxarray) Then
            nehmen = True
            'If zwwert = "" Then zwwert = Trim(xxarray(durchlauf))
            'zwwert = Trim(xxarray(durchlauf))
        End If
        If nehmen = True Then
            werte = textbox_a.Text & " " & textbox_b.Text & " " & zwwert & " " & textbox_c.Text
            teilwert = Len(werte) & " Zeichen: " & werte
            zwwert = ""
            nehmen = False
            MsgBox teilwert
        End If
    Next durchlauf
End Sub