Yardım WebBrowser1 Click Sorunu

<li id="H31c2e5810ed34-20TVD_li" class="cstree-closed"><ins id="H31c2e5810ed34-20TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-20TVD" href="#" draggable="true" tabindex="0"><span class="sicilBilgileri">BİLGİLERİM</span></a><ul id="H31c2e5810ed34-20TVD_ul"><li id="H31c2e5810ed34-200TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-200TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-200TVD" href="#" draggable="true" tabindex="0">Sicil Bilgilerim</a><ul id="H31c2e5810ed34-200TVD_ul"></ul></li><li id="H31c2e5810ed34-201TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-201TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-201TVD" href="#" draggable="true" tabindex="0"><span class="new">Yönetici ve Ortaklık Bilgileri</span></a><ul id="H31c2e5810ed34-201TVD_ul"></ul></li><li id="H31c2e5810ed34-202TVD_li" class="cstree-closed"><ins id="H31c2e5810ed34-202TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-202TVD" href="#" draggable="true" tabindex="0">Araç Bilgilerim</a><ul id="H31c2e5810ed34-202TVD_ul"><li id="H31c2e5810ed34-20210TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-20210TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-20210TVD" href="#" draggable="true" tabindex="0">Mevcut Araç Bilgilerim</a><ul id="H31c2e5810ed34-20210TVD_ul"></ul></li><li id="H31c2e5810ed34-20220TVD_li" class="cstree-last cstree-leaf"><ins id="H31c2e5810ed34-20220TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-20220TVD" href="#" draggable="true" tabindex="0">Geçmiş Araç Bilgilerim</a><ul id="H31c2e5810ed34-20220TVD_ul"></ul></li></ul></li><li id="H31c2e5810ed34-210TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-210TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-210TVD" href="#" draggable="true" tabindex="0">Borç Detay ve Ödeme</a><ul

      Set objCollection = ie.document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).ID = "H31c2e5810ed34-200TVD" Then
             objCollection(i).click
             Exit Do
          End If
          i = i + 1
        Loop

Public Sub Gir_Click()
Range("g1").Select
On Error Resume Next
WebBrowser1.Navigate ("https://ivd.gib.gov.tr/")

Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:00:05")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop

WebBrowser1.Document.getElementById("gen__1010").Value = Cells(28, "a")
WebBrowser1.Document.getElementById("gen__1011").Value = Cells(30, "a")
WebBrowser1.Document.getElementById("gen__1018").Click


WebBrowser1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(80), vbNul

End Sub

Public Sub Gir_Click()
Range("g1").Select
On Error Resume Next
WebBrowser1.Silent = False
'WebBrowser1.Navigate ("https://ivd.gib.gov.tr")
WebBrowser1.Navigate ("www.google.com")

Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:00:05")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop
    
    
    Set objCollection = WebBrowser1.Document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).innertext = "Gmail" Then
             objCollection(i).Click
             Exit Do
          End If
          i = i + 1
        Loop
        
        

WebBrowser1.Document.getElementById("gen__1010").Value = Cells(28, "a")
WebBrowser1.Document.getElementById("gen__1011").Value = Cells(30, "a")
WebBrowser1.Document.getElementById("gen__1018").Click


WebBrowser1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(80), vbNul

End Sub

Set objCollection = WebBrowser1.Document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).innertext = "Gmail" Then
             objCollection(i).Click
             Exit Do
          End If
          i = i + 1
        Loop

Set objCollection = WebBrowser1.Document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).innertext = "Borç Durum Yazısı Talebi" Then
             objCollection(i).Click
             Exit Do
          End If
          i = i + 1
        Loop