Как сделать ожидание выполнения батника?

Public Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, _
    lpExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STILL_ACTIVE = &H103
 
Sub Main()
    Dim retVal As String
    
    retVal = Execute("C:\command.com /C D:\test.bat", 5000)
    ' ***
    ' *** Содержимое файла D:    est.bat:
    ' ***
    ' ***   @Echo off
    ' ***   Pause
    ' ***
    
    If retVal = "" Then
        MsgBox "Всё в порядке.", vbExclamation, "Ура!"
    Else
        MsgBox retVal, vbCritical, "Ошибка в Execute:"
    End If
    
End Sub
 
Public Function Execute(ByVal ExecStr As String, ByVal MAX_RUNTIME As Long) As String
    ' ***
    ' *** Метод запускает внешнее приложение в свёрнутом окне без фокуса и
    ' *** дожидается его завершения.
    ' ***
    
    Dim shellTimer As MyTimer
    Dim retVal As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
    Dim ProcessExitCode As Long
    
    Execute = ""  '  <<< признак успешного завершения
    
    On Error GoTo ShellError
    
    ProcessID = Shell(ExecStr, vbMinimizedNoFocus)
    ' ожидаем завершения процесса
    ProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
    If ProcessHandle <> 0 Then
        Set shellTimer = New MyTimer
        shellTimer.Start
        Do
            If shellTimer.TotalTime > MAX_RUNTIME Then
                retVal = MsgBox("Запущенное DOS-приложение до сих пор не закрылось." + vbCr + _
                         "Вы можете или закрыть его вручную и нажать затем «ОК» - " + _
                         "тогда ошибка не будет сгенерирована, - или нажать «Отмена», " + _
                         "- тогда выполнение завершится с ошибкой.", _
                         vbInformation + vbOKCancel, "Информация")
                If retVal = vbOK Then
                    shellTimer.Start
                    ' Пробуем дальше :))
                Else
                    Execute = "Превышен допустимый таймаут"
                    Call CloseHandle(ProcessHandle)
                    Set shellTimer = Nothing
                    Exit Function
                    ' Выходим с ошибкой
                End If
            End If
            Call GetExitCodeProcess(ProcessHandle, ProcessExitCode)
            If ProcessExitCode <> STILL_ACTIVE Then
                Exit Do
            End If
            DoEvents
        Loop
        Call CloseHandle(ProcessHandle)
    End If
    
    On Error GoTo 0
    Exit Function
    
ShellError:
    Execute = Err.Description
    Set shellTimer = Nothing
    
End Function