dim auswahl as variant
dim antwort as variant
dim uiws as new notesuiworkspace
auswahl = split(meinString,char(10))
antwort = uiws.prompt(PROMPT_OKCANCELLIST,"titel","Prompt","",auswahl)
if antwort <>"" then
'antwort enthält ausgewähltes element
end if