Dim ws As New NotesUIWorkspace Call ws.folder("test", True)
Dim ws As New NotesUIWorkspace Call ws.folder(, False)