Dim filename As String = "C:\Users\Administrator\Desktop\1.txt"
Dim contents() As String = File.ReadAllLines(filename)
Dim list As New List(Of List(Of String))
For i As Integer = 0 To contents.Length - 1
Dim cont = contents(i).Split(vbTab)
Dim subList As New List(Of String)
For j As Integer = 0 To cont.Length - 1
subList.Add(cont(j))
Next
list.Add(subList)
Next
07-21
567
06-11