title: Using HtmlAgilityPack in VB.Net to Get Text from a Website
body: <p>I am writing a program for my girlfriend that allows her to open the program and it will automatically gather her a quote from a Horoscope website and display that line of text in a TextBox.</p>
  
  <p>As of what I have now, it basically displays the entire website in HTML, which is not what I want. This is the HTML line that I need to grab.</p>
  
  <pre><code>&lt;div class="fontdef1" style="padding-right:10px;" id="textline"&gt;
  "You might have the desire for travel, perhaps to visit a friend who lives far away, Gemini. You may actually set the wheels in motion to make it happen. Social events could take up your time this evening, and you could meet some interesting people. A friend might need a sympathetic ear. Today you're especially sensitive to others, so be prepared to hear a sad story. Otherwise, your day should go well. 
  &lt;/div&gt;
  </code></pre>
  
  <p>The code that I have so far is.</p>
  
  <pre><code>Imports System.Net
  Imports System.IO
  Imports HtmlAgilityPack
  
  Public Class Form1
  
      Private Function getHTML(ByVal Address As String) As String
          Dim rt As String = ""
  
          Dim wRequest As WebRequest
          Dim wResponse As WebResponse
  
          Dim SR As StreamReader
  
          wRequest = WebRequest.Create(Address)
          wResponse = wRequest.GetResponse
  
          SR = New StreamReader(wResponse.GetResponseStream)
  
          rt = SR.ReadToEnd
          SR.Close()
  
          Return rt
      End Function
  
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          Label2.Text = Date.Now.ToString("MM/dd/yyyy")
          TextBox1.Text = getHTML("http://my.horoscope.com/astrology/free-daily-horoscope-gemini.html")
      End Sub
  End Class
  </code></pre>
  
  <p>Thank you for any help that I can get. I honestly have no idea where to go with this program now. It's been 3 days with no progress.</p>