Visual Basic - Shell,Termino de ejecucion

Como puedo saber cuando termina de ejecutarse una rutina bat desde un shell para pasar a la siguiente instruccion. Si alguien tiene alguna idea o metodo para solicionar este falencia del shell, me avisa...
Gracias

Fijate con esto:

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

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

Dim hProcess As Long
Dim RetVal As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell("MiComando", vbMinimizedNoFocus))

Do
GetExitCodeProcess hProcess, RetVal
DoEvents
' Sleep 100
Loop While RetVal = STILL_ACTIVE
End Sub