Run time error

[RPS_QTP]

    Set objLink = Description.Create()

Code:

objLink("micclass").value = "Link"
Count=0
Set AllLinks = Browser("title:=Gmail.*").Page("title:=Gmail .*").ChildObjects(objLink)
For i=0 to AllLinks.Count-1
boldTag=AllLinks(i).GetROProperty("innerhtml")
If instr(boldTag,"<B>")<>0 AND instr(boldTag,"class=ts")<>0 Then
     Count=Count+1
End If
Next
msgbox "You have " & Count &" unread mail(s)"

@ above code
im getting "general run time error"