Variant does not contain an object

Hallo,
ich komme nicht mehr weiter und wäre für Hilfe dankbar. Folgendes Script:

Sub Click(Source As Button)
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim uiws As New NotesUIWorkspace
Dim Auswahl As Variant
Auswahl = uiws.pickliststrings(PICKLIST_CUSTOM , True, "", "Zeitschriften.nsf", "Bitte einen Titel wählen!", "Titelauswahl", 1)
Messagebox(Auswahl)
End Sub

führt zu folgender Fehlermeldung:

Variant does not contain an object.
Was hab ich falsch gemacht?
Danke und Grüße
stelibo

Danke. Das war für einen Anfänger schon deutlich hilfreicher als der Ratschlag von taurec. Messagebox sollte für mich nur ein Hilfsmittel sein, um das Ergebnis von Auswahl zu prüfen. Letztlich möchte ich auf dem ausgewählten Zeitschriftentitel ein neues Dokument "Heft" anlegen lassen, das einige Werte aus dem Zeitschriftentitel übernimmt. Habt ihr da eine Idee für mich, wie ich dass anstellen könnte?