Imports System

Imports System.Xml

Imports HtmlAgilityPack

Public Module Module1

    Public Sub Main()

        Dim link As String = "http://my.horoscope.com/astrology/free-daily-horoscope-gemini.html"

        Dim doc As HtmlDocument = New HtmlWeb().Load(link)

        Dim div As HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@class='fontdef1']")

        If Not div Is Nothing Then

            Console.WriteLine(div.InnerText.Trim())

        End If

    End Sub

End Module