关于do......loop语句的疑问

我今天学习了do....loop语句，在做一个实验的时候出现了问题。发现在运行的时候，它不能识别for语句中的变量，代码如下：
Private Sub Command1_Click()
Dim a(5) As String
a(0) = "吴华"
a(1) = "杨忠"
a(2) = "范宽"
a(3) = "朱光"
a(4) = "王艳"
a(5) = "张龙"
For i = 0 To 5
Do While Text1.Text = a(i)

MsgBox "你的输入正确！"
Exit For
Exit Do
Loop
Do Until Text1.Text = a(i)
MsgBox "你的输入不正确！"
Exit For
Exit Do
Loop
Next i
End Sub

如果将Do While Text1.Text = a(i)中的(i)改成0－5中的任何一个数字，那么它就能够正常运行，我想问一下各位朋友，是不是do循环不支持for 变量啊？
一楼的方法我已经试过了，没有任何作用还会导致弹出6次对话框

关于do......loop语句的疑问 关于vb 解释Do...Loop 语句 关于vb中do loop的问题 急！ do loop循环 do...loop循环语句 错误 : loop 缺少 do VB 圆周率 DO LOOP do loop 一个问题vbscript 看看拉,关于loop 用do loop until语句编写