Function for parsing a CSV file

I was looking all over for a function to do this, and what I found were a number of character-by-character routines that were slow as all get out. 
So, with ebgreen's help http://www.visualbasicscript.com/fb.aspx?m=42592 I was able to come up with a much faster solution.
This function allows me to parse through a CSV file of about 5megs in size, roughly 8,300 lines long, each line containing about 30 fields (a dump of our company's GAL from AD) in about 3.65 seconds on an Athlon 3000+. 
 
Enjoy.
 

 Function fParseCSV(sStringIn,sChar)
 'This function takes as input, a comma-delimited string, and returns the same string
 'with each "field" separated by "sChar".  This is useful when dealing with a CSV file that
 'only has SOME fields enclosed with quotes and others without quotes.  This will provide
 'a single method of separating fields for use in a Split() or other parsing in VBS.
  Dim sTest, aOutput, iParts, iStart, iStop, sElement, sFinalText
  sTest = Replace(sStringIn,",",sChar)
  sFinalText = sTest 
  iParts = 0
  aOutput = Array()
   Do While Len(sStringIn) > 0
    iStart = InStr(sTest, Chr(34))
     If iStart >= 0 Then
      iStop = InStr(iStart + 1, sTest, Chr(34))
       If iStop > 0 Then
        ReDim Preserve aOutput(iParts)
        aOutput(iParts) = Mid(sTest, iStart+1, iStop - iStart-1)
        iParts = iParts + 1
        sTest = Mid(sTest, iStop+1)
       Else
        Exit Do
       End If
     Else
      Exit Do
     End If
   Loop
   For Each sElement In aOutput
    sFinalText = Replace(sFinalText,sElement,Replace(sElement,sChar,","))
   Next 
  fParseCSV = Replace(sFinalText,Chr(34),"")
 End Function
 

 

I love non-COM script solutions, but FYI,
for those of you who are SQL/ADO savvy, check this out: http://www.tek-tips.com/faqs.cfm?fid=3323

Excellent work.

ADO is definately the way to go - if you can be certain that every machine your script will be running on has the correct configuration.