debug code

hi,
I have code to search in documents using VB and index service but there is error in code i need one to debug that code for me,the error is "object required" in line :Set oQuery = Server.CreateObject("ixsso.Query").
the code is:
Dim sSearchString
Dim oQuery

sSearchString = "Search Para"

Const SEARCH_CATALOG = "catalog_name" 'remember to change this
Set oQuery = Server.CreateObject("ixsso.Query")

oQuery.Catalog = SEARCH_CATALOG

oQuery.Query = "@all "
'---------------------------------------------------------
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d]"
oQuery.Columns = "DocAuthor, vpath, doctitle, FileName, Path, Write, Size, Rank, Create, Characterization, DocCategory"
Set oRS = oQuery.CreateRecordSet("nonsequential")
'%>
'<%
If oRS.EOF Then
Response.Write "No pages were found for the query <i>" & sSearchString & "</i>"
Else
Do While Not oRS.EOF
'''' Here You Can Display it, the Way You Want Now.
'---------------------------------------------------------
MsgBox "\nFileName:</b> " & oRS("FileName") & "\n"
MsgBox "\ndoctitle:</b> " & oRS("doctitle") & "\n"
MsgBox "\nSize:</b> " & oRS("Size") & "\n"
MsgBox "\nCreate:</b> " & oRS("Create") & "\n"
MsgBox "\nWrite:</b> " & oRS("Write") & "\n"
MsgBox "\nCharacterization:\n " & oRS("Characterization") & "\n"
'---------------------------------------------------------

oRS.MoveNext
Loop
End If

Is Index Server installed on your web server?

I use windows XP,so I need this code(VB code) to retrieve documents stored on my PC
I need to search in those documents,means to search like index service does.
if you mean index service which inside computer management>>index service.it is working.
if not this tell me please what can I do.