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...