Dim ws As New NotesUIWorkspace
Dim thisDB As NotesDatabase
Set thisDB = session.Currentdatabase
Dim dialogDoc As NotesDocument
Set dialogDoc = thisDB.Createdocument()
Call ws.Dialogbox("Name_der_Eingabemaske", True, True, False, False, True, False, "Auswahl:", dialogDoc)