Ayuda a guardar datos en un txt

[ELGRANSOLRAC]

Lo que quiero es guardar en un txt unos datos.Tengo un formulario con un TextBox y un Command y este code:

Código [Seleccionar] Expandir



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
Close #canalLibre
End Sub


Lo que quiero es que cuando introduzca otros datos y aprete el Command no borre los datos que hay en el fichero.txt los guarde en otra Linea y asi continuamente.Muchas gracias al que pueda Ayudarme..

[Xpeed]

no uses Output sino Append para que se agregue ala ultima linea


un saludo.