>> heute schon etwas spät für mich ....
Das ist doch auch eine Zeitfunktion ??

Also, so wie Du das machst, wird das Datum als Text eingefügt. Schau Dir die Felder mal in den Dok-Eigenschaften an, dann siehst Du das. Und Text ist für Notes nun mal Tabu, das lässt sich nicht als Datum formatieren. Natürlich könntest Du jetzt mit @textdodate das Ding beheben, a-bär, da bleibt das Datum natürlich noch immer als Text im Dokument und es wäre wünschenswert, das dort auch als Datum zu haben. Hier ein Vorschlag:
Set newdoc = doc.CopyToDatabase( db )
'Aktuelle Zeit
Datum$ = Now'Date$()
Dim DatumWert As New NotesDateTime (Datum$)
Call Newdoc.ReplaceItemValue ("Archive_Date",DatumWert)