Дождаться окончания выполнения программы - VB

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

Нужно заархивировать файл и выложить на ftp сервер. Для этого нужно дождаться когда архивация закончится.Использую следующий код:

ProcessID = Shell( & file &  &  & buk, vbNormalFocus)
    hOpen = OpenProcess(KEY_DIAL, True, ProcessID)
    
 GetExitCodeProcess(hOpen, hExit)
DoEvents
  hExit <> STILL_ACTIVE
 soprov(j)

Но после окончания архивации выполнение программы не возобнавляется. Оператор Call soprov(j)
не выполняется
пробую использовать функцию
WaitForSingleObject ( hOpen = OpenProcess(KEY_DIAL, True, ProcessID))
выходит ошибка: "функция не определена"
хотя она у меня объявлена в начале модуля:
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Помогите кто-нибудь

Решение задачи: «Дождаться окончания выполнения программы»

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

                            <font color="blue">Dim</font> WshShell, oExec
   <font color="blue">Set</font> WshShell = CreateObject(<font color="teal">"WScript.Shell"</font>)
   Str1 = <font color="teal">"set path1=C:\Каталог1\ "</font> & <font color="blue">CHAR</font>(<font color="darkblue"><b>13</b></font>)  & <font color="teal">"set pbat=C:\Каталог1\файл1.txt"</font>
   <font color="blue">Set</font> oExec = WshShell.Exec(Str1)
   <font color="blue">Do</font> <font color="blue">While</font> oExec.Status = <font color="darkblue"><b>0</b></font>
      DoEvents
   <font color="blue">Loop</font>

                        