Sub FB_Likes_ermitteln()
Dim accessToken, antwort As String
Dim posLike, posKomma, likesAnzahl As Integer
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Call objHttp.Open("GET", graphURL, False)
Call objHttp.Send
antwort = objHttp.ResponseText
X = UBound(Split(antwort, ">"))
For I = 0 To X - 1
If InStr(1, antwort, "Personen gefällt das", vbTextCompare) = 0 Then Exit Sub
Ergebnis = Trim(Split(antwort, "Personen gefällt das")(0))
Ergebnis = CLng(Right(Ergebnis, InStr(1, StrReverse(Ergebnis), ">") - 1))
Next I
End Sub