se l'intento è quello di creare una fattura potresti utilizzare il datareport stesso di vb6.
Cmq x il discorso excel ho trovato questo esempio, spero faccia al caso tuo, ciao.
codice:
'dichiarazioni
Dim xl As Excel.Application
'dichiarazione dell'oggetto
Set xl = CreateObject("Excel.Application")
xl.Visible = True 'vedi il foglio mentre si compone
xl.Workbooks.Add 'aggiunge foglio EXCEL
'per scrivere in una cella
xl.Range("A1").Value = "1"
xl.Range("A2").Value = "12"
'xl.Range("A1").Font.Size = Size 'grandezza del Font(es 10)
xl.Range("A1").Font.Bold = Bold 'grassetto(true o false)
'per fare calcolare una somma
xl.Range("B30").Formula = "=sum(a1:a2)"
'dimensionamento del foglio
xl.ActiveSheet.PageSetup.Orientation = xlPortrait
'anteprima di stampa
xl.ActiveSheet.PrintPreview
'stampa
xl.ActiveSheet.PrintOut 'stampa
'operazioni di chiusura del foglio
xl.ActiveWorkbook.Close False
xl.Quit