Dim Dateipfad As String = System.IO.Path.Combine( _
         Application.StartupPath, "irgendwas.txt")
 
        Dim sr As New System.IO.StreamReader(Dateipfad)
        Dim Inhalt As String = sr.ReadToEnd
        sr.Close()
        Inhalt = Inhalt.Replace("otte=5", "otte=7")
 
        Dim sw As New System.IO.StreamWriter(Dateipfad)
        sw.Write(Inhalt)
        sw.Close()

EALA FREYA FRESENA