Вставка информации из в Google из Excel

Private Function GoogleSuggestion(ByVal oIE As Object, ByVal origin As String) As String
    Dim i As Long, t As Double, oDoc As Object, oDiv As Object, oElem As Object
    'Âûæèäàåì ñåêóíäó ïåðåä îáðàùåíèåì ê ñåðâåðó. Ýòî íåîáõîäèìî äëÿ òîãî, ÷òîáû
    'ïðè ìíîãîêðàòíîì âûçîâå äàííîé ôóíêöèè ñåðâåð íå èíèöèèðîâàë îøèáêó
    'îòêàçà â îáñëóæèâàíèè.
    t = Timer() + 1.5
    While Timer < t
        DoEvents
    Wend
    'Ïåðåõîäèì íà google.ru, èñïîëüçóÿ ñòðîêó ïîèñêà origin.
    oIE.Navigate Replace("https://www.google.ru/#newwindow=1&q=" & origin, " ", "+")
    'Æäåì çàãðóçêè ñàéòà.
    While oIE.Busy Or oIE.ReadyState <> 4
        DoEvents
    Wend
    'Èùåì â òåëå äîêóìåíòà HTML-òåã <DIV> ñ èäåíòèôèêàòîðîì "taw". Åñëè òàêîé òåã
    'ïðèñóòñòâóåò, çíà÷èò, Google ïðåäëàãàåò èñïðàâëåíèå, òåêñò êîòîðîãî íàõîäèòñÿ
    'â òåêñòîâîì êîíòåêñòå âëîæåííîãî ýëåìåíòà. Åñëè æå òàêîãî òåãà íåò, òî çíà÷èò,
    'Google íå âèäèò íè÷åãî êðèìèíàëüíîãî â ïðåäëîæåííîé ñòðîêå ïîèñêà origin è íå
    'ïðåäëàãàåò èñïðàâëåíèé.
Continue:
    On Error Resume Next
    Set oDoc = oIE.Document
    If Err.Number <> 0 Then
        Err.Clear
        For i = 1 To 10000
            DoEvents
        Next i
        GoTo Continue
    End If
    Set oDiv = oDoc.getElementById("taw")
    If Err.Number <> 0 Then
        Err.Clear
        For i = 1 To 10000
            DoEvents
        Next i
        GoTo Continue
    End If
    Set oElem = oDiv.Children(1)
    If Err.Number <> 0 Then
        Err.Clear
        For i = 1 To 10000
            DoEvents
        Next i
        GoTo Continue
    End If
    Set oElem = oElem.Children(0)
    If Err.Number <> 0 Then
        Err.Clear
        For i = 1 To 10000
            DoEvents
        Next i
        GoTo Continue
    End If
    Set oElem = oElem.Children(0)
    If Err.Number <> 0 Then
        GoogleSuggestion = origin & " (íåò èñïðàâëåíèé)"
        Exit Function
    End If
    Set oElem = oElem.Children(1)
    GoogleSuggestion = oElem.textContent
    On Error GoTo 0
End Function
 
Public Sub TestSuggestions()
    Dim oIE As Object
    Dim i As Long, msg As String, originalStrings As Variant
    'Ïîëó÷åíèå ññûëêè íà îáúåêò ïðèëîæåíèÿ Internet Explorer
    '(íåîáõîäèì äëÿ ðàáîòû ôóíêöèè GoogleSuggestion).
    Set oIE = CreateObject("InternetExplorer.Application")
    'Äåìîíñòðàöèÿ ðàáîòû ôóíêöèè GoogleSuggestion.
    msg = "Èñõîäíûé òåêñò" & vbTab & "Ïðåäëàãàåìîå èñïðàâëåíèå"
    originalStrings = Array("Audi A6 Allðîóä", "Audi A6 Îëëroad", "Audi A6 Allroad")
    For i = 0 To 2
        msg = msg & vbCr & vbCr & originalStrings(i) & vbTab & GoogleSuggestion(oIE, originalStrings(i))
    Next i
    MsgBox msg
    'Îñâîáîæäàåì îáúåêò Internet Explorer.
    oIE.Quit
    Set oIE = Nothing
End Sub