Visual Basic - Si alguien puede aorregirme esto ..

No se mucho de VB pero estoy tratando de guardar un MsflexGrip en excel, estoy usando este codigo pero no funciona, me sale un error que dice \"Se requiere un objeto\"... yo le puse de nombre al Msflexgrip dl..pero no se si hay que declararlo como variable en el modulo, ademas n es un numero que pide el programa previamente

Private Sub Command1_Click()
Dim MiExcel As Object
Dim guardar As String
\'EXPORTAR INFORME A EXCEL\'

CommonDialog1.CancelError = True
Set MiExcel = CreateObject(\"excel.sheet\")

Do While dl.TextMatrix(fila, 0) <> \"\" \'Queda subrayado al depurarlo.
dl.Row = n
For i = 0 To n
dl.Col = i
MiExcel.ActiveSheet.Cells(fila + 1, i + 1).Value = dl.Text
Next
fila = fila + 1
i = 0
Loop

\'Guardo archivo\'

CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = \"Todos los archivos (*.XLS)|*.XLS\"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
guardar = CommonDialog1.FileName
MiExcel.SaveAs guardar
MiExcel.Application.Quit
Set MiExcel = Nothing
MsgBox \"Se Generó el archivo:\" & guardar, vbInformation, \"Informe\" \' guardar

End Sub

primero agrega la referencia a Excel a tu proyecto:
despues

Dim objExcel As Excel.Application, MiCelda As Variant

Set objExcel = New Excel.Application