x = Shell("powershell.exe -NoExit -Command ""& { Start-Process PowerShell.exe -Verb RunAs; $a=get-content 'C:\temp\msg.txt'; Invoke-Expression -Command $a; }"" ", vbNormalFocus)
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter