Option Explicit
 
Private Type Line
    Group As Integer
    Value As Integer
End Type
 
Private Type Kombi
    Group As Integer
    V1() As Integer
    V2() As Integer
End Type
 
Private Type Freq
    V1 As Integer
    V2 As Integer
    groups() As Integer
End Type
 
 
Dim Lines() As Line, kombis() As Kombi, Freqs() As Freq
 
 
Private Sub Form_Load()
 
   'Daten-Liste lesen
   ReadLines "C:\Daten\input.txt" 'Datei angeben
 
   'Liste der Gruppen erstellen (incl. Wertearray für jede Gruppe)
   SetLinesToKombis
 
   'Liste der Werte-Kombinationen bei jeder Gruppe (Gruppe -> Kombis)
   SetKombisInGroups
 
   'Liste Umsetzen: Gruppe -> Kombis nach Kombi -> Gruppen
   FillKombiGroupsList
 
   'Sortieren der Werte-Kominationen nach Anzahl Gruppen pro Kombi. / fallend
   SortKombiGroupsList
 
   'Liste ausgeben
   WriteKombiGroupsList "C:\daten\output.txt" 'Ausgabedatei angeben
 
End Sub
 
 
Sub ReadLines(file_in As String)
 
    Dim i&, k&, ln$, f$()
    Open file_in For Input As #1
 
    While Not EOF(1)
        i = i + 1
        Line Input #1, ln
    Wend
    Close #1
 
    ReDim Lines(i)
    i = 0
    Open file_in For Input As #1
    While Not EOF(1)
        i = i + 1
        Input #1, ln
        f = Split(ln, Chr(9)) '?????? Tab
        'Oder:
        ln = Replace(ln, "  ", " ")
        f = Split(ln, " ")
        Lines(i).Group = CInt(Trim(f(0)))
        Lines(i).Value = CInt(Trim(f(1)))
    Wend
    Close #1
End Sub
 
 
Sub SetLinesToKombis()
 
    Dim i&, k&, l&, foundg As Boolean, foundv As Boolean
    ReDim kombis(0)
 
    For i = 1 To UBound(Lines)
 
        'Gruppe suchen
        foundg = False
        For k = 1 To UBound(kombis)
           foundg = kombis(k).Group = Lines(i).Group
 
           If foundg Then
 
              'Wert in Gruppenliste ergänzen
              With kombis(k)
                foundv = False
                For l = 1 To UBound(.V1)
                   foundv = .V1(l) = Lines(i).Value
                   If foundv Then Exit For
                Next l
                'Wert in Gruppenliste anhängen
                If Not foundv Then
                   l = UBound(.V1) + 1
                   ReDim Preserve .V1(l)
                   .V1(l) = Lines(i).Value
                End If
              End With
              Exit For
 
           End If
 
        Next k
 
        If Not foundg Then
 
           'Gruppe in Gruppenliste anhängen
           l = UBound(kombis) + 1
 
           ReDim Preserve kombis(l)
           With kombis(l)
              'Wertliste für neue Gruppe starten
              .Group = Lines(i).Group
              ReDim Preserve .V1(1)
              .V1(1) = Lines(i).Value
           End With
 
        End If
    Next i
 
End Sub