自作プログラムで
Document
　<HTML>
　　<BODY>
　　　<TABLE>
　　　　<TBODY>
　　　　　<TR>
　　　　　　<TD>
　　　　　　　<TABLE>
　　　　　　　　<TBODY>
　　　　　　　　　<TR>
　　　　　　　　　　<TD>
の順にたどれば「innerHTML="証券<BR>コード"」にたどり着いたぞ。


'参考
Private Sub Command1_Click()
   WebBrowser1.navigate "money.www.infoseek.co.jp/MnStock/sranking.html?t=r&k=r&m=A"
End Sub
Private Sub Command2_Click()
   Dim doc As MSHTML.IHTMLDocument3
   Set doc = WebBrowser1.document
   PrintChildren "", doc.documentElement
End Sub
Private Sub PrintChildren(ByVal tabs As String, ByVal node As MSHTML.IHTMLElement)
   Dim e As MSHTML.IHTMLElement
   Debug.Print tabs; "<"; node.tagName; ">" '& node.innerText
   For Each e In node.children 'MSHTML.IHTMLElementCollection
       PrintChildren tabs & vbTab, e
   Next e
End Sub