次の例では、ユーザー定義のビューエントリを最大 10 個検索し、それらをフォルダに入れます。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As notesViewEntryCollection
Dim entry As NotesViewEntry
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set vc = View.GetAllEntriesByKey("Schools")
Set entry = view.GetEntryByKey("Schools")
Set doc = entry.Document
Call vc.FTSearch(Inputbox$("Entry name?"), 10)
Call vc.PutAllInFolder("Education")
End Sub