How to create a new workbook

Imports NPOI.HSSF
Imports NPOI.HSSF.UserModel
Imports NPOI.SS.UserModel
Imports NPOI.HPSF

    Private Sub CreateNewWorkBook()
        Dim wb As New HSSFWorkbook()
 
        'Create an entry of DocumentSummaryInformation  
        Dim dsi As DocumentSummaryInformation = PropertySetFactory.CreateDocumentSummaryInformation()
        dsi.Company = "Company Name"
        wb.DocumentSummaryInformation = dsi
 
        'Create an entry of SummaryInformation  
        Dim si As SummaryInformation = PropertySetFactory.CreateSummaryInformation()
        si.Subject = "Subject"
        wb.SummaryInformation = si
    End Sub