alguien sabe crear dll en vb6??

[vito_gris]

puedo entender que manejas el uso de dll, mi pregunta es la siguiente
tengo el siguiente codigo en un archivo para dll

Function crea_excel(nombre_archivo)
strbarra = Right(App.Path, 1)
If strbarra = "\" Then
sbase = App.Path + nombre_archivo
Else
sbase = App.Path + "\" & nombre_archivo
End If
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sbase)
xlBook.Worksheets(1).Cells(1, 1).Value = "Hello"
xlBook.Close savechanges:=True
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
crea_excel = sbase
End Function
Ahora una vez compilada la llamo desde asp pero no realiza la modificacion al archivo xls.

Mi duda esta en que mis otras funciones en la dll las declaro de tipo string u otras como recorset, pero esta de que tipo debe ser?