Private Sub speichern()
        Dim zeile As String
        If Not File.Exists("patterndb.csv") Then
            File.Create("patterndb.csv")
 
        End If
 
        FileOpen(1, "patterndb.csv", OpenMode.Random)
        For i = 1 To 8
            zeile = ""
            For j = 1 To 64
                zeile = zeile & ";" & beats(i, j)
            Next
 
            FilePutObject(1, zeile, DSNr(i))
        Next
 
               FileClose(1)
    End Sub