循环语句求教高手，谢谢！！！

Question

循环语句求教高手，谢谢！！！
我想把for....net语句换成Do While......Loop语句，求教高手该如何改，谢谢！！！ 
                ReDim mbyte(lLen - 1)
                Open strFile For Binary Access Read As #1
                 Get #1, , mbyte
                xjnr = StrConv(mbyte, vbUnicode)
                                Close #1
            strDataToSend = Split(xjnr, vbCrLf)
            strDataToSendend = UBound(strDataToSend)
            For i = 0 To strDataToSendend
              
              strData=strDataToSend(i) 
                   DoEvents
               Next

Answer 1

i=0 
do while i<=strDataToSendend
strData=strDataToSend(i) 
DoEvents
i=i+1
loop

Answer 2

For i = 0 To strDataToSendend
              
              strData=strDataToSend(i) 
                   DoEvents
Next
=====================变成:
Dim i As Long
Do While i <= strDataToSendend
   strData=strDataToSend(i) 
   DoEvents
   i = i + 1
Loop

Answer 3

Do While i <= strDataToSendend
   strData=strDataToSend(i) 
   DoEvents
   i = i + 1
Loop