Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim newName As String    
Dim confirm As Integer
Set db = session.CurrentDatabase
Set acl = db.ACL
newName = Inputbox$ _
( "Who do you want to add?", "Name" )    
Set entry = New NotesACLEntry _
( acl, newName, ACLLEVEL_AUTHOR )
confirm = Messagebox _
( "Are you sure?", MB_YESNO, "Confirm" )
If ( confirm = IDYES ) Then
 Call acl.Save
End If