Дождаться завершения процесса (Shell)

[NeverGone]

Имеется следующий код:

Код: Выделить всё

Shell App.Path & "\unrar.exe e -y " & Chr(34) & SelectedFile & Chr(34) & " " & Chr(34) & TempDirectory & Chr(34), vbMinimizedNoFocus 'оужас
MsgBox "[debug] Файл распакован"
Open TempDirectory & "\index.txt" For Input as #1
    Input #1, MyVariable
Close #1


Догадываетесь, что будет, если убрать MsgBox?
Не дождавшись распаковки начинает считываться index.txt, а так как его нет - программа падает с 53-й ошибкой.
Подскажите, пожалуйста, как дождаться завершения процесса, запущенного таким образом (Shell)?
Заранее спасибо

[Хакер]

Популярные вопросы. 4-ая строчка (сейчас).

Предупреждаю.