Private Sub WebBrowser2_DownloadComplete()

Dim GVeri As String

Do Until vReadyState = 4

    DoEvents

    vReadyState = Me!WebBrowser2.ReadyState

Loop



GVeri = WebBrowser2.Document.getElementsByTagName("span").Item(0).innerhtml

Etiket3.Caption = Replace(GVeri, "­", "")

End Sub

şeklinde kod kullanmanız daha doğru olacaktır