problema con dll

[vito_gris]

Hola amigos he creado una dll, el objetivo de esta dll es crear un archivo excel
incluir un grafico.
Estos lo debo ealizar con los resultados de una consulta a la base de datos.

El problema que tengo es el siguiente:

La dll la llamo desde ASP de la siguiente manera

set Obj_excel= server.CreateObject("Proyecto1.excel")
set genera=Obj_excel.crea_excel()

Pero aparece el siguiente error
Tipo de error:
Proyecto1 (0x800A000D)
No coinciden los tipos
/plus/analisis/cargos.asp, line 10

El codigo que tengo por ahora en la dll es el siguiente:

Function crea_excel()
Set MyExcel = CreateObject("Excel.Application")
Set wbExcel = MyExcel.Workbooks.Add
Set shExcel = wbExcel.Worksheets.Add
MyExcel.Worksheets(1).Cells(15, "B") = 1000
MyExcel.Worksheets(1).Name = "Datos"
MyExcel.Worksheets(2).Name = "Grafico"
MyExcel.Charts.Add
MyExcel.ActiveChart.ChartType = xlColumnClustered
MyExcel.ActiveChart.SetSourceData Source:=MyExcel.Sheets("Datos").Range("B15:I19"), PlotBy _
:=xlRows
MyExcel.ActiveChart.Location Where:=xlLocationAsObject, Name:="Grafico"
With MyExcel.ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "graficando jeje"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

MyExcel.Visible = True
Set shExcel = Nothing
Set wbExcel = Nothing
Set MyExcel = Nothing

End Function

Por su ayuda gracias