Как определить конец выполнения сценария оболочки в VBA Excel?

Question

С этим кодом моя программа работает бесконечно, потому что состояние моего объекта oExe c не меняется.

sub test()
    Dim oShell As Object, oExec As Object
    Dim exePath As String, scriptPath As String, oCmd As String

    Set oShell = CreateObject("WScript.Shell")
    exePath = """C:\Applications\Python\Python38-32\python.exe"""
    scriptPath = ActiveWorkbook.Path & "\Scripts\"

    oCmd = "python.exe " & scriptPath & scriptName
    Set oExec = oShell.Exec(oCmd)
    'Waiting for the shell script to finish executing 
    While oExec.Status = 0
    Wend
end sub

Не могли бы вы мне помочь?

С уважением