Imports System

Imports System.Data

Imports System.Xml

Public Module Module1

    Public Sub Main()

        For Each row As DataRow In Parse_CSV("""Name1"", ""A test, which ""fails"" all the time""" & Environment.NewLine() & """Name2"", ""A test, which ""fails"" all the time""" & Environment.NewLine() & """Name3"", ""A test, which ""fails"" all the time""").Rows

            Console.WriteLine(String.Join(" | ", row.ItemArray))

        Next

    End Sub

    Private Function Parse_CSV(ByVal csv As String) As DataTable

        'Create a new instance of a DataTable and create the two columns

        Dim dt As DataTable = New DataTable("CSV")

        dt.Columns.AddRange({New DataColumn("Column1"), New DataColumn("Column2")})

        'Placeholder variable for the separator

        Dim separator As Integer = -1

        'Iterate through each line in the data

        For Each line As String In csv.Split({Environment.NewLine}, StringSplitOptions.None)

            'Get the first instance of a comma

            separator = line.IndexOf(","c)

            'Check to make sure the data has two fields

            If separator = -1 Then

                Throw New MissingFieldException("The current line is missing a separator: " & line)

            ElseIf separator = line.Length - 1 Then

                Throw New MissingFieldException("The separator cannot appear at the end of the line, this is occuring at: " & line)

            Else

                'Add the two fields to the datatable(getting rid of the starting and ending quotes)

                dt.Rows.Add({line.Substring(0, separator), line.Substring(separator + 2)})

            End If

        Next

        'Return the data

        Return dt

    End Function

End Module