Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.FindString(Inputbox$( _
"Word or phrase to look for:"))
End Sub

関連項目

FindString メソッド

用語集