Private Sub Form_Load()
 
Dim str_html As String
Dim str_teil As String
Dim str_trenn As String
Dim int_start As Integer
 
 
        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)
 
 
    WebBrowser1.Navigate "blabla url"
 
    Label1.Caption =  ???? <--- Was kommt da hin?
 
End Sub