Ho scritto questa DLL


INIZIO DLL-----------------------------------------
Private mvarMessage As Variant 'Copia locale.
Private mvarGraphType As Variant 'Copia locale.
Public Property Let GraphType(ByVal vData As Variant)
mvarGraphType = vData
End Property

Public Property Set GraphType(ByVal vData As Variant)
Set mvarGraphType = vData
End Property

Public Property Get GraphType() As Variant
GraphType = mvarGraphType
End Property

Public Property Get Message() As Variant
Message = mvarMessage
End Property



Public Function Create() As Variant
Dim Ex
Dim Wb


mvarMessage = ""
Create = -1

'Istanzione un oggetto 'Excel'
Set Ex = CreateObject("Excel.Application")

'In caso non fosse possibile istanziare Excel, visualizzo un messaggio
If Err.Number <> 0 Then
Message = "Errore Excel: " & Err.Number & " - " & Err.Description
Exit Function
End If

'Imposto 'Excel' come 'non visibile'
Ex.Visible = True

'Disabilito la visualizzazione di eventuali MsgBox
Ex.DisplayAlerts = False

'Aggiungo una cartella di lavoro...
Set Wb = Ex.Workbooks.Open("C:\Report NL Template.xls")

'Inzio il caricamento dei dati
'------------------------------

'valori del primo foglio
Wb.Worksheets(1).Range("B3") = "4"
'valori del secondo foglio
Wb.Worksheets(2).Range("B3") = "7"
'Esporto il file in altro nome
'Creo un nome di file random
Wb.SaveCopyAs ("C:\pippo\Test.xls")


End Function
FINE DLL------------------------------------------------
il problema è che quando il codice asp chiama la dll,
il processo excel rimane attivo e non scrive assolutamente nulla nella cartella pippo
COSA é SECONDO VOI????????????