我想取出这个网页代码中的网址，可是不知道哪里出错了。

这是网页代码：

        <li id="webtext">
            
            <span class="info">
            1 / 300 webtexts sent
            </span>
                <a href="https://www.vodafone.ie/myv/messaging/webtext/index.jsp?ts=1249654997500">Webtext</a>
            
            
        </li>

这是我的VB代码：

Private Sub Command1_Click()

Set doc = WebBrowser1.Document
Set body = doc.body
Set user = doc.getElementById("webtext") 

Dim a 

For Each a In user.links  
　Debug.Print a.href
Next 

Set body = Nothing
Set doc = Nothing
set user = Nothing 

End Sub