Can you shorten this "alert(1)"?

No-alnum was yesterday :)

No numbers allowed
No strings allowed
No regex, arrays, functions or objects allowed (other than those in the example vector)
No whitespace allowed
No "I hacked the rules" nonsense please. If you are uncertain about them: please mail me and I shall adjust the wording :)
Shortest version working on IE6-10 wins!
Do the math! :)

VBS Heroes

Despite the challenge having ended, more submissions came in. Setting a whole new benchmark. Thus the title VBS Heroes seems appropriate!

@masa141421356, 71 chars:
x=a=a:y=-x-x:Execute+Mid(a<a,y,y)&Mid(TypeName(y)&x,y+y+y,y-x)&vbTab&-x

@kinugawamasato, 91 chars using only Chr():
x=a^a:y=vbNo:z=y-x:Execute+Chr(z&z-x)&Chr(y&z)&Chr(x&-a&x)&Chr(x&y+y)&Chr(x&x&z)&Chr(z+z)&x

Winners

This challenge has two winners, one by rule and one by awesomeness of the vector. Why? Originally the rules were very strict - but after seeing some submissions I decided to remove some of that strictness just to see where this is going. But now, without further ado: The Winners!

Winner By the Rules: @ma1 with a 108 character submission, only using Chr()
a=vbOK:b=a+a:c=b+b:d=c+b:z=c&a:Eval+Chr(d&d-a)&Chr(d+a&d)&Chr(d&d+d/b)&Chr(z*b)&Chr(z*b+b)&Chr(z-a)&a&Chr(z)

Winner By Awesomeness: @masa141421356 with a freaking 85 character submission
Execute+Mid(a<a,a^a+a^a,a^a+a^a)&Replace(StrReverse(a=a),Chr(a^a&vbByte),a)&vbTab&a^a

Scoreboard

@masa141421356 scored 85 characters
@kinugawamasato scored 87 characters
~~@kinugawamasato scored 89 characters (I have no words)~~
~~@masa141421356 scored 90 characters (!!!)~~
~~@kinugawamasato scored 95 characters - surreal!~~
@ma1 scored 108 characters - only using Chr()!
~~@ma1 scored 111 characters~~
@garethheyes scored 133 characters
@insertScript scored 184 characters

<script language=VBS>
<!-- 257 Bytes whitespace in this example doesn't count -->
Eval+Chr(vbExclamation*vbInteger+vbOK)&Chr(vbInformation+vbExclamation-vbShortTime)
    &Chr(vbOK&vbOKOnly&vbOK)&Chr(vbDefaultButton2/vbInteger-vbSaturday*vbInteger)
    &Chr(vbDefaultButton2/vbInteger-vbVariant)&Chr(vbQuestion+vbString)
    &vbOK&Chr(vbObject+vbQuestion)
</script>

Mail me your solution!