Artículo Q178357

Declaramos :

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Y terminamos nuestro programa con ExitProcess(ErrorLevelQueQueramosDevolver&)