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