MsgBox "Data exported successfully to C:\Temp\VB6_Export.xlsx", vbInformation

' Add reference to: Microsoft Excel 16.0 Object Library ' Add a CommandButton named cmdExportToExcel

Dim xlApp As New Excel.Application Dim xlWorkbook As Excel.Workbook

' Auto-fit columns xlWS.Columns.AutoFit

regsvr32 "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE"

Set xlApp = New Excel.Application xlApp.Visible = True