Transferência Ftp

Olá pessoal gostaria de saber como transferir um arquivo via ftp usando o objeto inet do vb6

fiz o seguinte comando mas não sei se estah certo(na verdade não tah pois naum funfa rsrs)

Private Sub Command1_Click()
With CommonDialog1
.Filter = "Todos os Arquivos|."
.FilterIndex = 1

 .ShowOpen
 If Len(.FileName) <> 0 Then Text1.Text = .FileName
 End With

Private Sub Command2_Click()
Dim ArqOrigem As String
Dim ArqDestino As String
ArqOrigem = Text1.Text
ArqDestino = "/public_html/teste/testando.txt"
Inet1.Execute , "PUT" & ArqOrigem & " " & ArqDestino
End Sub

Private Sub Form_Load()
Inet1.URL = "ftp://www.meusite.com.br"
Inet1.Password = "123456"
Inet1.UserName = "meusite"
'Text1.Text = Inet1.OpenURL
End Sub

Obrigado pela ajuda de todos.