Dim
xid
As
String
, xspan
As
String
, xStart
As
String
, xEnde
As
String
, Aufrufe
As
String
xid = InStr(1, Antwort,
"<div id="
"info-container"
""
)
xspan = InStr(xid, Antwort,
"<span"
)
xStart = InStr(xspan, Antwort,
">"
) + 1
xEnde = InStr(xStart, Antwort,
" Aufrufe</span"
) - 1
Aufrufe = Mid(Antwort, xStart, xEnde - xStart + 1)