If Button = 2 Then 'rechte Maustaste aktiviert automatisches Einfügen
        ExitTemp = False 'Exitbedingung (true => Exit)
        ClipALT = ClipBoard_GetText 'alter Wert
        ClipNEU = ClipBoard_GetText 'neuer Wert zum Verleichen
        Do
            ClipALT = ClipNEU 'am Anfang beide gleich
            txt_Suche.Value = ClipBoard_GetText 'Text im Suchfenster 
            ' aktualisieren
            Me!ssuche = txt_Suche.Value '"ssuche" ist die Variable, die das _
              Suchwort enthält
 
            '--- Aktualisiere Listbox "Ergebnisliste" ANFANG ---
            Me.Ergebnisliste.RowSource = QuelleDefinieren
            Me.Ergebnisliste.Requery
            Spalten_Anpassen Me.Name, Me.Ergebnisliste.Name
            '--- Aktualisiere Listbox "Ergebnisliste" ENDE ---
 
            MsgBox ("dummy") '  <-- Das ist die entscheidende Messagebox!
 
            Do
                If GetAsyncKeyState(&H1B) <> 0 Then ExitTemp = True 'Bei ESC 
                ' -> Exit
                Sleep 100 'Prozessorleistung sparen :-)
                ClipNEU = ClipBoard_GetText 'neuen Wert zum Verleichen laden
            Loop Until ClipALT <> ClipNEU Or ExitTemp = True 'Bleibe in 
            ' dieser Schleife, solange sich nichts ändert
        Loop Until ExitTemp = True
    End If