Visual Basic - Borrar contenido de fichero de texto

Hola,
Necesito que me ayudéis en esto:

Tengo un fichero de text al que tengo que acceder en leer datos de el y luego borrar los datos leidos, pero todo en la misma apertura del fichero, es decir:
Abrir el fichero -> leer datos -> borrar datos leidos -> cerrar fichero

Muchas gracias por vuestro tiempo y conocimientos

Marcos:
Para abrirlo para leerlo
Open "Archivo.txt" For Input As #1
Do While Not EOF(1)
Input #1, t
loop
En la variable t va tomando cada renglón o registro.
Luego de leerlo quieres borrarlo
Pues haz así:
Close#1 '--- primero lo cierras
Open "archivo.txt" for Output as #1
Close#1

y listo el archivo queda en cero
Espero que te sirva

Saludos desde Argentina
Daniel