loop缺少Do。。。

Question

新手问题：For i = 0 to ubound(Module)
    j = 0
    Do
       If text = "" Then
           text = Module(i) & Failure(i, j)
       If text <> "" Then
           text = text & "+" & Module(i) & Failure (i, j)
       End if
       j =j + 1
    Loop until Failure(i, j)=""      '提示LOOP缺少DO，是什么原因呀？
next i

Answer 1

少一个END if 
太大意了

Answer 2

For i = 0 To UBound(Module)
    j = 0
    
    Do
       If Text = "" Then
           Text = Module(i) & Failure(i, j)
       Else
           Text = Text & "+" & Module(i) & Failure(i, j)
       End If
       
       j = j + 1
    Loop Until Failure(i, j) = ""    '提示LOOP缺少DO，是什么原因呀？
Next i

Answer 3

For i = 0 To UBound(Module)
    j = 0
    
    Do
       If Text = "" Then
           Text = Module(i) & Failure(i, j)
       Else
           Text = Text & "+" & Module(i) & Failure(i, j)
       End If
       
       j = j + 1
    Loop Until Failure(i, j) = ""    '提示LOOP缺少DO，是什么原因呀？
Next i

Answer 4

+If text <> "" Then改为：
else或者
elseIf text <> "" Then