Private Function CompareLines2(line1() As Integer, _
   line2() As Integer) As String
 
   CompareLines2 = ""
 
   Dim i As Integer, k As Integer, id As Integer
   Dim lineout As String
 
   If CompareLines(line1, line2) Then
      For i = 0 To UBound(line1)
         For k = 0 To UBound(line2)
            If line1(i) = line2(k) Then _
               lineout = lineout & CStr(line1(i)) & ", "
         Next k
      Next i
      If Len(lineout) > 2 Then
         lineout = Left(lineout, Len(lineout) - 2)
      End If
      CompareLines2 = lineout
   End If
End Function
 
 
Private Sub FillOutput()
 
   Dim file As String
   file = "C:\daten\input.txt"
 
   Dim lines() As String
   lines = GetLines(file)
 
   Dim ak As Integer
   ak = FreeFile
   Open "C:\daten\output.txt" For Output As #ak
 
   Dim i As Integer, k As Integer
   Dim line1() As Integer, line2() As Integer
   Dim lineout As String
 
    For i = 1 To UBound(lines)
        line1 = GetLine(lines(i))
        For k = i + 1 To UBound(lines)
            line2 = GetLine(lines(k))
            lineout = CompareLines2(line1, line2)
            If Not lineout = "" Then
               Write #ak, lineout
               'Eventuell hier Exit ????
            End If
        Next k
   Next i
   Close #ak
End Sub