Switching Page Numbers During XML Import Using VBA

I've been programming my VBA script to import data from an XML file which looks like this:

HTML Code:
<response responseStatus="success"> <result xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"xsi:type="apiPagination"> <currentPage>1</currentPage> <list xsi:type="apiReport"> <Variable1>Name1</Variable1> <Variable2>41</Variable2> </list> <list xsi:type="apiReport"> <Variable1>Name2</Variable1> <Variable2>20</Variable2> </list>

So far everything works great and it imports everything correctly to Excel 2010. This is the code I'm using:

Code:
Sub test()
Dim WS As Worksheet: Set WS = ActiveSheet
Dim req As New XMLHTTP
Dim Link As String
Dim PageNumber As Integer
Dim Url As String
PageNumber = 1

[code].....

The problem is that I only import page1 (only link [URL])

How do I get all URLs so that it also imports the data located on other pagenumbers? For example [URL]