Scripting Excel to write CSV from VBA

CSVWriter.bas

' Class module CSVWriter
Private Excel As Object
Private sheet As Object
Private book As Object
Private rowNum As Integer

Private Sub Class_Initialize()
  Set Excel = CreateObject("Excel.Application")
  Set book = Excel.Workbooks.Add
  Set sheet = book.ActiveSheet
  rowNum = 1
End Sub

Public Sub WriteRow(ParamArray values() As Variant)
  For c = 0 To UBound(values)
    sheet.Cells(rowNum, c + 1) = values(c)
  Next c
  rowNum = rowNum + 1
End Sub

Public Sub Save(path As String)
  If Len(Dir(path)) > 0 Then
    Kill path
  End If
  sheet.SaveAs FileName:=path, FileFormat:=6
  book.Saved = True
End Sub

Public Sub Quit()
  book.Close
  Excel.Quit
  Set Excel = Nothing
  Set sheet = Nothing
  Set book = Nothing
End Sub