x = Shell("powershell.exe -NoExit -Command ""& { Start-Process PowerShell.exe -Verb RunAs; $a=get-content 'C:\temp\msg.txt'; Invoke-Expression -Command $a; }"" ", vbNormalFocus)
x = Shell("powershell.exe -NoExit -Command ""& { Start-Process PowerShell.exe -Verb RunAs; $a=get-content 'C:\temp\msg.txt'; Invoke-Expression -Command $a; }"" ", vbNormalFocus)