エクセルVB初心者です。

<dt class="market zsg-fineprint">
<!-- Market Text & tooltip -->
<!-- Non-Market Text & Tooltip --> Market ^&reg;: $1.18M</dt>
<dt class="market zsg-fineprint">
から"1.18M"を取り込んで現在のセルから右に6個目のセルにコピペしようと思い、次のようなSubを作りましたが、うまく行きません。
Sub getMarket(objIE As Object)
Dim MarketPosition As Integer
Dim DollarPosition As Integer
MarketPosition = InStr(1, objIE.Document, "Market")
DollarPosition = InStr(marketPosition, objIE.Document, "$")
ActiveCell.Offset(0, 6) = Mid(objIE.Document, DollarPosition + 1, 4)
End Sub
うまく動作させるためにはどうしたらよいでしょうか?