Dim MyValue, Response,data,thisd  
data="30007|22899|22934"  
thisd=Split(data, "|", -1, 1)  
Randomize '初始化隨機數生成器。  
Do Until Response = vbyes  
   MyValue = Int((3* Rnd) + 1)' 產生 1 到 3 之間的隨機數。  
   result="&#"&thisd(MyValue-1)  
   If result="妖" Then result="人妖"  
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")  
objExplorer.Navigate "about:blank"   
objExplorer.ToolBar = 0  
objExplorer.StatusBar = 0  
objExplorer.Visible = 1  
objExplorer.height=300  
objExplorer.width=400  
objExplorer.left=400  
objExplorer.resizable=0  
objExplorer.Document.Body.InnerHTML ="你上輩子是"&result  
   Response = MsgBox ("確認? ", vbYesNo)  
Loop