Escribir en linea aparte

[bautistasbr]

ola amigos,tengo una aplicacion que me guarda los datos de 2 textbox en un archivo de texto,pero quiero q cada vez q pulse el boton me guarde los datos en otras lineas.Ejemplo:yo guardo el archivo y me sale asi

Amigo
Amigos

pero cuando vuelvo a pulsar el boton me sobrescribe los datos,y quiero q los ponga aparte,mi codigo es este.

Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Print #canalLibre, Text2
Close #canalLibre
End Sub

[NYlOn]

Código [Seleccionar] Expandir


Open "C:\fichero.txt" For Append As #canalLibre

[bautistasbr]

gracias funciona perfectamente