Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim acl As NotesACL
 Dim entry As NotesACLEntry
 Dim levelString As String
 Dim levelConstant As Integer
 Set uidoc = workspace.CurrentDocument
 Set db = session.CurrentDatabase
 Set acl = db.ACL
 levelString = Inputbox$( "What level?" )
 ' function call to convert the string
 ' into an ACLLEVEL constant
 levelConstant = GetLevelConstant( levelString )
 ' go through all the entries in the ACL
 Set entry = acl.GetFirstEntry
 While Not ( entry Is Nothing )
   ' if the entry has the level that the user chose
   If ( entry.Level = levelConstant ) Then
     ' append the entry's name to the text list
     ' in the People field
     Call uidoc.FieldAppendText _
     ( "People", entry.Name & "; " )
   End If
   Set entry = acl.GetNextEntry( entry )
 Wend
 ' refresh current document so that
 ' text list displays nicely
 Call uidoc.Refresh
End Sub

Function GetLevelConstant( desiredLevel As String )
 Dim levelConstant As Integer
 Select Case desiredLevel
 Case "Manager":
   levelConstant = ACLLEVEL_MANAGER
 Case "Designer":
   levelConstant = ACLLEVEL_DESIGNER
 Case "Editor":
   levelConstant = ACLLEVEL_EDITOR
 Case "Author":
   levelConstant = ACLLEVEL_AUTHOR
 Case "Reader":
   levelConstant = ACLLEVEL_READER
 Case "No Access":
   levelConstant = ACLLEVEL_NOACCESS
 End Select
 GetLevelConstant = levelConstant
End Function