外部プログラム（JAVA）をVB６から起動し、戻り値を取得したいと思っております。

shell関数を使用してみましたが、ERR.NUMBERでも、戻り値は常に０となってしまい、
エラーを取得できません。
実際コマンドラインで実行すると、現在は%ERRORLEVEL%は１が帰ってきています。

外部プログラムの戻りとを取得する方法はありますでしょうか？

環境は：WIN2000 VB6です。

よろしくお願いします。

> 外部プログラムの戻りとを取得する方法はありますでしょうか？

WScript.ShellオブジェクトのRunメソッド　が使用可能であればですが
hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/script56/html/wsmthrun.asp

    Dim WshShell As Object
    Dim Ret As Long
    Set WshShell = CreateObject("WScript.Shell")
    Ret = WshShell.Run("notepad c:\temp\test1.txt", 1, True)
    MsgBox Ret
    Set WshShell = Nothing

ありがとうございました。

WScript.shellうまくいきました。