List数据生成CSV文件

Function Index() As ActionResult
            dataOutPut = New List(Of Categories)()
            Dim search1 As String = "Beverages"
            Dim search2 As String = "Cheeses"
            ' 空のコレクションを用意
            Dim queryList As IEnumerable(Of Categories) = New List(Of Categories)()
            If search1 <> "" Then
                queryList = queryList.Union(db.Categories.Where(Function(v) v.CategoryName.Contains(search1)).ToList())
            End If
            If search2 <> "" Then
                queryList = queryList.Union(db.Categories.Where(Function(c) c.Description.Contains(search2)).ToList())
            End If
            Dim all = queryList.ToList()

            'リストデータをCSVファイルに出力           

            ConvertListTDataToCSVFile(all, "C:\testdata\bb.csv")

            '本画面で、操作した後、本画面を表示する
             Return View()

        End Function

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

''' <summary>
        ''' TDataデータをCSVファイルに出力する
        ''' </summary>
        ''' <param name="sourceListData"></param>
        ''' <param name="csvPath"></param>
        Public Shared Sub ConvertListTDataToCSVFile(ByVal sourceListData As IEnumerable(Of Categories), ByVal csvPath As String)

            Dim enc As System.Text.Encoding =　System.Text.Encoding.GetEncoding("Shift_JIS")
            '書き込むファイルを開く
            Dim writer As New System.IO.StreamWriter(csvPath, False, enc)

            For Each item In sourceListData
                Dim lineData As String
                lineData = item.CategoryID & "," & item.CategoryName & "," & item.Description
                writer.WriteLine(lineData)
                writer.Flush()
            Next

            '閉じる
            writer.Close()
        End Sub