Private Sub Form_Load()
WebBrowser1.Navigate "blabla url"
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim str_html As String
Dim str_teil As String
Dim str_trenn As String
Dim int_start As Integer
 
'Prüfen, ob Seite vollständig geladen ist
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
 
str_html = WebBrowser1.Document.documentElement.outerHTML
 
str_trenn = "Views: <span class=""statVal"">"
int_start = InStr(str_html, str_trenn) + Len(str_trenn)
str_teil = Mid(str_html, int_start, InStr(int_start, str_html, "<") - int_start)
 
Label1.Caption =  str_teil 'Ausgabe des gewünschten Wertes
End Sub