Ordner Querydragdrop läuft doppelt

[Ankoku]

Hallo zusammen!

Bisher war ich hier blos als stiller Mitleser unterwegs und habe bisher alle meine Probleme mit der Sufu lösen können! Hierfür schon mal ein großes Danke!

Zu meinem momentanen Problem habe ich leider bisher nichts gefunden.

Ich möchte in einem Ordner beim Drag&Drop eine Abfrage starten, was mit dem Dokument geschehen soll.
Im Postdragdrop wird die Auswahl abgefragt und dementsprechend behandelt.
(Die Variable Auswahl deklariere ich später wieder global, hier nur als Test)

Jetzt ist mein Problem, egal welchen Punkt ich auswähle, das Script läuft weiter, die Auswahl wird gesetzt, aber nach dem End Sub beginnt das Querydragdrop von vorne. Nach dem 2. Durchlauf geht es richtig weiter ins Postdragdrop.

Ich hatte den gesamten Code erst im Postdragdrop und habe dann zum Testen den Codeteil ins Querydragdrop verschoben.

Code im Querydragdrop:
   Dim ws As New NotesUIWorkspace
   Dim arrAuswahl(3) As String
   Dim Auswahl As String
   
   arrAuswahl(0) = "Dokument auf den Tag kopieren"
   arrAuswahl(1) = "Dokument Tag und We"
   arrAuswahl(2) = "Dokument Tag oder We"
   arrAuswahl(3) = "Woche kopieren"
   Auswahl = ws.Prompt(PROMPT_OKCANCELLIST,"Auswahl","Was soll mit dem Dokument geschehen?","Dokument auf den Tag kopieren",arrAuswahl)
   Continue = True
   Stop

Der Client ist 7.0.3.

Was mach ich falsch?
Ich bin grad irgendwie ratlos. 

Gruß
Ingrid