inte rnet explorer не всегда открывает browser.navigate

Question

Private Sub Command89_Click()
Dim oBrowser As Object
Dim time1, time2
Dim htmlButton
Dim addressInput As HTMLInputElement
Dim err_count As Integer
Dim y As Integer
On Error GoTo Err_Clear
If TempVars!debug_mode = True Then
 SendToLogFile ("AFter error clear but before navigation = " & Me.network)
End If

Я попал сюда в соответствии с моим лог-файлом!

 sURL = "http://permis.telusquebec.com/index.php"
'Set oBrowser = CreateObject("InternetExplorer.Application")
Set oBrowser = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
 If TempVars!debug_mode = True Then
     SendToLogFile ("Entering new record create section for network = " & Me.network)
  End If

 oBrowser.Silent = True
 'oBrowser.timeout = 60
 oBrowser.navigate sURL
 oBrowser.Visible = True

 ' Wait till the Browser is loaded
Do While oBrowser.Busy Or oBrowser.ReadyState <> 4
    DoEvents
    Debug.Print oBrowser.ReadyState
Loop

If TempVars!debug_mode = True Then
    SendToLogFile ("Browser should have opened for network = " & Me.network)
End If
***Never make it to here!*** 

Это временная проблема, иногда она работает в других случаях, когда это не так дело в том, что этот ЖЕ код работает отлично на 6 других компьютерах. IE открывается каждый раз! Этот компьютер был обновлен до windows 10 2 месяца go, но у него была та же проблема с windows 7 в течение 6 месяцев до этого. Я думал, что обновление решит проблему, но это не так. Не могу понять, что вызвало бы и периодическую проблему, кроме некоторых личных настроек. Я в тупике. Все компьютеры сейчас на windows 10 с имиджем компании, поэтому мы все одинаковы!

Пит