Visual Basic - Excel y V.B como insertar datos

Hola.
Mi cuestion es como insertar datos desde visula basic en excel en tiempo de jecucion, estoy probando pero no consigo escribir, este es el código que estoy probanso:

Dim libro As EXCEL.Workbook
Dim hoja As EXCEL.Worksheet
Set libro = GetObject("c:\vehiculos\factura.xls")
Set hoja = libro.Worksheets("hoja1")
hoja.Cells("A16") = Data1.Recordset.Fields(18).Value

Saludos, Gracias

Creo que debes definir variables objeto asi .. (aqui las coloque como publicas)
Public Exl As Excel.Application
Public Xls As Workbook (aunque esta ya la definiste)

Luego lo ...
Set xls as New Excel.application

Luego en el Evento Click de algun Boton Digamos se LLame "Enviar A Excel"

Private sub cmdEnvExl()
xls.worksheets("hoja1").activate
xls.worksheets("hoja1").range("a16")=Data1.Recordset.Fields(18).Value
'..y asi sucesivamente por las celdas y campos de tu Bd que necesites
end sub

G.