I don't know how that works but try:

Select Case State
...
Case icError
Inet1.Execute , "QUIT"
Do
DoEvents
Loop While Inet1.StillExecuting

OR

Inet1.Execute , "CLOSE"
Do
DoEvents
Loop While Inet1.StillExecuting

End Select

-Dj4