... wenn ich das richtig verstanden habe, dann suchst du den Dateiauswahldialog, der dir sofort Schablonen anzeigen soll - wenn ja, dann ist das eventuell der Code dazu - allerdings ohne Serverauswahl:
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim vAuswahl As Variant
Set docThis = ws.CurrentDocument.Document
'vAuswahl = ws.OpenFileDialog( multipleSelection [, title$ [, filters$ [, initialDirectory$ [, initialFile$ ]]]] )
vAuswahl = ws.OpenFileDialog( True , "Der Titel deiner Auswahl" , "Notes Templates|*.ntf" , "E:\LotusNotes\Notes 505 C\Data" , "jobber.ntf")
ata