Sub fhpx()

Sub fhpx()
    Dim r As New ServerXMLHTTP60
    Dim i, re As New RegExp, m As Match
    re.Global = True
    re.Pattern = ".*?" 'Grzegorz  Cywicki
    re.MultiLine = True
    re.Pattern = "

[\s\S]*?
"
    re.Pattern = "\s*?

\s*?(.*?)"
    
    For i = 1 To 50
        r.Open "GET", "http://500px.com/rg443/following/list?page=" & i
        r.Open "GET", "http://500px.com/rg443/followers?page=" & i
        r.send
        If re.Test(r.responseText) = False Then Exit For
        For Each m In re.Execute(r.responseText)
            'Debug.Print m.Value
            Debug.Print m.SubMatches(1), m.SubMatches(2), m.SubMatches(0)
        Next
    Next

End Sub