Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://tender.interpipe.biz")
        Dim response As System.Net.HttpWebResponse = request.GetResponse
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim rssourcecode As String = sr.ReadToEnd
        Dim r As New System.Text.RegularExpressions.Regex("\<td.*?\>.*?\<\/td\>")
        Dim matches As MatchCollection = r.Matches(rssourcecode)
        Dim i As Integer = 1
        For Each itemcode As Match In matches
            TextBox1.AppendText(i & ". " & itemcode.Value & vbCrLf)
            i += 1
        Next
        

Module Module1

    Sub Main(ByVal ID As Integer, ByVal NAME As String, ByVal URL As String, ByVal TAGS As String, ByVal CHARSET As String)

        Dim web As New HtmlWeb
        Dim CodeHTML As String
        If (CHARSET = 0) Then
            web.OverrideEncoding = Encoding.UTF8
        ElseIf (CHARSET = 1) Then
            web.OverrideEncoding = Encoding.GetEncoding("windows-1251")
        End If
        Dim doc As New HtmlDocument
        doc = web.Load(URL)
        For Each link As HtmlNode In doc.DocumentNode.SelectNodes("//tr")
            CodeHTML = link.OuterHtml
            addCode(ID, CodeHTML)
        Next

    End Sub

    Sub addCode(ByVal id As Integer, ByVal code As String)
  
        'Добавление данных в  базу
  
    End Sub
End Module

For Each link As HtmlNode In doc.DocumentNode.SelectNodes("//tr[@class='head']")

<a href="/textpart2.php">Вторая страница</a>

<a href="/

<a href="http:

http://www.site.com