Visual Basic - Puta dll

Es un error chorra, seguro, pero no acabo de encontrar porq me falla.

Os explico. Simplificado el error.

He creado una dll, en el módulo de clase con nombre "NomClase" he definido una rutina pongamos q se llama "PutoError" q tiene un parametro de entrada de nombre "Mensaje" tipo string.

<dentro del módulo de clase (NomClase) aplicacion dll>
Public Sub PutoError (Byval Mensaje as string)
msgbox Mensaje
End Sub

Compilo la dll y ningún problema me crea la dll con nombre error.dll

<Desde otro programa de visual basic>
1.Declaro la dll
Public Declare Function PutoError Lib "error" (Byval Mensaje as string)

2.Llamo a la funcion de la dll pasando el parámetro
PutoError("Gracias por ayudar")

Y me devuelve el bonito de error "No se encuentra la función de biblioteca DLL especificada (erro 453)"

¿Qué es lo q hago mal?

MUCHAS GRACIAS !!!

El problema está en que las librerías ActiveX generadas con VB exportan Clases y no funciones. No es necesario que declares la función PutoError, debes crear una instancia de la clase NomClase y despues con NomClase.PutoError se ejecutará la función.
Tambien puedes darle el valor 6(globalMultiuse) a la propiedad Instancing de la clase y no será necesario que crees una instancia de NomClase para ejecutar dicha función, y no te olvides de incluir la referencia a tu Dll en las referencias de tu proyecto