Private xlsApplication As Excel.Application
Private xlsWorkbook As Workbook
Private xlsWorksheet As Worksheet
 
Set xlsApplication = New Excel.Application
Set xlsWorkbook = xlsApplication.Workbooks.Add
Set xlsWorksheet = xlsWorkbook.Worksheets(1)
 
'Jede Menge Code....
 
xlsWorkbook.Close True, App.Path + "\text.xls"
xlsApplication.Quit
Set xlsApplication = Nothing