@picklist i script

PickListStrings method
Creates a string array from a list selected by the user.
The first form of the method displays the Names, Rooms or Resources dialog box for a Domino Directory.
The second form allows you to customize a list of documents from any database.
Note  This method is new with Release 5.

Defined in
NotesUIWorkspace

Syntax
stringArray = notesUIWorkspace.PickListStrings( type% [, multipleSelection ] )
stringArray = notesUIWorkspace.PickListStrings( type% [, multipleSelection ], server$, databaseFileName$, viewName$, title$, prompt$, column% [, categoryname$ ] )

Jeg får "non-null string expected"...
Jeg skal bruge koden til en dialogboks der åbner et view ("sider") i samme db som scriptet kører, og som returnerer værdien af fjerde kolonne...?

Examples: PickListStrings method 

1.    This example displays the resources dialog box and allows the user to select one resource. A message box shows the user's selection.
Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim picklist As Variant
  Dim messagelist As String
  picklist = workspace.PickListStrings( PICKLIST_RESOURCES )
  If ( Isempty( picklist ) ) Then
    Messagebox "Canceled" , , "Resource selected"
  Else
    Forall plist In picklist
      messagelist = messagelist & plist & Chr(10)
    End Forall
    Messagebox messagelist  , , "Resource selected"
  End If
End Sub
  2.    This example displays a custom dialog box showing only the documents that appear under the Procedures category in the By Category view of a database. The user may select multiple documents. The text from column 4 is displayed.
Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim picklist As Variant
  Dim messagelist As String
  picklist = workspace.PickListStrings( _
  PICKLIST_CUSTOM, _
  True, _
  "snapper", _
  "ProgWork2", _
  "By Category", _
  "Document picker", _
  "Please select some documents.", _
  4, _
  "Procedures" )
  Forall plist In picklist
    messagelist = messagelist & plist & Chr(10)
  End Forall
  Messagebox messagelist
End Sub

Hmm...Jeg skal vist have opgraderet, men det funker - så jeg takker igen igen.