怎么样在VB调用外部程序执行完成后，再读取外部程序地结果？

Private   Declare   Function   OpenProcess   Lib   "kernel32 "   (ByVal   dwDesiredAccess   As   Long,   _ 
ByVal   bInheritHandle   As   Long,   ByVal   dwProcessId   As   Long)   As   Long 
Private   Declare   Function   GetExitCodeProcess   Lib   "kernel32 "   (ByVal   hProcess   As   Long,   _ 
lpExitCode   As   Long)   As   Long 
Private   Const   PROCESS_QUERY_INFORMATION   =   &H400 
Private   Const   STATUS_PENDING   =   &H103 

ProcessId   =   Shell(App.Path   &   "\A.exe ",   vbNormalFocus) 
hProcess   =   OpenProcess(PROCESS_QUERY_INFORMATION,   False,   ProcessId) 
                                      Do 
                                              Call   GetExitCodeProcess(hProcess,   ExitCode) 
                                              DoEvents 
                                      Loop   While   ExitCode   =   STATUS_PENDING