Sobre manejo de archivos

[Said]

Hola como puedo hacer para escribir en una archivo una cadena pero que cada vez que escriba otra cadena la ponga en la siguiente linea?

Private Sub MGuardar_Click()
Dim Said As String
Dim I As Integer
Said = ""
Open "C:\prueba.imp" For Output As #1
For I = 1 To 10

Said = Said & "Ney"
Seek #1, I
Print #1, Said

Next I
Close #1
End Sub


Yo usaba esto pero asi escribe las cadenas en la misma linea.



Gracias.