I just happened to be reading this thread before looking into an old application I needed some information from, written in VB6 (uhoh) it has the most absurd way of creating a CSV file I've ever seen.
'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
'Select the first worksheet in the new workbook
Set oSheet = oBook.Worksheets(1)
'Write out the column headers
oSheet.Range("A1").Value = "No"
oSheet.Range("B1").Value = "Model"
oSheet.Range("C1").Value = "MFG"
oSheet.Range("D1").Value = "S/N"
...snip dumping all the fields from the array into excel cell by cell...
'Save the Workbook and Quit Excel
oBook.SaveAs App.Path + "\Data\" + gExcelFileSaved
oExcel.Quit