Using the AdvancedSearchComplete Event and the AdvancedSearchStopped Event
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
MsgBox "The search has finished running and found " & _
SearchObject.Results.Count & " results.", vbOKOnly + vbInformation, _
"Advanced Search Complete Event" End Sub