Dim CSV As TextWriter
Dim sAnsi = "Windows-1252" As String
Dim sWinCRLF = Chr(13) & Chr(10) As String ' Windows CRLF
CSV.Initialize2( File.OpenOutput( sP, sF, False ), sAnsi )
CSV.Write(SHeaderLine & sWinCRLF )
...
CSV.Write(sDataLine & sWinCRLF )
...
CSV.Close