Module1.bas

    Dim TimeOut As Date
    Dim flg As Boolean

    flg = False
    TimeOut = Now + TimeSerial(0, 0, 10)
    Do While ie.busy
        DoEvents
        Sleep 100
        If Now > TimeOut Then
            flg = True
            Exit Do
        End If
    Loop
    If flg Then
        ie.stop
        ie.Refresh
    End If