This script must include the file LSCONST.LSS.
Dim db As New NotesDatabase( "", "indexme.nsf" )
Dim collection As NotesDocumentCollection
Dim answer As Integer
If Not ( db.IsFTIndexed ) Then
answer = Messagebox _
( "Do you want to create an index?", MB_YESNO )
If ( answer = IDYES ) Then
Call db.UpdateFTIndex( True )
End If
End If
Set collection = db.FTSearch( "blue", 0 )
'...do something with collection...