Me.WebBrowser0.Object.Document.documentElement.out erHTML gives you the page source. Declare a string variable and set it to that then parse it to get your two pieces:
Code:
Dim strSourceCode as string,vQuantity as variant,vPrice as Variant
strSourceCode =Me.WebBrowser0.Object.Document.documentElement.outerHTML
'strSourceCode ="<div class="quantity">Qty <input name="Quantity" type="text" value="1" maxlength="3" /></div>
<strong class="showPrice" style="">£86.39</strong>"
vQuantity=Left(strSourceCode,Instr(strSourceCode,vbNewLine) 'first line
vQuantity=Replace(Replace(Replace(vQuantity,"<div class="quantity">Qty <input name="Quantity" type="text" value=","")," maxlength="3" /></div>",""),""","")
vQuantity=CInt(vQuantity) 'Convert to Integer
vPrice =Mid(strSourceCode,Instr(strSourceCode,vbNewLine)+1+) 'second line
vPrice =Replace(Replace(vPrice ,"<strong class="showPrice" style="">",""),"</strong>","")
vPrice =CCur(vPrice ) 'Convert to Currency
Cheers,
Vlad