inet控件的问题

用inet从unix机器上ftp下载多个文件，用了一个循环语句，代码如下
For j = 0 To j
    With Inet1
        .URL = "ftp://oversee:oversee@192.168.1.150/"
        .Protocol = icFTP
        str2 = App.Path + "\" + s(j) + ".txt"
            
        Do While .StillExecuting = False
            .Execute .URL, "get /tmp/" + s(j) + ".txt " + str2
            DoEvents
        Loop
    
        Do While .StillExecuting = False
            .Execute , "CLOSE"
            DoEvents
        Loop
    End With
    #debug.write i
Next j
但是只能下载第一个文件，其它的文件下载不了，如果在#那一行设置断点，然后再继续运行就可以获取多个文件，请问这是为什么呢？真是郁闷死了！！！

补充：VB ,  控件