How to open the (Open Database Popup) using Lotus script

For alter choice for @Command([FileOpenDatabase]) is in lotus script is,

dim ws as new notesuiworkspace

dim db as variant

Db = ws.prompt(13,"","")

This returns an array as follows:

Db(0) Server (null is local)

gtDb(1) Filename

Db(2) Database title