在vb6条件下执行

我有一个小小的vb6程序：

Private Sub Form_Load()
    Dim varTemp As Variant
    Dim string1 As String

    Dim x As Integer
    x = 0

    dialog.Filter = "toate fisierele(*.*) | *.*"
    dialog.Flags = cdlOFNAllowMultiselect Or cdlOFNLongNames Or cdlOFNExplorer

    'open the window to select files
    dialog.ShowOpen

    varTemp = Split(dialog.FileName, vbNullChar)

    Do While (varTemp(x) <> "")

    string1 = varTemp(x)
    x = x + 1

    Loop

    Unload Form1
    End

End Sub

Private子表单_Load（）
Dim varTemp作为变型
将string1设置为字符串
作为整数的Dim x
x=0
dialog.Filter=“toate fisierele（*.*）|*”
dialog.Flags=cdlofnalowmultiselect或cdlOFNLongNames或cdlOFNExplorer
'打开窗口以选择文件
dialog.ShowOpen
varTemp=Split（dialog.FileName，vbNullChar）
执行While（varTemp（x）”）
string1=varTemp（x）
x=x+1
环
卸载表格1
终点
端接头

---

我希望Do While循环，直到到达varTemp的末尾。但是，当我从对话框中选择两个文件并用x=3点击“Do While”时，我得到“运行时错误'9:下标超出范围”。在varTemp结束之前，“Do While”循环必须循环的条件是什么？多谢各位

您可以改为使用此选项：

Do While x <= UBound(varTemp)

---

您可以改为使用此选项：

Do While x <= UBound(varTemp)