How to get the title of all open browsers

'QTP Script to Get the title of all open browsers

Set BrowserDesc = Description.Create()

BrowserDesc("application version").Value = "internet explorer 8"

Set BrowserCollection = DeskTop.ChildObjects(BrowserDesc)

Browserscount = BrowserCollection.Count

MsgBox "There are totally "&nCnt&" browsers opened"

For icounter = 0 To (Browserscount -1)

MsgBox "Browser: "&icounter&" has contains the title:"& BrowserCollection(Ctr).GetROProperty("title")

Next  

Set bColl = Nothing

Set bDesc = Nothing