أو ضع هذا مع ان كودك يعمل جيدا
كود :
Dim gg As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each item As HtmlElement In gg
If item.GetAttribute("className") = ("bui_font_display_one") Then
Txtget.Text = item.InnerText
End If
Next item

