şu şekilde kullanılırsa tıklanmadığında yapacağınız işlemleri yaptırabilirsiniz

Dim objWshShell As Variant

        Dim intResult As Variant

        

        Set objWshShell = CreateObject("WScript.Shell")

        intResult = objWshShell.PopUp("Kaydedilmeyecek...", 1, "Süre bitti...", vbYesNoCancel + vbQuestion + vbDefaultButton3)



        Select Case intResult

            Case -1

                MsgBox "Tıklanmadı"

            Case vbYes

                MsgBox "Yes"

            Case vbNo

                MsgBox "No"

            Case vbCancel

                MsgBox "Cancel"

        End Select