Hallo carsten
Dim ausgabe,abfrage
Set ausgabe = CreateObject("WScript.Shell")
abfrage=ausgabe.Popup ("Sind sie sicher ?",,"Dein Text",4)
If abfrage=6 Then
abfrage=ausgabe.Popup ("Dein Text ",," ausführen",0)
( deine Variable mit wert)
End If
If abfrage=7 Then
abfrage=ausgabe.Popup...