how to add a header to a file visual basic - vba

Question

I have the following code and need to write a header into the file. I am not sure how i go about adding the code so that i can write a header to the file.
My code is as follows:-
Private Enum eCommaSemiColon
Comma = 0
Semicolon = 1
End Enum
Dim lFile As Long
Dim lRow As Long
Dim s As String
Dim lCounter As Long
If Me.CurrentInterval = 1 And Me.CurrentTrial = 1 Then
lFile = FreeFile
Open Me.FileName.Value For Output As #lFile
For lRow = 0 To Me.FileContents.Count - 1
Select Case Me.CommaOrSemiColon.Value
Case eCommaSemicolon.Comma
For lCounter = 0 To Me.NoOfColumns.Value - 1
If lCounter = 0 Then
s = Me.FileContents.Get(lRow, 0)
Else
s = s & "," & Me.FileContents.Get(lRow, lCounter)
End If
Next
Print #lFile, s
Case eCommaSemicolon.Semicolon
For lCounter = 0 To Me.NoOfColumns.Value - 1
If lCounter = 0 Then
s = Replace(CStr(Me.FileContents.Get(lRow, 0)), ".", ",")
Else
s = s & ";" & Replace(CStr(Me.FileContents.Get(lRow, lCounter)), ".", ",")
End If
Next
Print #lFile, s
Case Else
End Select
Next
Close #lFile
Else
End If

Answer 1

At some point before you print to the file, you will simply have to prefix the header string to the s variable. Then print the file. It is that easy
Assuming it's tab-delimited (modify if needed) something like this will create a header string:
Dim header as String
header = "Time" & vbTab & "Number1" & vbTab & "Number2" & vbTab & ...
Then, before you print to file, prefix the header string to the s (which contains the full file text), separating with a Line Feed:
s = header & vbCRLF & s
Now, the s variable should contain the header string and the rest of the file text, so you can use your normal I/O print statement to write the fule.