Na, die Meldung sagt doch alles, Johann

Es ist ein Objekt, und für derartige Zuweisungen ist Set verantwortlich.
Dim ws As New NotesUIWorkspace
Dim docCurrent As NotesDocument
docCurrent = ws.CurrentDocument.Document
klappt ja auch nicht ...
Bernhard