Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        'In diesem Beispiel wird die sechzehnte Zeile durch einen Zeitstempel 
        ' ersetzt
 
        Dim ZuAenderndeTextdatei As String = "D:\beispiel.txt"
 
        If Not System.IO.File.Exists(ZuAenderndeTextdatei) Then
            MessageBox.Show("Die zu ändernde Datei ist nicht vorhanden!", _
              "Hinweis:")
            Exit Sub
        End If
 
        Dim NeuerText As String = "Die Uhrzeit lautet: " & Now
 
        Dim sr As New System.IO.StreamReader(ZuAenderndeTextdatei)
        Dim Inhalt As String = sr.ReadToEnd
        sr.Close()
 
        Dim arr() As String = Inhalt.Split(vbCrLf)
 
        If arr.Length < 16 Then
            MessageBox.Show("Deine Datei hat leider weniger Zeilen und es kann" & _
              "nichts geändert werden!", "Hinweis:")
        Else
            arr(15) = NeuerText
 
            Dim sw As New System.IO.StreamWriter(ZuAenderndeTextdatei)
            Dim i As Integer = 0
            For i = 0 To arr.Length - 1
                sw.WriteLine(arr(i))
            Next
            sw.Close()
 
            MessageBox.Show("Deine Datei wurde geändert!", "Hinweis:")
 
        End If
 
    End Sub

EALA FREYA FRESENA