请会VB的朋友帮我改下语句！！求求拉

这个语句：
//功能：随机抽取预设的说话内容且不重复的说出来
dim i,s,a,n,text(100)
//初始化随机数发生器
Randomize
//这只是个范例，在实际应用中最好将要说的话用外部文件保存，将读到的字符串再赋值到数组就方便多了
text(0)="第一句话"
text(1)="第二句话"
text(2)="第三句话"
text(3)="第四句话"
text(4)="第五句话"
text(5)="第六句话"
i=1:s=0
//UBound(text):得到数组最大有效下标
For UBound(text)
//如果数组变量没内容，则跳出循环
If text(i)=""
Goto 开始说话
EndIf
//将可用数组下标组成一个字符串
s=s&i
i=i+1
EndFor
Rem 开始说话
//取下标字符串长度
n=Len(s)
//如果长度为0（即说完所有的话了）结束脚本
If n=0
Goto over
EndIf
//在下标字符串中随机抽取一个字符
a=Mid(s,int((n)*Rnd)+1,1)
//移除下标字符串中抽取到的字符（将说过的话T掉）
s=Replace(s,a,"")
VBSCall MessageBox(text(a)&vbCr&s)
Goto 开始说话
Rem over
VBSCall MessageBox("end")
EndScript

下面是弹出对话框的！帮我改成文字输出！！类似游戏喊话
下面是弹出提示框的！帮我改成文字输出！！我要用在游戏喊话中
等

懂VB的朋友请帮我看下 请帮我翻译一下VB的语句吧 请懂VB的朋友帮我看下这个VB程序段 VB里关于 for Eash 语句的不解 请高手帮下 请会VB的朋友帮我看看这2道题怎么做 请大家帮我找下语句 一个vb问题，请帮我把这两条语句合在一起. 请高手帮我看个VB简单的语句，谢谢 懂VB的朋友请帮我看看,谢谢 请帮我的朋友改一个英语名~~：）