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)
 
Label1.Caption = str_teil