Чтение данных из файла? Запутался (

Option Explicit
Public Function ReadTxtFile(fil As String) As Collection
Dim fd As Long
Dim sline As String
Dim txtColl As New Collection
fd = FreeFile
Open fil For Input Access Read Shared As fd
Do Until EOF(fd)
Line Input #fd, sline
txtColl.Add sline
Loop
Close fd
Set ReadTxtFile = txtColl
End Function
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Sub test()
Dim col As New Collection
Dim itm As Variant
Dim ar() As Variant
Dim i As Integer, j As Integer
Set col = ReadTxtFile("C:\Test.txt")
ReDim ar(0 To (col.Count / 3) - 1, 0 To 2)
j = 0
For i = 1 To col.Count Step 3
ar(j, 0) = col.Item(i)
ar(j, 1) = col.Item(i + 1)
ar(j, 2) = col.Item(i + 2)
j = j + 1
Next
End Sub

Option Explicit
Public Function ReadTxtFile(fil As String) as Collection
Dim fd As Long
Dim sline As String
Dim ar As Variant
Dim txtColl As New Collection
fd = FreeFile
Open fil For Input Access Read Shared As fd
Do Until EOF(fd)
Line Input #fd, sline
ar = Split(sline, ",")
txtColl.Add ar
Loop
Close fd
Set ReadTxtFile = txtColl
End Function
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Sub test()
Dim col As New Collection
Dim itm As Variant
Dim ar() As Variant
Dim i As Integer, j As Integer
Set col = ReadTxtFile("C:\MYFILE.TXT")
ReDim ar(col.Count - 1, UBound(col.Item(1)))
i = 0
For Each itm In col
For j = 0 To UBound(itm)
ar(i, j) = itm(j)
Next
i = i + 1
Next
End Sub