Are you sure you're using the correct address and login information? it worked fine for me..

Code:
Private Sub Command1_Click()
With Inet1
   .Cancel
   .Protocol = icFTP
   .RemotePort = 21
   .URL = "promasc.com"
   .UserName = "*******"
   .Password = "********"
End With
End Sub

Private Sub Command2_Click()
Inet1.Execute , _
"GET index.htm C:\Windows\Desktop\index.htm"

End Sub