А из VB6 exe-шника можно получить Exit Code?

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

Поясню ситуацию.
Мне понадобились права админа для какого-то действия, например записать параметр в HKLM
Я из своего exe-шника вызвал другой (да хоть бы тот же самый с ключом) и дождался его завершения.
Вот так вот:

ExecuteProcess = ShellExecuteEx(ExecInfo) 'вызов exe с правами админа
  If ExecuteProcess Then
    Call WaitForSingleObject(ExecInfo.hProcess, INFINITE)
    GetExitCodeProcess ExecInfo.hProcess, lExitCode
    MsgBox lExitCode 'здесь хотелось бы увидеть результат
    Call CloseHandle(ExecInfo.hProcess)
  End If

Вызванный exe-шник выполнил ф-цию результат которой true или false.

Дык вот, было бы неплохо этот результат воткнуть в lExitCode

lExitCode по умолчанию возвращает 0.
Я пытался изменить Main() на Function но VB6 таких ньюансов не предусматривает и ругается.
В принципе понятно, что если ExecuteProcess заряженный под админа вернул true, то такая простая операция как запись в HKLM
будет выполнена 99,9%.
Но хорошо бы знать точный результат, воткнув его в lExitCode.

Решение задачи: «А из VB6 exe-шника можно получить Exit Code?»

textual
                            Листинг программы 
                        

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

Sub Main()
  If InStr(Command, "/key=123") > 0 Then
    'что-то делаем
    ExitProcess 666
  Else
    Form1.Show
  End If
End Sub

                        