Read csv file into 2-dim arry

CSV_to_2-dim-array.vb

Imports System.IO
Imports Microsoft.VisualBasic.FileIO

Module csv2array
    Public Function _csv2array(ByVal sFilename As String) As Object
        Dim dest As List(Of String) = New List(Of String)
        Dim src As List(Of String) = New List(Of String)

        Using csvParser As TextFieldParser = New TextFieldParser(sFilename)
            csvParser.CommentTokens = New String() {"#"}
            csvParser.SetDelimiters(New String() {","})
            csvParser.HasFieldsEnclosedInQuotes = True
            csvParser.ReadLine()
            While Not csvParser.EndOfData
                Dim fields As String() = csvParser.ReadFields()
                dest.Add(fields(0))
                src.Add(fields(1))
            End While
        End Using
        Return {dest, src}
    End Function
End Module