[2005] A quick question about toostripmenuitem.tag

i'm building an IE clone, and i'm working on a favorites menu, i'm using a toostripmenuitem to do it, i have no problem populating the menu with both folders and url's. The only problem is the tag that holds the actual url isn't always working. Here's what i'm using to populate the menu item

VB Code:

For Each strFav As DirectoryInfo In diFavorite.GetDirectories
                'get folder names
                strsplit = Split(strFav.ToString, "\", , CompareMethod.Text)
                'populate subfolder with folder name
                subFolders = New ToolStripMenuItem(strsplit(0))
                'populate subfolder with any url's found in it
                For Each url As FileInfo In strFav.GetFiles
                    'remove file extention and set favorite names
                    strFavPath = url.Name.Substring(0, url.Name.Length - 4)
                    'open streamreader and store as Url as FUrl
                    StReader = url.OpenText
                    fUrl = StReader.ReadToEnd
                    'Get url to add to tag
                    fUrl = fUrl.Substring(fUrl.LastIndexOf("URL=") + 4)
                    'see if there's any spaces within fUrl, they have to be removed
                    'or an url error will occur
                    If String.Compare(fUrl.Substring(0, fUrl.Length), " ") Then
                        'use i to get end of url
                        Dim i As Integer
                        'Use space to seperate url from other random info
                        i = fUrl.IndexOf(CInt(Val(" "c)))
                        If i <> -1 Then
                            fUrl = fUrl.Substring(0, i)
                        End If
                    End If
                   
                    'add List of favorites to mnuFavorites
                    subFolders.DropDownItems.Add(strFavPath, Nothing, New eventhandler(AddressOf mnuFavorites_Click)).Tag = fUrl
 
                Next
 
                'add subfolder to favorites menu
                mnuFav.DropDownItems.Add(subFolders)

Where am i going wrong...

Redmo