Creating an ISearchAdmin Object

You create an ISearchAdmin object by calling CreateObject, as in the following example, where objSearchAdmin is the name you give to the new ISearchAdmin object:

Option Explicit 
On Error Resume Next

Dim SearchAdmin

Set SearchAdmin = CreateObject("Search.SearchAdmin.1") 

...
'Release ISearchAdmin object 
Set SearchAdmin = Nothing