Attribute VB_Name = "Module1"
Function amazon_price(link As String) As String
Dim XMLRequest As New MSXML2.XMLHTTP60, testopagina As String, inizio As String, fine As String
XMLRequest.Open "GET", link, False
XMLRequest.send

If XMLRequest.Status <> 200 Then
    'MsgBox "Internet connection error " & XMLRequest.Status & " - " & XMLRequest.statusText, vbExclamation
    Exit Function
End If

testopagina = XMLRequest.responseText

inizio = InStr(1, testopagina, " data-a-color=" & Chr(34) & "price" & Chr(34) & "><span class=" & Chr(34) & "a-offscreen" & Chr(34) & ">")
fine = InStr(inizio, testopagina, "</span>")
amazon_price = Mid(testopagina, inizio + 48, fine - inizio - 48)

End Function