Sort generic collection

Imports System.Collections.Generic
Imports CollectionSorter
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub BtnSortAsc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSortAsc.Click
        Dim BookList As List(Of Book) = New List(Of Book)
        Dim m_book As Book
        m_book = New Book()
        m_book.Author = "Bill Gates"
        m_book.Title = "How to get rich as software engineer!"
        m_book.PublishDate = "1/1/2000"

        BookList.Add(m_book)
        m_book = New Book()
        m_book.Author = "Steve Job"
        m_book.Title = "Why apple went down the drain!"
        m_book.PublishDate = "1/1/2007"
        BookList.Add(m_book)

        Dim colsorter As CollectionSorter(Of Book) = New CollectionSorter(Of Book)("Author asc")
        BookList.Sort(colsorter)
        grdTest.DataSource = BookList
        grdTest.DataBind()
    End Sub

    Protected Sub btnSortDesc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSortDesc.Click
        Dim BookList As List(Of Book) = New List(Of Book)
        Dim m_book As Book
        m_book = New Book()
        m_book.Author = "Bill Gates"
        m_book.Title = "How to get rich as software engineer!"
        m_book.PublishDate = "1/1/2000"

        BookList.Add(m_book)
        m_book = New Book()
        m_book.Author = "Steve Job"
        m_book.Title = "Why apple went down the drain!"
        m_book.PublishDate = "1/1/2007"
        BookList.Add(m_book)

        Dim colsorter As CollectionSorter(Of Book) = New CollectionSorter(Of Book)("Author desc")
        BookList.Sort(colsorter)
        grdTest.DataSource = BookList
        grdTest.DataBind()
    End Sub
End Class