Hi again Bryan,

You might read the first record separately, to get the headers.
In the example below, I use a collection so I can get the index (column)
from the header string.
Maybe there are more elegant ways to do it...

One thing: I'd get the list delimiter from the system, because it varies
from country to country.
Say in Germany, it's a semicolon instead of a comma.

  Dim strScrap As String
  Dim arrFieldNames As Variant
  Dim arrHeaderNames As Variant
  Dim strLead_ID As String
  Dim sLS As String ' list separator
  sLS = Application.International(WdInternationalIndex.wdListSeparator)

  'open text file to get values of variables
  Open "C:\listings.csv" For Input As #1

  Line Input #1, strScrap
  arrHeaderNames = Split(strScrap, sLS)
  Dim colHeader As New Collection
  Dim i As Long
  For i = LBound(arrHeaderNames) To UBound(arrHeaderNames)
     colHeader.Add Item:=Trim(STR(i)), key:=arrHeaderNames(i)
  Next i

  Do While Not EOF(1)
     Line Input #1, strScrap
     arrFieldNames = Split(strScrap, sLS)
     ' The Val isn't strictly needed because of implicit conversion...
     strLead_ID = arrFieldNames(Val(colHeader.Item("strLead_ID")))
     'evaluate field values here
  Loop
  Close #1

Maybe you'd get better answers in one of the general VBA or Office.VBA
groups, or in the Excel.VBA group, since the question does not deal
specifically with Word.

BTW, in the code I posted for reading a file with the
Scripting.FileSystemObject, you'd need to set a reference to the Microsoft
Scripting Runtime in "Tools > References...".
Your code looks great... I just often prefer to read the whole file into a
string, because it seemed to be faster in some applications I had, or
because the structure was too messy.
The VBA Open then had problems because it runs out of string space, unless
one creates a large enough string first.
It also seemed slower, though I'm not 100% sure.

Regards,
Klaus