Visual Basic - Mover el cursor al cuadro de buscar del navegador

Public WithEvents Obj_Explorer As InternetExplorer

Public Estado As Integer

Public Titulo As String

Private Sub Form_Load()

    Set Obj_Explorer = New SHDocVw.InternetExplorer

    Obj_Explorer.Visible = True

    Obj_Explorer.Navigate "www.google.com"

End Sub

Private Sub Obj_Explorer_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    If Titulo = "Google" Then

        Select Case Estado

            Case Is = 0

            Obj_Explorer.Document.GetElementById("lst-ib").InnerText = "Hola"

            Estado = Estado + 1

        Case Is = 1

            Call SendKeys("{Enter}")

            Estado = Estado + 1

        End Select

    End If

End Sub

Private Sub Obj_Explorer_TitleChange(ByVal Text As String)

Titulo = Text

End Sub