Dim buffer
buffer = ("C:\archivo.txt)
Dim buffer2 As Integer
buffer2 = FreeFile
Open buffer For Output As #buffer2
Print #buffer2, "Hola - Linea 1"
Print #buffer2, "Bye  - Linea 2"
Close #buffer2