Public Function CreateTextFile( _
   ByVal FileName As String, _
   Optional ByVal Overwrite As Boolean = True, _
   Optional ByVal Unicode As Boolean = False _
) As TextStream