QTP Script to Get Count of Unread Yahoo Messages

Descriptive Programming to find number of unread messages in yahoo mail

SystemUtil.Run"iexplore","http://www.yahoomail.com"
Set g=Browser("name:=Yahoo.*").Page("title:=Yahoo.*")
g.WebEdit("name:=login").Set "xyz"
g.WebEdit("name:=passwd").Set "abc"
g.WebButton("name:=Sign In").Click
a=g.Link("name:=Inbox.*").getroproperty("innertext")
b=len(a)
If b=5 Then
Msgbox"u have zero unread messages"
else
c=mid(a,8,len(a)-1)
d=left(c,len(c)-1)
msgbox "number of unread messages=" &d
End If