Ungetestet und ohne Fehlerbehandlung:

Dim positionStart As Long
Dim positionEnd As Long
Dim numValue As String

positionEnd = InStr(antwort, " Aufrufe</span>")
positionStart = positionEnd
Do Until Mid$(antwort, positionStart - 1, 1) = ">"
    positionStart = positionStart - 1
Loop
numValue = Mid$(antwort, positionStart, positionEnd - positionStart)