Dim arr1(100) As String, arr2(100) As String
   Dim arr3(100) As String, arr4(100) As String
   Dim p As Long, p1 As Long, p2 As Long, i As Long
   Dim i1$, i2$, i3$, i4$, t$
 
   Open "jbl.txt" For Input As #1
 
   While Not Eof(1)
        i = i + 1
      If UBound(arr1) < i Then
         ReDim Preserve arr1(i + 100)
         ReDim Preserve arr2(i + 100)
         ReDim Preserve arr3(i + 100)
         ReDim Preserve arr4(i + 100)
      End If
 
      Input #1,  i1, i2, i3, i4
      arr1(i) = Trim$(i1) : arr2(i) = Trim$(i2)
      arr3(i) = Trim$(i3) : arr4(i) = Trim$(i4)
   Wend
   Close
 
   For p = 1 To i
      For p1 = 1 To i
         If arr2(p) = arr1(p1) Or arr2(p) = arr4(p1) Or _
               arr3(p) = arr1(p1) Or arr3(p) = arr1(p1) Then
            arr2(p) = ""
            Exit For
         End If
      Next
      If Len(arr2(p)) Then arr2(p) = arr2(p) & " - " & arr3(p)
   Next
 
   Open "result.txt" For Output As #1
   For p = 1 To i-1
      p2 = 0 : t = ""
      If Len(arr2(p)) Then
         p2 = 1 : t = arr2(p)
      End If
 
      For p1 = p + 1 To i
         If p2 = 0 Then Exit For
         If arr2(p) = arr2(p1) Then
            arr2(p1) = "" : p2 = p2 + 1
         End If
      Next
      If p2 > 0 Then Print #1, t; " :"; Str$(p2)
 
   Next
   If Len(arr2(i)) Then Print #1, arr2(i); " : 1"
   Close