It's easy to generate a CSV file with any delimiter by using this class module.
Hope useful to anyone.
Assumes
How to use it?
See sample
First, add this module to class module entry in your project.
Declare a variable:
Dim CSVFile as New NewCSV
With CSVFile
.FileName=
.Delimiter={input one character}
.Header={default is False}
If Dir(.FileName)<>"" then
.Open
.MoveFirst
Do While Not .EOfF
Debug.Print .Fields(0)
.MoveNext
Loop
EndIf
End With