'Returns a collection of collections.
'There's a collection for each row.
'The file is made by saving an Excel spreadsheet as a CSV file.
' Dim cEntries
' Set cEntries = GetCSVCollection("Entries.csv")
Dim asRows, asFieldNames, cRecordSet, i, asFieldValues
Dim cRecord, iFieldCount, j

asRows = Split(GetFileContents(vsFilePath), vbCrLf)
asFieldNames = Split(asRows(0), ",")
Set cRecordSet = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(asRows)

asFieldValues = Split(asRows(i), ",")
Set cRecord = CreateObject("Scripting.Dictionary")
If UBound(asFieldNames) < UBound(asFieldValues) Then

iFieldCount = UBound(asFieldNames) + 1

Else

iFieldCount = UBound(asFieldValues) + 1

End If

For j = 0 To iFieldCount - 1

cRecord.Add Trim(asFieldNames(j)), asFieldValues(j)

Next
cRecordSet.add i - 1, cRecord

Next

Set GetCSVCollection = cRecordSet