По ключевым словам осуществляется поиск информации в сети интернет и первые 10 ссылок заносятся в базу данных

Private Sub CommandButton1_Click()
    Dim ie As Object ' Объект Internet Explorer
    Dim html As Object ' Объект HTMLDocument
    Dim linkTags As Object ' Коллекция тегов <a> (гиперссылки)
    Dim linkTag As Object ' Объект HTMLLinkElement
    Dim myText As String
    Dim i As Integer
    Dim ws As Worksheet ' Рабочий лист
 
    ' Создаем экземпляр Internet Explorer
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True ' Делаем окно Internet Explorer видимым
 
    ' Открываем веб-страницу
    myText = TextBox1.Value
 
    ' Заменяем все пробелы на знак +
    For i = 1 To Len(myText)
        If Mid(myText, i, 1) = " " Then
            myText = Replace(myText, " ", "+")
        End If
    Next i
 
    ie.Navigate "https://www.google.com/search?q=" & myText ' Здесь указываем URL страницы, которую хотим спарсить
 
    ' Ждем, пока страница загрузится полностью
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
 
    ' Получаем объект HTMLDocument из текущей веб-страницы
    Set html = ie.document
 
    ' Создаем или находим лист "база данных"
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("база данных")
    On Error GoTo 0
    If ws Is Nothing Then
        ' Если лист не существует, создаем новый лист
        Set ws = ThisWorkbook.Sheets.Add(, ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "база данных"
    End If
 
    ' Находим последнюю заполненную строку в столбце A на листе "база данных"
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row + 1
 
    ' Находим коллекцию тегов <a> (гиперссылки)
    Set linkTags = html.getElementsByTagName("a")
 
    ' Записываем ссылки в столбец A на лист "база данных"
    Dim linkText As String
    For i = 0 To 20
        Set linkTag = linkTags.Item(i)
        linkText = linkTag.href ' Извлекаем значение атрибута href (ссылка)
        ws.Cells(lastRow, 1).Value = linkText ' Записываем ссылку на лист "база данных"
        lastRow = lastRow + 1
    Next i
 
    ' Освобождаем ресурсы
    ' ie.Quit
    Set linkTag = Nothing
    Set linkTags = Nothing
    Set html = Nothing
    Set ie = Nothing
End Sub

Set linksClass = HTML.getElementsByClassName("link serp-item__title-link")
If linkTags.Length > 0 Then
For iEach = 0 To linksClass.Length
   MsgBox linksClass(iEach).href
Next iEach
End If

sMyText = "купить+покемона"
sLink = "https://yandex.by/search/?text=" & sMyText & "&lr=157&" 
For iRepeat = 1 to 2
   sLink = sLink & "p=" & iRepeat - 1
   Set linksClass = HTML.getElementsByClassName("link serp-item__title-link")
   If linkTags.Length > 0 Then
      For iEach = 0 To linksClass.Length
         MsgBox linksClass(iEach).href
      Next iEach
   End If
Next iRepeat

Private Sub CommandButton1_Click()
    Dim ie As Object ' Объект Internet Explorer
    Dim html As Object ' Объект HTMLDocument
    Dim linkTags As Object ' Коллекция тегов <a> (гиперссылки)
    Dim linkTag As Object ' Объект HTMLLinkElement
    Dim myText As String
    Dim i As Integer
    Dim ws As Worksheet ' Рабочий лист
 
    ' Создаем экземпляр Internet Explorer
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True ' Делаем окно Internet Explorer видимым
 
    ' Открываем веб-страницу
    myText = TextBox1.Value
 
    ' Заменяем все пробелы на знак +
    For i = 1 To Len(myText)
        If Mid(myText, i, 1) = " " Then
            myText = Replace(myText, " ", "+")
        End If
    Next i
 
    ie.Navigate "https://yandex.ru/search/?text=" & myText ' Здесь указываем URL страницы, которую хотим спарсить
 
    ' Ждем, пока страница загрузится полностью
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
 
    ' Получаем объект HTMLDocument из текущей веб-страницы
    Set html = ie.Document
 
    ' Создаем или находим лист "база данных"
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("база данных")
    On Error GoTo 0
    If ws Is Nothing Then
        ' Если лист не существует, создаем новый лист
        Set ws = ThisWorkbook.Sheets.Add(, ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "база данных"
    End If
 
    ' Находим последнюю заполненную строку в столбце A на листе "база данных"
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row + 1
 
    ' Находим коллекцию тегов <a> (гиперссылки)
    Set linkTags = html.getElementsByClassName("Link Link_theme_normal OrganicTitle-Link organic__url link i-bem")
    
 
    ' Записываем ссылки в столбец A на лист "база данных"
    Dim linkText As String
    Dim linkClass As Object
    Dim classText As String
    
    For i = 0 To 20
        Set linkTag = linkTags.Item(i)
        linkText = linkTag.href ' Извлекаем значение атрибута href (ссылка)
        ws.Cells(lastRow, 1).Value = linkText ' Записываем ссылку на лист "база данных"
        lastRow = lastRow + 1
    Next i
 
    ' Освобождаем ресурсы
    ' ie.Quit
    Set linkTag = Nothing
    Set linkTags = Nothing
    Set html = Nothing
    Set ie = Nothing
End Sub