title: Cannot extract an amount from string with vba
body: <p>I have the following </p>
  
  <p>"PRICE<br>
      40,06€  "</p>
  
  <p>which contains as I can from notepad++ spaces and tab characters I used something like the following to get the number but nothing happens.. I want to get the amount 40,06€</p>
  
  <pre><code>Function ExtractAmount(data As String) As Variant
    Dim s As String
    s = Split(data, "PRICE")(5) 
    ExtractAmount = CCur(Val(s))
  End Function
  </code></pre>
  
  <p>And I call it</p>
  
  <pre><code>Set price = ie.Document.querySelector(".price")
  wks.Cells(i, "E").Value = ExtractAmount(price.innerText)
  </code></pre>
  
  <p>How can I do it? thank you</p>
  
  <p>** The following url </p>
  
  <p><a href="https://www.overshop.gr/index.php?route=product/product&amp;product_id=101&amp;search=wd10ezex" rel="nofollow noreferrer">https://www.overshop.gr/index.php?route=product/product&amp;product_id=101&amp;search=wd10ezex</a></p>
  
  <p>or such has this moment as a result for price the phrase "Discount 40,50€ from 50€" which does not gets the amount with one selector</p>