Dim TextDatei As String="D:\irgendwas.txt"
Dim NeuerInhalt as string="Hier steht die neue Zeile"
Dim AlterInhalt As String = My.Computer.FileSystem.ReadAllText(TextDatei)
 
Dim sw As New System.Io.StreamReader(TextDatei)
sw.WriteLine(NeuerInhalt)
Sw.Write(AlterInhalt).
sw.Close

EALA FREYA FRESENA