Visual Basic - Problemas con FreeFile()

Tengo el siguiente codigo, pero como puedo guardar el archivo "prog2.txt" pero que sea en formato de archivo "UNIX" y Encoding "ANSI" lo necesito de esta manera porque asi es la unica forma que me funcione cuando lo leo de un programam externo.

N1 = FreeFile()

Open "C:\Vulcan_envisage\Rosario\prog2.txt" For Output As #N1

Print #N1, Lineas(0) & "#---------------------------------------------------------------------------"
Close #N1


Gracias

Añade un caracter 13 + un punto y Coma al final de cada linea

N1 = FreeFile()

Open "C:\Vulcan_envisage\Rosario\prog2.txt" For Output As #N1

Print #N1, Lineas(0) & "#------------------------------------------ "; chr$(13);
Close #N1

Despues se imprimir una linea sin el punto y coma en el fichero el sistema el sistema añade un salto de linea para MS-DOS, si se le pone un punto y coma supone que lo siguiente que se imprime se hace a continuación de la linea impresa.

El salto de línea para MS-DOS es un CR + LF, es decir un caracter 13 + un caracter 10, como en unix el salto de linea es el caracter 13 le forzamos el salto de linea y evitamos el salto automatico.

NOTA:

Si el fichero lo tienes que enviar por FTP a una maquina UNIX este si le dices que el fichero es tipo ASCII hace la conversión

Ejemplo de envio por FTP

OPEN {000.000.000.000}
USER {username} {password}
ASC
PUT prog2.txt
BYE

Gracias Antoni , genere el archivo pero habro el archivo en el programa "TEXPAD"
y si voy a las opciones en save as en FILE FORMAT dice NO CHANGE y de esta forma no me funciona pero despues yo lo salvo como opcion PC o UNIX y el mismo archivo si me funciona. entonces ¿como puedo dejar el archivo listo con la opcion PC o UNIX?

Diego