在MsgBox中抓取数据并显示

Question

`enter code here`sub Button1_click()
dim html as HTMLDocument 
Set objIE = CreateObject(InternetExplorer.Application")
objIE.Visible = False
Set html = objIE.Document

HTML包含文档后，我想从此页面获取数据，格式如下：

<span class="current-price" data-role="change">65.88</span>

我想在变量中抓取65.88并在MsgBox中显示。