Private Sub WriteLine(FileNr As Long, Zahl() As Long)
    Dim i As Long
    Dim AusgabeString As String
    AusgabeString = ""
 
    Dim IstZahlAufsteigend As Boolean
    IstZahlAufsteigend = True
    For i = 0 To UBound(Zahl) - 2
        If Zahl(i + 1) < Zahl(i) Then IstZahlAufsteigend = False
    Next
 
    If IstZahlAufsteigend Then
        For i = 0 To UBound(Zahl)
            If i > 0 Then AusgabeString = AusgabeString & ","
            AusgabeString = AusgabeString & Zahl(i)
        Next
        Print #FileNr, AusgabeString
    End If
End Sub