QTP: Find No. of Links on Page

To find the number of links on Page Using QTP:

Set oDesc = Description.Create()
oDesc("micclass").Value = "Link"
Set Links = Browser("Browser").Page("Page").ChildObjects(oDesc)
NumberOfLinks = Links.Count()
Msgbox NumberOfLinks