Выполнить сценарий PowerShell из VBA Excel

Question

код VBA:

Sub RunAndGetCmd()
    strCommand = "Powershell -File ""C:\Users\Yosr\Desktop\FileCreation.ps1"""
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)
    strOutput = WshShellExec.StdOut.ReadAll
    MsgBox strOutput
End Sub

Я хочу выполнить скрипт PowerShell из Excel VBA, но каждый раз, когда я нажмите на кнопку, которую я создал в Excel, чтобы выполнить сценарий PowerShell, он не работает, и ошибка в Excel. Однако, когда я запускаю только файл powershell (запускается с PowerShell), он работает.