This code will show find dialog in web browser
here is the code
Dim data As DataObject = Clipboard.GetDataObject 'get current clipboard
Me.WebBrowser1.Document.ExecCommand("Copy", False, Nothing)
WebBrowser1.Select()
SendKeys.SendWait("^f")
Clipboard.SetDataObject(data) 'load previous clipboard back