Acceso y creación de archivo excel por VB 6

Este es el código para trabajar con archivos de Excel:
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act
'Abre el archivo
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= "nombre_archivo"
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
'Para cambiar el contenido de una Celda
hoja_act.range("Ref_Celda").Value = ....
'Para guardar los cambios en el archivo
libro_act.Save
libro_act.Saved = True
'Para cerrar el Archivo
ApExcel.quit
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Es todo.
Suerte !
Rogers R.