Dim sr As New System.IO.StreamReader("d:\juhu.txt")
        Dim inhalt As String = sr.ReadToEnd()
 
        sr.Close()
 
        Dim arr1() As String = Split(inhalt, "<!--Headline-->" & vbCrLf)
        Dim arr2() As String = Split(arr1(1), "</h1>")
 
        inhalt = arr1(0) & "Neuer Text" & vbCrLf & arr2(1)
 
        MsgBox(inhalt)

EALA FREYA FRESENA