Escribir en archivos de texto

Buenas, les cuento. Tengo una funcion que abre un archivo de texto y escribe una linea. Mi problema, es que la linea se pisa, y no se escribe al final del archivo. Es decir, que en mi archivo de texto siempre hay una sola linea, la ultima escrita. Y yo necesito que las lineas no se pisen. Mi codigo es: Global Const rutaArch As String = "C:\Banner\imagenes.txt" linea = nomCompleto & ";" & strIni & ";" & strFin Open rutaArch For Output As #1 Print #1, linea Close #1 Alguna idea por favor?