Add column headers to csv output file

[shadowsanders]

Can someone tell me exactly what to add to this code to have the column header titles appear as the first line of the csv file that is created? Hopefully this is an easy question for a developer and any help would be greatly appreciated.

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim nbcol As Integer
Dim k As Integer
Dim newline As String
Dim fileName As String
Dim fileNum As Integer
Dim item As NotesItem

Set db = s.CurrentDatabase
Set view = db.GetView( "Custom Export NOR" )
nbcol = Ubound(view.Columns)
Set doc = view.getfirstdocument


fileName = "\\CC Charts\CustomExportNOR.csv"

fileNum = Freefile()
Open fileName For Output As fileNum

k = 0
While Not (doc Is Nothing)

newline = ""
For k = 0 To nbcol
newline = newline + doc.ColumnValues(k)
If k <> nbcol Then newline = newline + ","

Next

Print #fileNum, newline
Set doc = view.GetNextDocument(doc)
Wend

Close fileNum


End Sub