What does this SQL parsing code actually do?

[pioneer2000]

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCSVFile = objFSO.OpenTextFile("sample.csv",1)
Set objResultFile = objFSO.CreateTextFile("results.txt",true)

Do while NOT objCSVFile.AtEndOfStream
arrStr = split(objCSVFile.ReadLine,",")
If arrStr(0) <> "" And arrStr(0) <> "string not to include" Then
strResults = strResults & arrStr(0) & "+"
End If
Loop
objResultFile.Write strResults
objCSVFile.Close
objResultFile.Close


Thanks! Oops - typed SQL rather randomly! VB even.