trato de exportar datos de un grid en visual basic 6.0 a excel

[valo]

mira es un proyecto de varios FORM y demasiadas lineas haber si te sirve lo que te envio acontinuacion que es lo que las demas formas tienen.........

Dim objExcel As excel.Application
Dim objWorkbook As excel.Workbook

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal HWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

Option Explicit
-------------------------------------------------------------------------
--------
-----
-----
-----
------
----
For i = 0 To maq + 3
Grid1.Row = i
For n = 0 To pz + 2
Grid1.Col = n
'agrega los datos a las celdas de excel
matrixfin(f, C) = Grid1.Text
C = C + 1
Next n
f = f + 1
C = 1
Next i


C = 1
f = f + 5

matrixfin(f - 2, C) = "MATRIZ ORDENADA POR FILAS"
For i = 0 To maq + 3
grid2.Row = i
For n = 0 To pz + 2
grid2.Col = n
'agrega los datos a las celdas de excel
matrixfin(f, C) = grid2.Text
C = C + 1
Next n
f = f + 1
C = 1
Next i
banfin = True
f = f + 5