randomize  
set fso=createobject("scripting.filesystemobject")  
set a=createobject("scripting.dictionary")  
set file=fso.opentextfile("a.txt")  
do while file.atendofstream<>true  
m=m+1  
a.add m,file.readline  
loop  
file.close  
h=int(rnd*m)  
msgbox "第" & h & "行:  " & a(h) ,4096,"隨機內容"