How to use nextPartitionKey and nextRowKey in vb6.0 when reading data in azure table?

I use the following code to read data from azure table.
The first time in URL2, I send only mark=0

Reading the first data, I read the values of nextPartitionKey and nextRowKey to include them into URL2 in order to read next data from next partition since I can only read 1000 items at a time.

Using URL2 the second time with the values of nextPartitionKey and nextRowKey, the program reads the same data as in the first partition.In some way it gets stuck.

Can someone see what is wrong in the following code please?

URL2 = "https://data1-dev.azure-api.net/ReadInfo?mark=0"
Set XMLServer = CreateObject("WinHttp.WinHttpRequest.5.1")
Set XMLReceive = CreateObject("Msxml2.DOMDocument.6.0")
XMLServer.SetTimeouts 5000, 60000, 10000, 10000
XMLServer.Option(9) = 2048
XMLServer.Option(6) = True
'
Do
XMLServer.Open "GET", URL2, False
'
XMLServer.SetRequestHeader "ID_number", UserID
XMLServer.SetRequestHeader "Key", UserKey
XMLServer.Send ""
ResultText = XMLServer.ResponseText
'
'I read here the values of nextPartitionKey and nextRowKey from ResultText and I save them into
'stNextPartiotionKey and stNextRowKey variables

URL2 = "https://data1-dev.azure-api.net/ReadInfo?Mark=0 & NextPartitionKey=" & stNextPartiotionKey & " & NextRowKey=" & stNextRowKey

Loop While stNextPartiotionKey <> "" And stNextRowKey <> ""
'
End Sub