'Suchstring für Zeilen in denen ausgelesen werden soll (eindeutig)
    Dim searchstring As String = "begriff"
 
    'Datei, die durchsucht werden soll nach Tags
    Dim sourcefile As String = "C:\Pfad\datei.txt"
 
    'Speicherort
    Dim extractfile As String = "C:\Pfad\ausgabe.txt"
 
 
    Public Function auslesen_u_extrahieren() As Boolean
 
        Dim ausgelesen() As String = File.ReadAllLines(sourcefile)
        Dim tags_split() As String
 
        'Leere Ausgabedatei erstellen
        File.WriteAllText(extractfile, "")
 
        For i = 0 To ausgelesen.Length - 1
 
            'Wenn der Searchstring in Zeile enthalten ist, dann ausgeben
            If InStr(ausgelesen(i), searchstring) Then
 
                tags_split = Split(ausgelesen(i), "/")
 
                        File.AppendAllText(extractfile, tags_split(4) & _
                          Environment.NewLine)
 
                    End If
 
                End If
 
            End If
 
        Next
 
    End Function