Visual Basic - Error en archivo de texto

Tengo un archivo de texto en el cual quiero que se escriba como mucho 4 veces(guardo direcciones del disco duro) y cuando se escribe una quinta vez quiero eliminar la mas antigua para poner la nueva, y lo he echo con un array de cadenas(dim direc(4) as string) para ordenar hay las posiciones y luego volver a escribir en el archivo de texto.
Entonces le digo al programa que si hay menos de 4 q me lo habra como 'append' y si hay 4 o mas como 'output' pero no me escribe en el fichero.¿Que puedo hacer para dejarlo en blanco y escribir lo que he almacenado en el array. Muchas gracias

Probá hacer lo siguiente, suponiendo que lo más reciente quedá debajo:

Open "ruta del archivo a leer" For input as #1
Open "ruta del archivo a guardar" For Output as #2
Line Input #1, Desecho
While not EOF(1)
Line Input #1, Linea
Print #2, Linea
Wend
Print #2, "Dato nuevo"
Close

Gracias por tu ayuda pero lo necesito para poder hacerlo en un mismo fichero ya que va a cambiar muy a menudo.

Hola que tal.
Te envío un sencillo ejemplo al correo electrónico.
Un saludo

Muchas gracias, mi correo es [email protected] y perdon por las molestias.