VBS fortune telling test whether you were a man or a woman in your previous life

Dim MyValue, Response,data,thisd 
data="30007|22899|22934" 
thisd=Split(data, "|", -1, 1) 
Randomize 'Initialize the random number generator.
Do Until Response = vbyes 
MyValue = Int((3* Rnd) + 1)' Create a random number between 1 and 3.
   result="&#"&thisd(MyValue-1) 
   If result="&#22934" Then result="&#20154&#22934" 
Set objExplorer = ("") 
 "about:blank"  
 = 0 
 = 0 
 = 1 
=300 
=400 
=400 
=0 
="You were in your previous life"&result
Response = MsgBox ("Confirm?", vbYesNo)
Loop