Visual Basic 6: Код возврата программы

Вопрос заключается в следующем:
из проекта visual basic запускается программа с командной строкой, так вот она по идее возвращает код возврата (ну или ко ошибки), как её прочитать? shell и createprocess выдают свои коды ошибки! а как прочитать именно код возврата запущенного приложени?????

[LightImage]

Вот что в MSDN нарыл:

The following example returns the error code from the executed application: 
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, TRUE)

Так что в барсике можно написать что-нить наподобие:

Dim WshShell, ret
    Set WshShell = CreateObject("WScript.Shell")
    ret = WshShell.Run("rar a -m5 -md1024 -u -rr -r d:\temp\v.rar d:\temp\v", 1, True)

P.S. Можно также посмотреть в сторону API-функции GetExitCodeProcess(), но приведенный вариант мне кажется проще =)

Большое спасибо! Я уже сам разобрался! что-то типа этого я и использовал!!