For Each tempstr As String In System.IO.Directory.GetFiles( _
          Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
            If IO.Path.GetExtension(tempstr) = ".url" Then
                Dim MyStreamReader As IO.StreamReader = IO.File.OpenText( _
                  tempstr)
                Do Until MyStreamReader.Peek = -1
                    Dim MyLine As String = MyStreamReader.ReadLine
                    If MyLine.StartsWith("BASEURL") = True Then
                        MsgBox(MyLine.Substring(8))
                        Exit Do
                    ElseIf MyLine.StartsWith("URL") = True Then
                        MsgBox(MyLine.Substring(4))
                        Exit Do
                    End If
                Loop
            End If
        Next

Meine Homepage: www.dartrax.de