How to read XLSB file in VB6

'===============================================================================
' Tutorial 38
'
' This tutorial shows how to read an Excel XLSB file in VB6
' (the XLSB file generated by Tutorial 29 as base template), modify
' some data and save it to another XLSB file (Tutorial38 - read XLSB file.xlsb).
'===============================================================================

VERSION 5.00
Begin VB.Form Form1 
    Caption         =   "Form1"
    ClientHeight    =   4590
    ClientLeft      =   60
    ClientTop       =   345
    ClientWidth     =   6885
    LinkTopic       =   "Form1"
    ScaleHeight     =   4590
    ScaleWidth      =   6885
    StartUpPosition =   3  'Windows Default
    Begin VB.Label Label1 
        AutoSize        =   -1  'True
        Height          =   100
        Left            =   120
        TabIndex        =   0
        Top             =   120
        Width           =   100
    End
End

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()

    Me.Label1.Caption = "Tutorial 38" & vbCrLf & "-----------------" & vbCrLf

    ' Create an instance of the class that reads Excel files
    Set workbook = CreateObject("EasyXLS.ExcelDocument")

    ' Read XLSB file
    Me.Label1.Caption = Me.Label1.Caption & "Reading file: C:\Samples\Tutorial29.xlsb" & vbCrLf
    If (workbook.easy_LoadXLSBFile("C:\Samples\Tutorial29.xlsb")) Then

        ' Get the table of data for the second worksheet
        Set xlsSecondTable = workbook.easy_getSheetAt(1).easy_getExcelTable()

        ' Write some data to the second sheet
        xlsSecondTable.easy_getCell_2("A1").setValue ("Data added by Tutorial38")

        For Column = 0 To 4
            xlsSecondTable.easy_getCell(1, Column).setValue ("Data " & (Column + 1))
        Next

        ' Export the new XLSB file
        Me.Label1.Caption = Me.Label1.Caption & vbCrLf & _
                               "Writing file C:\Samples\Tutorial38 - read XLSB file.xlsb"
        workbook.easy_WriteXLSBFile ("C:\Samples\Tutorial38 - read XLSB file.xlsb")

        ' Confirm export of Excel file
        If workbook.easy_getError() = "" Then
            Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "File successfully created."
        Else
            Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "Error: " & workbook.easy_getError()
        End If
    Else
        Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "Error reading file C:\Samples\Tutorial29.xlsb" & _
                                                vbCrLf & workbook.easy_getError()
    End If

    ' Dispose memory
    workbook.Dispose
End Sub