Microsoft Internet Controls

[LeandroA]

Hola porque no pruevas esto escrives en un test1 lo que buscas y te lo muestra en el webbroser
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.google.com.ar/search?hl=es&q=" & Text1.Text & "&meta="
End Sub
y si quieres que los resulatdos te los muestre en un textbox y no el el webbrowser
(agrega un text2 multiline)y pega este otro codigo

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.google.com.ar/search?hl=es&q=" & Text1.Text & "&meta="
End Sub

Private Sub WebBrowser1_DownloadComplete()
Text2.Text = WebBrowser1.Document.body.outerText
End Sub


y te dejo otra muy buena por si te interesa
sirve para mostrar el historial de busqueda en el text1 solo tienes que pegar este codigo al principio del formulario:
Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
Private Const SHACF_URLHISTORY = &H2
Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long)

Private Sub Form_Load()
SHAutoComplete Text1.hWnd, (SHACF_URLHISTORY And SHACF_AUTOAPPEND_FORCE_ON)
End Sub