Visual Basic - Exportar a Excel

Hola, a ver si me podeis ayudar.
Tengo una aplicación desarrollada en Access bajo código VBA, y tengo que hacer una consulta exportarla a una hoja de cálculo Excel, por código VB.
¿Me podeis ayudar? Lo necesito con urgencia, y no sé cómo hacerlo por código.
Si me podeis pasar algún código o ejemplo, os lo agradecería.
Gracias de antemano.
Salu2 !!

'pon un control list1
'ingrese unos cuantos valores en la lista
'activa en referencias Microsoft Excel Library

'el siguiente codigo ingrese en boton de comando
Dim ApliExcel As Excel.Application
Set ApliExcel = New Excel.Application
ApliExcel.Workbooks.Add 'añde un libro
ApliExcel.Visible = True 'lo hace visble
Dim i As Integer
For i = 0 To List1.ListCount
ApliExcel.Worksheets(1).Cells(i + 1, 1).Value = List1.List(i)
Next

'espero que te sirva