como ejecutar la bentana de buscar el IE

[pkj]

Código :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
Private Sub Buscar(Optional TextoABuscar As String)
  WebBrowser1.SetFocus
  Call keybd_event(vbKeyControl, 0, 1, 0)
  Call keybd_event(vbKeyF, 0, 1, 0)
  Call keybd_event(vbKeyF, 0, 3, 0)
  Call keybd_event(vbKeyControl, 0, 3, 0)
  DoEvents
  If TextoABuscar <> "" Then
    SendKeys TextoABuscar
    SendKeys "~"
  End If
End Sub
 

Igual esto te sirve