Dim Pos1 As Integer
Dim Pos2 As Integer
Dim Suche As String
 
' ersten Marker suchen
Suche = "<div class=" & Chr(34) & "char-data" & Chr(34) & "><span>"
Pos1 = InStr(1, WebBrowser3.Document.Body.innerHtml, Suche)
 
' zweiten Marker suchen
Pos2 = InStr(Pos1 + Len(Suche), WebBrowser3.Document.Body.innerHtml, "</span>")
 
' Text zwischen den Markern herausschneiden
Label14.Caption = Mid(WebBrowser3.Document.Body.innerHtml, Pos1 + Len(Suche), _
  Pos2 - (Pos1 + Len(Suche)))