Dim ws As New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
unid = doc.UniversalID
Dim session As New NotesSession
Dim db As NotesDatabase
Dim tmpdoc As NotesDocument
Set db = session.CurrentDatabase
Set tmpdoc = db.CreateDocument
tmpdoc.p_uidoc = unid
check = ws.DialogBox ("d_test", True, True, False, False, False, False, "T E S T", tmpdoc )... sonst rekaliert Notes.