inet1 issues quick question

One approach is to use a "finite state machine": Create a form-level variable to track the current state. Call the first .Execute method, then add code to the Inet control's StateChanged event to detect that the operation is complete. In the StateChanged event, update the form-level state variable, then call the next .Execute method. Something like this:

Option Explicit
Private Enum eFtpState
Step1
Step2
Step3
End Enum
Private FtpState As eFtpState

Private Sub Form_Load()
FtpState = Step1
DoFtp
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = icResponseCompleted Then
Select Case FtpState
Case Step1
FtpState = Step2
DoFtp
Case Step2
FtpState = Step3
DoFtp
End Select
End If
End Sub

Private Sub DoFtp()
Select Case FtpState
Case Step1
Inet1.Execute "Step1"
Case Step2
Inet1.Execute "Step2"
Case Step3
Inet1.Execute "Step3"
End Select
End Sub

for some reason though my code isnt working its only doing the first file then it stops any ideas?