Private Sub Command1_Click()
Dim passw As String
Dim ftpurl As String
user = "" ' USER
paswd = "" ' PASS
ftpurl = "" ' FTP Address
Inet1.URL = ftpurl
Inet1.UserName = user
Inet1.Password = paswd
passw = Text1.Text ' Nome e percorso file da Uppare sull'ftp..
Inet1.Execute Inet1.URL, "PUT" & "c:\" & Text1.Text & passw
Do While Inet1.StillExecuting = True
DoEvents
Loop
End Sub

in text1 ho scritto per esempio ciao.
Però non funziona uguale, è come se dentro put legge un file senza nome, una cosa simile.