Der Debugger hat mir auch nicht geholfen!
Hier der Code:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Set dc = workspace.PicklistCollection(PICKLIST_CUSTOM, False, "","Test.nsf","($Lieferanten)",_
"Lieferanten","Bitte Lieferanten wählen","")
Print dc.count
End Sub