I have tried several times to get inet.execute to download a file but i cant get it working. I m using the below line of code:

with inet1
               .Protocol = icFTP
               .AccessType = icUseDefault
               .URL = strURL
               .UserName = strUser
               .Password = strPWD

               .Execute strFile, "GET"
                Do While Inet1.StillExecuting = True
                   DoEvents
                   Call Sleep(5)
               Loop
               .Execute, "QUIT"
end with

looking for State = icResponseCompleted

but its getting stuck on the below state

Case icReceivingResponse
            AddMessage "Receiving Response"


Does anyone have a bit of code/advice to get this to work