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

Dim lines() As String = _
   {"hans = 1", "peter = 2", "ute = 7", "steffi = 11", "otte = 5", "han = 2"}
'oder lines = IO.File.ReadAllLines(---)
 
For i As Integer = 0 To lines.length - 1
    If lines(i) = "otte = 5" Then 
       lines(i) = "otte = 7"
       Exit For '????
    End If
Next i
 
IO.File.WriteAllLines("C:\Daten\wasauchimmer.txt", lines)

Public Class Form1
 
    Dim dtPunkte As New DataTable
    Dim Dateipfad As String = System.IO.Path.Combine( _
      Environment.GetEnvironmentVariable("appdata"), "Punkteverwaltung")
    Dim PunkteXML As String = System.IO.Path.Combine( _
    Environment.GetEnvironmentVariable("appdata"), "Punkteverwaltung", _
    "punkte.xml")
 
    Private Sub Form1_FormClosing(sender As Object, e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        DataGridView1.EndEdit()
        dtPunkte.AcceptChanges()
        dtPunkte.WriteXml(PunkteXML)
    End Sub
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        dtPunkteInitialisieren()
 
        If Not System.IO.Directory.Exists(Dateipfad) Then
            System.IO.Directory.CreateDirectory(Dateipfad)
            dtPunkteFuellen()
        Else
            dtPunkte.ReadXml(PunkteXML)
        End If
 
        DataGridView1.DataSource = dtPunkte
 
    End Sub
 
    Private Sub dtPunkteInitialisieren()
        With dtPunkte
            Dim IDCol As DataColumn = dtPunkte.Columns.Add("ID", Type.GetType( _
              "System.Int32"))
            IDCol.AllowDBNull = False
            IDCol.Unique = True
            IDCol.AutoIncrement = True
 
            .Columns.Add("Name", Type.GetType("System.String"))
            .Columns.Add("Punkte", Type.GetType("System.Int32"))
 
            .TableName = "Punktetabelle"
 
            Dim primaryKey(1) As DataColumn
            primaryKey(1) = .Columns("ID")
            .PrimaryKey = primaryKey
 
        End With
    End Sub
 
    Private Sub dtPunkteFuellen()
 
        Dim i As Integer = 0
 
        Dim SpielerUndPunkte As String = _
          "hans=1,peter=2,ute=7,steffi=11,otte=5,han=2"
 
        Dim arrSpieler() As String = SpielerUndPunkte.Split(",")
 
        For i = 0 To UBound(arrSpieler)
            Dim arr() As String = arrSpieler(i).Split("=")
            Dim newRow As DataRow = dtPunkte.NewRow
            newRow("ID") = i
            newRow("Name") = arr(0)
            newRow("Punkte") = arr(1)
            dtPunkte.Rows.Add(newRow)
        Next
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
        dtPunkte.WriteXml(PunkteXML)
    End Sub
End Class

EALA FREYA FRESENA