Da muss ein Workaround her, weil Notes erwartet, dass ein Dokument geöffnet oder selektiert ist.
Hier erzeugen wir ein temporäres Backend-Doc, das wir nicht speichern:
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docTemp As NotesDocument
Dim vResult As Variant
Set db = session.CurrentDatabase
Set docTemp = db.CreateDocument
vResult = workspace.DialogBox ( "Name Der Maske", True, True, True, True, True, True, "Titel der Dialogbox", docTemp )