Option Explicit
 
Private xlsApplication As Excel.Application
Private xlsWorkbook As Workbook
Private xlsWorksheet As Worksheet
 
Private Sub Form_Load()
    Set xlsApplication = New Excel.Application
    Set xlsWorkbook = Excel.Workbooks.Add
    Set xlsWorksheet = Excel.Worksheets.Add
 
    xlsWorksheet.Cells(1, "a") = "Test"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    xlsWorkbook.Close True, App.Path + "\text.xls"
    xlsApplication.Quit
    Set xlsApplication = Nothing
End Sub