Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function TerminateProcess Lib "kernel32" (hProcess As Long, uExitCode As Any) As Boolean
Private Declare Function OpenProcess Lib "kernel32" (dwDesiredAccess As Any, bInheritHandle As Boolean, dwProcessId As Long) As Long
Private Const PROCESS_TERMINATE As Integer = 1
'SAVE YOUR WORK!
Private Sub BuhBye()
Dim pid As Long, process As Long
pid = GetCurrentProcessId
process = OpenProcess(PROCESS_TERMINATE, True, pid)