Strings zusammenfügen

        Dim d = CreateObject("Scripting.Dictionary")  
        Dim Key As String

        For i = 0 To UBound(Datei1_Eindeutige_Nummer) 'Array der Datei1 durchgehen  
            Key = Datei1_Eindeutige_Nummer(i)
            If d.Exists(Key) Then 'Eindeutige_Nummer in Datei 1 war nicht eindeutig - ...  
                d.Item(Key) = d.Item(Key) & vbTab & "(1) " & Datei1_Werte(i) '... daher weiteren Wert (mit Kennzeichnung) dem Eintrag hinzufügen  
            Else
                d.Add(Key, Key & vbTab & Datei1_Werte(i)) 'Dictionary-Eintrag hinzufügen  
            End If
        Next

        For i = 0 To UBound(Datei2_Eindeutige_Nummer) 'Array der Datei1 durchgehen  
            Key = Datei2_Eindeutige_Nummer(i)
            If d.Exists(Key) Then
                d.Item(Key) = d.Item(Key) & vbTab & Datei2_Werte(i) 'Eintrag für auch in Datei1 vorhandenen Datensatz ergänzen  
            Else
                d.Add(Key, Key & vbTab & vbTab & Datei2_Werte(i)) 'Datensatz nur in Datei2 vorhanden - Eintrag neu erstellen  
            End If
        Next

        TextBox1.Text = Join(d.Items, vbCrLf) 'Alle Einträge unter Verwendung einer Zeilenschaltung als Trennung zu einem String kombinieren und in die (Multiline-)"TextBox1" eintragen  

Option Explicit

Const Datei1 = "123456" & vbCrLf & "234567" & vbCrLf & "345678"	'Improvisierter Dateiinhalt Datei1  
Const Datei2 = "124734" & vbCrLf & "224567" & vbCrLf & "341278"	'Improvisierter Dateiinhalt Datei2  

Private Sub Test()
    Dim Text1 As Variant, Text2 As Variant, TextLine As Variant, Key As String, Item As String
    Dim Values As Variant, ValuesSize As Long, ValuesCount As Long, i As Long
    
    Text1 = Split(Datei1, vbCrLf)   'Textzeilen aus Datei1 in Array einlesen  
    Text2 = Split(Datei2, vbCrLf)   'Textzeilen aus Datei2 in Array einlesen  
    
    ValuesSize = UBound(Text1) + UBound(Text2) + 1  'Größe des Arrays = Anzahl Zeilen + 1  
    
    ReDim Values(ValuesSize, 1) As String           'Array deklarieren  
    
    ValuesCount = 0                                 'Array-Zähler  
    
    For Each TextLine In Text1                      'Textzeilen aus Datei1 lesen  
        If IsNumeric(TextLine) Then                 'Test Zahlenwert  
            Key = Left(TextLine, 2)                 'Key = Kennnummer  
            Item = Key & " " & Mid(TextLine, 3, 2) & " " & Mid(TextLine, 5,2)  'Item = Key + Werte  
            Values(ValuesCount, 0) = Key            'Key in Array schreiben  
            Values(ValuesCount, 1) = Item           'Item in Array schreiben  
            ValuesCount = ValuesCount + 1           'Arrayzähler + 1  
        End If
    Next
    
    For Each TextLine In Text2                      'Textzeilen aus Datei2 lesen  
        If IsNumeric(TextLine) Then                 'Test Zahlenwert  
            Key = Left(TextLine, 2)                 'Key = Kennnummer  
            For i = 0 To UBound(Values)             'Array nach Key durchsuchen  
                If Key = Values(i, 0) Then Exit For 'Wenn gefunden For-Schleife verlassen  
            Next
            
            If i <= UBound(Values) Then             'Test ob Key gefunden  
                Item = Mid(TextLine, 3, 2) & " " & Mid(TextLine, 5,2) 'Wenn ja, Items = Werte  
                Values(i, 1) = Values(i, 1) & " " & Item    'Werte dem aktuellen Key hinzufügen  
            Else
                Item = Key & " " & Mid(TextLine, 3, 2) & " " & Mid(TextLine, 5,2) 'Item = Key + Werte  
                Values(ValuesCount, 0) = Key        'Wenn nein, Key in Array schreiben  
                Values(ValuesCount, 1) = Item       'Item in Array schreiben  
                ValuesCount = ValuesCount + 1       'Arrayzähler + 1  
            End If
        End If
    Next
    
    For i = 0 To UBound(Values)     'Array auslesen  
        If Values(i, 0) <> "" Then  'Test Leer  
            MsgBox Values(i, 1)     'Ausgabe eines Eintrags in Form 12 34 56 47 34  
        End If
    Next
End Sub