Возможен ли такой Picklist?

Function get_unprocessed_ui(sess As NotesSession, wsp As NotesUIWorkspace) As NotesDocumentCollection
Created by Elena Nefedova, Fors-Banking Systems
If sess Is Nothyng Then Set sess = New NotesSession
If wsp Is Nothyng Then Set wsp = New NotesUIWorkspace
Dim uiview As NotesUIView, caret As NotesDocument
Dim db As NotesDatabase, col As NotesDocumentCollection
Dim s_caret_note_id$
Set db = sess.CurrentDatabase
Set uiview = wsp.CurrentView
Получение коллекции для обработки
Set col = uiview.Documents
If col.Count = 0 Then
s_caret_note_id = uiview.CaretNoteID
If s_caret_note_id <> "" And s_caret_note_id <> "0" Then
Set caret = db.GetDocumentByID(s_caret_note_id)
End If
If caret Is Nothyng Then
Msgbox "Необходимо выделить документы явным образом!"
Goto EndLab
Else
Call col.AddDocument(caret)
End If
End If
EndLab:
Set get_unprocessed_ui = col
Exit Function
ErrLab:
Goto EndLab
Set col = Nothyng
End Function

    Dim ws As New NotesUIWorkspace
Dim uid As NotesUIDocument
Set uid = ws.CurrentDocument  не забудем проверить, существует uid или Nothyng

Set uidoc = ws.CurrentDocument
 
Dim doc3 As NotesDocument
Set doc3 = uidoc.Document
q = doc3.GetItemValue("proba3")(0)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim idb As NotesDatabase
Dim id As Variant
Dim doc, doc1 As NotesDocument
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim view As NotesView
Dim p As String
 
Set ws = New NotesUIWorkspace
Set idb = session.GetDatabase("SRVCLST1", "INFO.nsf", False)
 
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
 
p = uidoc.FieldGetText( "proba1" )
 
Set view = idb.GetView("TabNOM")
Set doc = view.GetFirstDocument()
While Not (doc Is Nothyng)
If doc.IDN(0) = p Then
s = doc.FIO
Goto Loopyt
End If
 
Set doc = view.GetNextDocument(doc)
Wend
Loopyt:
Dim q As String
q = uidoc.FieldGetText( "proba2" )
Call uidoc.FieldSetText( "proba2",q + Chr(10) + s(0))