Fungsi Konfirmasi Sebelum Keluar Dari Aplikasi

Di bawah ini merupakan fungsi konfirmasi sebelum keluar dari aplikasi. Mengapa dibuat menjadi fungsi? agar reusability (memiliki sifat mudah digunakan kembali) karena hampir tiap software yang dibuat, memerlukan fungsi di bawah ini:

Option Explicit 
 
Public Function ConfirmExit(Optional Title As String = "Konfirmasi") As Boolean 
    If MsgBox("Are you sure want to exit?", vbQuestion + vbYesNo, Title) = vbYes Then 
        ConfirmExit = ConfirmExit 
    Else 
        ConfirmExit = True 
    End If 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Form_QueryUnload(Cancel As   Integer, UnloadMode As Integer) 
    Cancel = ConfirmExit 
End Sub 

Penggunaan fungsi di atas dapat kita tempatkan pada event Unload ataupun QueryUnload.