Помогите с кодом!!! INET CONTROL

[andreywin]

На сервере создается файл размером 0 байт.
Что не так?
Private Sub Command1_Click()

Inet1.Execute "ftp://xxxx:XxXxXxXx@212.10.128.7", "SEND C:\DDD\RSS\news.txt /novosti/news.txt"
Do
If Not Inet1.StillExecuting Then Exit Do
DoEvents
Loop

If Inet1.StillExecuting = True Then
Do While Inet1.StillExecuting
DoEvents
Loop
Else
Inet1.Execute , "CLOSE"
End If

End Sub