Dim httpRequest As HttpWebRequest = HttpWebRequest.Create( _
  "http://www.irgendwas.html")
        Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
        Dim reader As StreamReader = New StreamReader( _
          httpResponse.GetResponseStream)
        Dim httpContent As String = reader.ReadToEnd
 
        'txtSourcecode.Text = httpContent
 
        'Abfrage 1 = Filmtitel
        Dim Titel_RegEx As New Regex("\<title\>(?<string>(.*))<\/title\>")
        Dim Titel As String = Titel_RegEx.Match(httpContent).Groups( _
          "string").ToString()
 
        Titellabel.Text = "Titel: " & Titel
 
 
        'Abfrage 2 = Kurzinfo
        Dim kinfo_RegEx As New Regex("\<span style=""line-height: 15px;""\>(" & _
          "?<string>(.*))<\/span\>")
        Dim Info As String = kinfo_RegEx.Match(httpContent).Groups( _
        "string").ToString()
 
        kinfobox.Text = Info