VBA Error - Site change get images links

[tactos]

I already had one person's help to get the code and I got it working without problems.
Now I think the site has changed and now I can not get results.

[COLOR=#454545][FONT=&quot][B]Public Function getHeroImage(productUrl As String) As String[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot]
[/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]    Dim dom As HTMLDocument[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]    Set dom = New HTMLDocument[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]    With CreateObject("winhttp.winhttprequest.5.1")[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]        .Open "GET", productUrl, False[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]        .send[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]        dom.body.innerHTML = .responseText[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]        getHeroImage = dom.querySelector("div.goodsIntro_largeImgWrap > img").getAttribute("data-zoom")[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]    End With[/B][/FONT][/COLOR]
[COLOR=#454545][FONT=&quot]
[/FONT][/COLOR]
[COLOR=#454545][FONT=&quot][B]End Function[/B][/FONT][/COLOR]

I basically wanted to have the links of the images in a column. The code I was using was as follows:
but now it does not return results.
I've tried changing the selector to:

[COLOR=#454545][FONT=&quot][B]dom.querySelector ("div.goodsIntro_largeImgWrap> # js-goodsNormalImg> img"). getAttribute ("data-zoom")[/B][/FONT][/COLOR]

but it did not work.
Can someone help please? What have I done wrong to change in the next?
Website I want to get the pictures: https://www.gearbest.com/cell-phones...601631974.html

 

[tactos]

Tested and worked.
The only problem is, i get the Following image link https://css.gbtcdn.com/imagecache/gbw/img/site/logo@.png , and i want on this link https://pt.gearbest.com/phone-call-tablets/pp_009906442381.html?wid=1433363 this image link https://gloimg.gbtcdn.com/soa/gb/pd.../17/goods_img_big-v3/20181217155357_19844.jpg located on "data-img".
And I do not know how to do it
Image Print: https://imgur.com/a/w1e1MmP

 

[Worf]

New version:

Public Function GetInfo3(w$)
Dim res$, html As HTMLDocument, Elements As Object, i%
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", w, False
    .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    .Send
    res = StrConv(.responseBody, 64)
End With
Set html = New HTMLDocument
With html
    .Body.innerHTML = res
    Set Elements = .getElementsByTagName("img")
    For i = 0 To Elements.Length - 1
        If Not IsNull(Elements(i).getAttribute("data-img")) Then
            GetInfo3 = Elements(i).getAttribute("data-img")
            Exit Function
        End If
    Next
End With
End Function