Dim TempString() As String
        Dim Zaehler As Integer = 0
 
        TempString = System.IO.File.ReadAllLines("c:\test.txt")
 
        While Zaehler <= TempString.Length - 1
            If TempString(Zaehler).StartsWith("Suchwort=") Then
                Label1.Text = (TempString(Zaehler))
            End If
            Zaehler += 1
        End While