Automating Internet explorer with Excel VBA Part 2

How to get the search results from google for the given keywords

Sub iepart2()

Dim ie As Object
'
Set ie = CreateObject("internetexplorer.application")

With ie
    .Visible = True
    .navigate "https://www.google.co.in"

Do While .busy
    DoEvents
Loop

Do While .readystate <> 4
    DoEvents
Loop

Set searchtxt = .document.getelementbyid("q")

searchtxt.Value = "Amarindaz"

.document.forms(0).submit

Do While .busy
    DoEvents
Loop

Do While .readystate <> 4
    DoEvents
Loop

Set searchres = .document.getelementbyid("resultStats")


ThisWorkbook.Sheets(1).Range("A1") = searchres.innertext


.Quit

End With
End Sub