problema obteniendo datos de internet

buenas, tengo el siguiente macros para obtener datos de internet

Sub KaladeshCK1()
   Application.ScreenUpdating = False
   On Error Resume Next
   web = "http://www.cardkingdom.com/mtg/kaladesh/Torrential-Gearhulk"
   principio = "itemAddToCart  NM active"
   Final = "<div class=""dropdown"">"
   Set XML = CreateObject("Microsoft.XMLHTTP")
   XML.Open "POST", web, False
   XML.send
   texto = XML.responsetext
   posicion1 = InStr(texto, principio)
   posicion2 = InStr(texto, Final)
   dato = Mid(texto, posicion1, (posicion2 - posicion1))
   Range("k4") = "Torrential Gearhulk"
      If Err = 0 Then
      Cotizacion = Split(dato, "<span class=""stylePrice"">                           $")
      Range("l4") = Trim(Left(Cotizacion(1), 6))
   Else
             Application.ScreenUpdating = False
   On Error Resume Next
      principio = "itemAddToCart  outOfStock  NM active"
   Final = "<div class=""outOfStockNotice"">"
   Set XML = CreateObject("Microsoft.XMLHTTP")
   XML.Open "POST", web, False
   XML.send
   texto = XML.responsetext
   posicion1 = InStr(texto, principio)
   posicion2 = InStr(texto, Final)
   dato = Mid(texto, posicion1, (posicion2 - posicion1))
      If Err = 0 Then
      Cotizacion = Split(dato, "<span class=""stylePrice"">                           $")
      Range("l4") = Trim(Left(Cotizacion(1), 6))
      'cambiar color de celda
      'Range("d4").Interior.ColorIndex = 3
      Range("l4").Font.ColorIndex = 3
      End If
   End If
   Set XML = Nothing
   Application.ScreenUpdating = True
End Sub

pero tengo problemas para obtener el valor que quiero de esta pagina (con otras paginas me anda bien) , y no se como arreglarlo,  agradecería mucho si alguien me pudiera ayudar a obtener este valor (el precio)

muchas gracias!