Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim pass As String
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
pass = Evaluate("@Prompt([PASSWORD]; "Password"; "请输入密码:")", doc)
End Sub