Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim obWeb As HttpWebRequest = HttpWebRequest.Create _
        ("http://www.wallstreet-online.de/si/community/board/search.php?m=1.1." & _
        ".1&&woid=00024679&mpid=3&k=577580&cat=STK&spid=ws&tid=431627&fid=2264")
        '("http://www.bera-fin.de/mittag/index.php?id=0001&user=&PHPSESSID=flo" & _
        "d1109873704")
 
        Dim obresp As HttpWebResponse = obWeb.GetResponse
        Dim mystream As Stream = obresp.GetResponseStream
        Dim reader As StreamReader = New StreamReader(mystream, _
          System.Text.Encoding.Default)
 
        Dim mystring As String = reader.ReadToEnd
 
        TextBox1.Text = mystring
 
    End Sub