Io mi sbatterei di meno ed userei un controllo WebBrowser e Document.Body.InnerHtml (non si può usare Document.Body.InnerText, purtroppo, perché vengono eliminati gli spazi tra i numeri, visto che sono posti in una tabella)

codice:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim URL As String = "http://www.lottomaticaitalia.it/home/index.html"

        WebBrowser1.Navigate(URL)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim Testo As String = WebBrowser1.Document.Body.InnerHtml

        Testo = Testo.Substring(Testo.IndexOf("<DIV class=caption>Ecco i 20 numeri vincenti del"))
        Testo = Testo.Substring(Testo.IndexOf("<TBODY>") + 9)
        Testo = Testo.Substring(0, Testo.IndexOf("</TBODY>"))
        Testo = Testo.Replace("<TR>", "").Replace("</TR>", "").Replace("<TD>", "").Replace("</TD>", " ")
        Testo = Testo.Replace(vbCr, "").Replace(vbLf, "")

        TextBox1.Text = Testo

    End Sub
Bye!