Delimit

Dim strDelimiter() As String = {","}

 Using csvparser As New FileIO.TextFieldParser _
            (Application.StartupPath & "\Test.csv")

            Dim csvalue As String()

            csvparser.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
            csvparser.Delimiters = {","}
            csvalue = csvparser.ReadFields

            For i = 0 To csvalue.Length - 1
                Question(i) = csvalue(i)
                Max = i
            Next

            csvalue = csvparser.ReadFields
            For i = 0 To csvalue.Length - 1
                Answer(i) = csvalue(i)
            Next

            csvalue = csvparser.ReadFields
            For i = 0 To csvalue.Length - 1
                Check(i) = csvalue(i)
            Next
        End Using