When I click on Command2 I get a "Run time error '35754'; Unable to connect to remote host"

What am I doing wrong?

Code:
Private Sub Command1_Click()
With Inet1
   .Cancel
   .Protocol = icFTP
   .RemotePort = 21
   .URL = "ftp.host.com"
   .UserName = "username"
   .Password = "password"
End With
End Sub

Private Sub Command2_Click()
Inet1.Execute , Text1
End Sub
Thanks,
Si