Visual Basic - escribir en un archivo

Hola

usola instruccion print # para escribir 3 lineas en un archivo, pero quiero que las siguientes veces que me ejecute ese codigo no me sobreescriba el archivo, sino que siga escribiendo desde la ultima linea, es decir que si la primera vez me ha escrito 3 lineas de texto, la segundo el archivo tendra 6 lineas, la tercera 9,...

como lo hago?
gracias

Puedes guardar lo contenido en una variable, y luego sobreescribir el archivo con una cadena que contenga la suma de la variable anterior + los datos nuevos. Tambièn puedes utilizar objetos FSO :
Din fso, txtfile
set Fso = CreateFile ( " Scripting.FilesystemObject " )
set txtfile = fso.CreateFile ( " ejemplo " , True )
txtfile.write ( " Esto es un ejemplo " ) ' escribe una linea
txtfile.WriteLine ( " esto es otra linea " ) ' añade una nueva linea
txtfile.WriteBlanklines ( 2 ) ' escribe 2 lineas en blanco
txtfile.close

lo que tenes que hacer, es primero abrir el archivo y luego hacer una lectura sobre el mismo y colocarte en .EOF y a partir de que encuentre el final del archivo podes empezar a insertar.

Espero te ayude.
Saludos.