VB Datei öffnen und bestimmte Zeile kopieren

Hallo ich wollte fragen ob es mit Visual Basic möglich ist, dass ich eine Datei öffne in der Datei dann nach einen bestimmten Inhalt gesucht wird und dieser kopiert wird.
Anschließend soll der Inhalt über ein Label ausgegeben werden.

ZB. ich hab eine Text datei in der Stehen die Wörter:
Hallo Alf na wie geht es deinen 20 Kindern und 44 Hunden.

Ich will jetzt das VB die Textdatei öffnet den Inhalt Scannt und alles nach Kindern kopiert und ausgibt. Also in dem Fall: " und 44 Hunden"

xD Hoffe das geht lg

 

Dim searchtext As String = TextBox2.Text.ToString()
Dim reader As New System.IO.StreamReader(TextBox1.Text.ToString())
Dim text As String = reader.ReadToEnd()
text = text.Substring(text.IndexOf(search) + searchtext.Text.Length)
label1.Text = text
reader.Close()

Hoffe das reicht....

 

ungetestet:

Code:

Private Sub suchen()
Dim suchwort As String
suchwort = "Hier steht was gesucht wird"

Dim suchdatei As String
suchdatei = "C:\Pfad\Dateiname.txt"

Open suchdatei For Input As #1
    Do While Not EOF(1)
        Line Input #1, s
        p = InStr(s, " ")
        If p > 0 Then
            a = Mid(s, 1, p - 1)
            b = Mid(s, p + 1, Len(s))
            If UCase(a) = UCase(suchwort) Then MsgBox b, vbExclamation
        End If
    Loop
    Close #1

End Sub

suchwort musst du durch deinen Suchbegriff ersetzen
suchdatei durch den Pfad zu deiner Textdatei