Use Excel Automation to create a spreadsheet with your data
A good reference for you would be:
Here's a code example that moves an array into an Excel spreadsheet:
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application"

Set oBook = oExcel.Workbooks.Add
'Add headers to the worksheet on row 1
Set oSheet = oBook.worksheets(1)
oSheet.Range("A1"

.Value = Array("Product ; Account Number"

oSheet.Range("A1"

.Font.Bold = True
oSheet.Range("A1"

.EntireColumn.AutoFit
'Transfer the array to the worksheet starting at cell A2
oSheet.Range("A2"

.Resize(lCtr + 1).Value = dataArray
'Save the Workbook and Show it
strFileName = "c:\spreadsheet.xls"
If Dir(strFileName) <> "" Then Kill strFileName
oBook.SaveAs strFileName
Call ShellExecute(Me.hwnd, "open", strFileName, "", 0, 1)