Const DataPerLine As Integer = 14
 
        Dim fr As StreamReader
        Dim Linies As New List(Of List(Of String))
 
        Try
            fr = New StreamReader(path)
            Dim fullText As String = fr.ReadToEnd
 
            Dim RE As New Regex("""[^""]*""")
 
            Dim matches As MatchCollection = RE.Matches(fullText)
 
            Dim currentLine As List(Of String)
 
            For i As Integer = 0 To matches.Count - 1
 
                If i Mod DataPerLine = 0 Then
 
                    If currentLine IsNot Nothing Then
                        Linies.Add(currentLine)
                    End If
 
                    currentLine = New List(Of String)
                End If
 
                currentLine.Add(matches(i).Value)
            Next
 
            Linies.Add(currentLine)
 
        Finally
            If fr IsNot Nothing Then
                fr.Close()
            End If
        End Try