If Summe >= 3 Then
    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