Как выложить файл на FTP в VB?

Private Sub cmdUpload_Click()
    With Inet1
        .Protocol = icFTP
        .UserName = 'Username'
        .Password = 'Password'
        .RemoteHost = 'ftp.mysite.com'
        .Execute , 'SEND C:MyFile.txt htmlMyFile.txt'
    End With
End Sub