Figurati, grazie a te per la tua pazienza.
Ho corretto solo questa istruzione:

codice:
Dim reader As IO.StreamReader = IO.File.OpenText("C:/foglio.txt")
Così non sono segnalati errori, ma a video mi riporta solo il risultato della prima riga come prima, senza l'aggiunta del tuo pezzo.

Forse bisognerebbe creare un ciclo per riscrivere tutti i dati ?

Allora avevo pensato di far contare gli elementi dell'arraylist, come riportato qui, da usare come contatore delle righe da mostrare. Purtroppo sono troppo scarso e non ci sono riuscito.

Anche se il mio obiettivo finale è ricreare un file di testo in txt e non una visualizzazione a video. Grazie ancora