Dim sr As System.IO.StreamReader
        Dim str As String
        For Each tempstr As String In System.IO.Directory.GetFiles( _
          Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
            sr = New IO.StreamReader(tempstr)
            str = sr.ReadToEnd
            sr.Close()
            If str.IndexOf("URL=") > -1 Then
                Debug.WriteLine(str.Substring(str.IndexOf("URL=") + 4, _
                  str.IndexOf(ControlChars.Lf, _
                                str.IndexOf("URL=") + 1) - str.IndexOf("URL=") _
                                - 4))
            End If
        Next