Private Function WriteCSV(ByVal filename As String, _
        ByVal arr(,) As Double) As Boolean
 
        Try
            'Filestream und Streamwriter besorgen und einrichten
            Using fs As New IO.FileStream _
                (filename, IO.FileMode.OpenOrCreate, IO.FileAccess.Write), _
                sw As New IO.StreamWriter(fs)
 
                'Variable für den Aufbau einer Zeile als Zeichenfolge
                Dim zeile As New System.Text.StringBuilder(1024)
 
                'Doppelschleife über Array (null-basiert !)
                For i As Integer = 0 To arr.GetUpperBound(0)
                    zeile.Clear()
                    For j As Integer = 0 To arr.GetUpperBound(1)
                        zeile.Append(arr(i, j))
                        If Not j = arr.GetUpperBound(1) Then
                            zeile.Append(";")
                        End If
                    Next j
                    'Zeile speichern
                    sw.WriteLine(zeile.ToString)
                Next i
                sw.Close()
                'Alles wieder freigeben
            End Using
            Return True
        Catch
            'Fehlerbedingung
            Return False
        End Try
 
    End Function

   Dim beats(7, 63) As Double
 
   If Not WriteCSV("D:\patterndb.csv", beats) Then
      MsgBox("Fehler beim Erstellen der Datei")
   End If