'Returns a collection of names and values from the file.
'The file is an Excel spreadsheet saved as a CSV file.
'The first column in the file is the setting name and the second is the value.
'A third column can be used for comments.
' Dim cSettings
' Set cSettings = GetCSVCollection("Settings.csv")
Dim asRows, cSettings, i, asEntries

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

asEntries = Split(asRows(i), ",")
If UBound(asEntries) > 0 Then

cSettings.Add Trim(asEntries(0)& ""), Trim(asEntries(1) & "")

End If

Next

Set GetSettings = cSettings