Private Sub Command1_Click()
Dim S1$, Summe&, i&, a&, b&, Z1$(), Z2$(), Lst$(), strZahlen1$, strZahlen2$
 
  Open "input.txt" For Binary As #1
  Open "output.txt" For Output As #2
 
    S1 = Space$(LOF(1))
    Get #1, , S1
  Close #1
  Lst = Split(S1, vbCrLf)
    For i = 0 To UBound(Lst) - 1
    Z1 = Split(Lst(i), vbTab)
    If UBound(Z1) < 4 Then
      MsgBox "Zeile " & (i + 1) & " zu wenig Werte" & vbCr & ">" & Lst(i) & "<"
    Else
      j = i + 6
        Z2 = Split(Lst(j), vbTab)
        If UBound(Z2) < 4 Then
          MsgBox "Zeile " & (j + 1) & " zu wenig Werte" & vbCr & ">" & Lst( _
            j) & "<"
        Else
          Summe = 0
          For a = 0 To 3
            For b = 0 To 3
              If Trim$(Z1(a)) = Trim$(Z2(b)) Then
                Z2(b) = "-"
                Summe = Summe + 1
                Exit For
              End If
            Next b
          Next a
 
 
If Summe >= 3 Then
Z2 = Split(Lst(j), vbTab)
    strZahlen1 = ""
    strZahlen2 = ""
    For a = 0 To 3
        strZahlen1 = strZahlen1 & " " & Z1(a)
        strZahlen2 = strZahlen2 & " " & Z2(a)
    Next
    Print #2, Trim$(Z1(4)) & " (" & strZahlen1 & ") / " & Trim$(Z2(4)) & " (" & _
      strZahlen2 & ")"
      End If
 
        End If
      Next j
    End If
  Next i
  Beep
  Unload Me
 
End Sub