VB中webbrowers控件用法问题
<div id='2' title='1-2.wav'>
上面这句代码是我在html文件中部分内容，我想在VB中获得它的字段‘1-2.wav’，我用了下面方法实现：
Dim spanHtml As HTMLSpanElement, WavPath As String
Set spanHtml = Web_Doc.getElementById(CStr(2))
WavPath = Mid(mWebPath, 1, VBA.InStrRev(mWebPath, "\")) & spanHtml.Title
虽然这样勉强可以获得html中的内容，但是鼠标放在对应的文本上，它就会显示title的内容，其实我本来想html中是这样来写的：<div id='2' AudioPath='1-2.wav'> 但是并不知道怎么获取。另外还想到了另外一个方法，就是在html加个div如：
<div id='audiopath' title='1-2.wav||1-3.wav...'>这样也勉强达到我的要求，不过我还是希望能够在VB中直接从<div id='2' AudioPath='1-2.wav'>中获取到AudioPath属性在内容。

另外我的html文件中还有返回值方法：
function calScore() {
var totalScore = 0;
$(".question").each(function(){
if ($(this).attr("answer") == $("input[name=ad" + $(this).attr("index") + "][checked]").val()) {
totalScore += parseInt($(this).attr("score"), 10);}});
alert("总分：" + totalScore);
return totalScore;;
}
在VB中我想获得它返回的totalScore，但是尝试了很多方法，都没有成功，希望哪位大神能够不吝赐教。


[解决办法]
1.可以提取html网页中的源代码后用instr(源码，"AudioPath=")获得所在位置的数值，再通过mid（源码，获取到的数值+11，7）获得1-2.wav

2.可以用WebBrowser1.Document.parentWindow.execScript"calScore()"