Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
        If System.IO.File.Exists("Pfad patch.txt") Then
            MessageBox.Show("da")
        Else
            MessageBox.Show("nicht da")
        End If
    End Sub

EALA FREYA FRESENA

    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

Dim lines As String() = IO.File.ReadAllLines(filename_in)
lines(linenumber) = Newtext
IO.File.WriteAllLines(filename_out, lines)