Dim Suchwort As String = "irgendwas"
        Dim text As String() = System.IO.File.ReadAllLines("c:\test.txt")
        Dim Wert As String = ""
 
        If text.StartsWith(Suchwort) AndAlso _
           text.Length > Suchwort.Length + 1 Then
 
            Wert = text.Substring(Suchwort.Length + 1)
            Label1.Text = Wert
        End If