vb.netで指定フォルダ内の複数のcsvファイルを取得し、その中から指定ファイルの内容を配列に格納するプログラム

    Sub file_get()
        Dim folderPath As String = "C:\Users\sannp\Desktop\指定フォルダ" ' 指定フォルダのパスを設定
        Dim csvFiles() As String = Directory.GetFiles(folderPath, "*.csv")
        Dim targetFileName As String = "Book1.csv"
        Dim targetData As New List(Of String)() ' データを格納するリスト
        Dim i As Integer

        For Each csvFile As String In csvFiles
            If Path.GetFileName(csvFile) = targetFileName Then
                ' 対象のCSVファイルを見つけた場合
                Using reader As New StreamReader(csvFile)
                    While Not reader.EndOfStream
                        Dim line As String = reader.ReadLine()

                        ' データをリストに追加
                        targetData.Add(line)
                        i = i + 1
                    End While
                End Using
            End If
        Next

        ' データを配列に変換
        Dim dataArray As String() = targetData.ToArray()

        TextBox1.Text = dataArray(1)

    End Sub