The problem is resolved .
I changed the code :
Dim CrFormatTypeOptions As New TabAlignment
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.TabSeperatedText
.DestinationOptions = crDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
Thanks.
YB