Private Function AcquireHTML(address As String) As String
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse = Nothing
        Dim reader As StreamReader
        Dim sbSource As StringBuilder

        Try
            ' Create and initialize the web request
            request = TryCast(System.Net.WebRequest.Create(address), HttpWebRequest)
            request.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)"
            request.KeepAlive = False
            request.Timeout = 5 * 1000
            ' Get response
            response = TryCast(request.GetResponse(), HttpWebResponse)
            If request.HaveResponse = True AndAlso response IsNot Nothing Then
                ' Get the response stream
                reader = New StreamReader(response.GetResponseStream())
                ' Read it into a StringBuilder
                sbSource = New StringBuilder(reader.ReadToEnd())
                response.Close()
                '  
                ' Console application output
                Return sbSource.ToString()
            Else
                Return ""
            End If
            reader.Close()

        Catch ex As Exception

            response.Close()
            Return ""
        End Try
    End Function

 Private Function GetTitle(strIn As String) As String

        Dim collection As MatchCollection = Regex.Matches(strIn, "<title>([^<]*)</title>", RegexOptions.IgnoreCase Or RegexOptions.Multiline)
        For Each m As Match In collection
            If m.Value.IndexOf("<title>") >= 0 Then
                Dim intStart As Integer = m.Value.IndexOf("<title>")
                Dim intEnd As Integer = m.Value.LastIndexOf("</title>")
                Return m.Value.Substring(intStart + 7, intEnd - intStart - 7)
            End If
        Next
        Return ""
    End Function

   <button class="show-more" data-start="10">Показати більше результатів 11 — 20 з 1 773</button>
    
									</div>
			</div>
		</div>