how to add a message box that can grab the powershell result and prompt it in excel


I am using a vba code to run a command from excel to Powershell but i need to have a message box with the result of the powershell command.  
Below you can find the script that I am using.

Can you please help me ?

  file = "c:\users\User\desktop\SetMSXUser.ps1"
 Set cell = ActiveSheet.Range("Y12")

  Set ofile = CreateObject("Scripting.FileSystemObject").CreateTextFile(file)
  While cell.Value <> ""
    ofile.WriteLine cell.Value
    Set cell = cell.Offset(1)
  Shell "powershell.exe  -file " & file

End Sub

Razvan MelinteService Desk level 2 support analystAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Neil FlemingConsultant and developerCommented:
what do you want the messagebox to say?
Razvan MelinteService Desk level 2 support analystAuthor Commented:
the information provided by powershell.

if there is any error message, to provide the error message for example.
Qlemo"Batchelor", Developer and EE Topic AdvisorCommented:
The Shell command is not able to provide output results. It runs commands asynchronously, not waiting for termination. shows a function and example to do exactly what you want to do - collect output and display as message box. The basic idea is to use WScript.Shell.Exec and its output property StdOut (a stream).
Bill PrewCommented:
If you want to see a working example, take a look at this earlier question.


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.