Dim nnc As NotesNoteCollectionnnc.Selectscriptlibraries = true
uidoc.document.~$Comment(0)
Dim nc As NotesNoteCollection Set nc = db.CreateNoteCollection(False)nc.Selectscriptlibraries = Truenc.SelectionFormula = {$Title = "Name der Scriptbibliothek"}Call nc.Buildcollection() If nc.Count > 0 Then Set doc = db.Getdocumentbyid(nc.Getfirstnoteid())End If Dim Comment As StringComment = doc.~$Comment(0)