Visual Basic - Añadir lineas a un fichero sin borrar contenido

Hola, me gustaría saber como añadir lineas una debajo de la otra a un fichero que tengo creado pero sin borrar la anterior.

Ejemplo:

Linea1
Linea2
Linea3

Gracias.

Open "c:\prueba.txt" For Append As #1

Print #1, "Esto es una prueba"
Print #1, "Esto es una prueba"
Print #1, "Esto es una prueba"
Print #1, "Esto es una prueba"

Close #1