Public Class Form1
 
    'Wir haben einen Button1 auf der Form1 und eine TextBox1 mit Einstellung 
    ' "Multiline":
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim strDatei As String = "d:\testdatei.txt"
        Dim strZeile As String
        Dim strText As String
 
        Dim sr As New System.IO.StreamReader(strDatei)
 
        Do While Not sr.EndOfStream
            strZeile = sr.ReadLine()
            If strZeile.Contains("_Start") Then
                Do
                    strZeile = sr.ReadLine()
                    If Not strZeile.Contains("_Ende") Then
                        strText = strText & strZeile & vbCrLf
                    End If
                Loop Until strZeile.Contains("_Ende")
            End If
        Loop
 
        sr.Close()
 
        TextBox1.Text = strText
 
    End Sub
End Class

EALA FREYA FRESENA