If all you are interested in is knowing when user entered Ctrl+F to bring up the "Find" dialog box then you can use this:

Code:
Private Sub WebBrowser1_PropertyChange(ByVal szProperty As String)
 If szProperty = "__IE_FindDialog" Then
   Caption = "You invoked the 'Find Dialog Window'"
 End If
End Sub