aşağıdaki kodları dener misiniz?
form_open/form_açıldığında olayında ufak bir iki ayarlama yaptım
form açılırken zamanlayıcı 0,5 saniye aralıklarla çalışıp sayfanın yüklenip yüklenmediğini kontrol eden fonksiyonu çalıştırıyor

Private Sub Form_Open(Cancel As Integer)



Dim myRegKey As String



    Me.WebBrowser9.Navigate ("https://yandex.com.tr/hava/bursa")

    Me.WebBrowser9.Silent = True

    

    myRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe"

    If RegKeyExists(myRegKey) = True Then GoTo cık  '<== değişen

    

    If RegKeyExists(myRegKey) = False Then

        myValue = RegKeyRead(myRegKey)

        RegKeySave myRegKey, "69633"

    End If

cık: '<== eklenen

    Me.TimerInterval = 500 '<== eklenen

End Sub

aşağıdaki kod yarım saniye aralıklarla webBrowserın durumuna bakıyor, eğer yüklenmişse yani WebBrowser9.Object.ReadyState = 4  ise zamanlayıcıyı kapatıp kaydırmayı yapıyor
Me.WebBrowser9.Object.Document.parentwindow.scroll 0, 400 ben burada dikey kaydırmayı 400 yaptım ama siz isterseniz size uygun sayıyı deneme yanılma yoluyla bulabilirsiniz

Private Sub Form_Timer()

    If WebBrowser9.Object.ReadyState = 4 Then

        Me.TimerInterval = 0

        Me.WebBrowser9.Object.Document.parentwindow.scroll 0, 400

    End If

End Sub

lütfen konuları açarken daha dikkatli olalım.
sorular, sorular kısmına açılmadığı zaman dikkatten kaçabilir