Как в консольном приложении по окончанию работы программы задать возврат кода ошибки (ErrorLevel) - VB

Формулировка задачи:

Вот возьмем консольный WinRar, к примеру.

Спойлер

После завершения операции, код возврата можно получить через Shell:

                    Листинг программы
                
Echo %errorlevel%

А как задать свои коды в своей программе?

Решение задачи: «Как в консольном приложении по окончанию работы программы задать возврат кода ошибки (ErrorLevel)»

textual
                            Листинг программы 
                        
Public Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
 
Sub main()
ExitProcess 4
End Sub

Код возврата	Описание
0	Операция успешно завершена.
1	Предупреждение. Произошли некритические ошибки.
2	Произошла критическая ошибка.
3	Неверная контрольная сумма CRC32. Данные повреждены.
4	Предпринята попытка изменить заблокированный архив.
5	Произошла ошибка записи на диск.
6	Произошла ошибка открытия файла.
7	Ошибка при указании параметра в командной строке.
8	Недостаточно памяти для выполнения операции.
9	Ошибка при создании файла.
10	Нет файлов, удовлетворяющих указанной маске, и параметров.
255	Операция была прервана пользователем.