Examples: FindString method
This script finds a user-defined string in the current UI document.
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