Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_SHUTDOWN = 1
Const EWX_FORCE = 4

Sub ForceComputerToShutdown()
On Error Resume Next
Call ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0)
End Sub