MSFlexGrid Copiar a Excel - VB 6.0

[calichet]

Hola buenas tardes, tengo el siguiente problema a ver si alguien me puede colaborar:

en un programa vb6 necesito guardar lo que tiene un mshflexgrid mediante la opcion guardar archivo en excel, pero aunque tengo la referencia microsoft excel 14.0 Object library me dice permiso denegado (error 70).

El codigo que utilizo es el brindado por AAVG:

Public Function EExcel(ByVal ADE As String)

Dim XlsApl As Excel.APPLICATION
Dim xlsLibro As Excel.Workbook
Dim y As Long

Screen.MousePointer = flexHourglass

Set XlsApl = New Excel.APPLICATION
With XlsApl
.Workbooks.Add
Set xlsLibro = .ActiveWorkbook

With xlsLibro.Worksheets(1)
.Activate
For x = 0 To Grid.Rows - 1
For y = 2 To Grid.Cols - 1
If x = 1 Then Exit For
.Cells(x + 1, y - 1) = Grid.TextMatrix(x, y)
Next y
Next x
End With
'.Visible = True 'Esto es si quieres que se muestre y abra excel al crearla
.Visible = False 'Si solo quieres que se genere el libro sin mostrarse
End With

xlsLibro.SaveAs (ADE)
xlsLibro.Close (ADE)
Set xlsLibro = Nothing
Set XlsApl = Nothing
'MsgBox "Libro de Excel Creado", vbInformation + vbOKOnly, "Terminado"
Screen.MousePointer = 0
End Function

pero aun asi me sale error 70.

cualquier idea bienvenida...