Doğru mu yazdınız bilmiyorum ama "lblListeSonuc" kodu ile veri almanız mümkün değil. Önceki mesajımda da belirttiğim gibi "dgListe" olmalı.

Me.Ozur_durumu = WebBrowser.Document.getElementById("dgListe").Rows(1).cells(2).innertext

kodu yerine

For Each tbl In WebBrowser.Document.getElementsByTagName("table")

    If tbl.ID = "dgListe" Then

        If tbl.Rows.length > 1 Then

            Me.Ozur_durumu = tbl.cells(5).innertext

        End If

    End If

Next

kodunu deneyiniz.