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?
Bill PrewConnect With a Mentor Commented:
If you want to see a working example, take a look at this earlier question.

Neil FlemingIndependent consultantCommented:
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.
QlemoConnect With a Mentor 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).
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.