ASP - Parametros por Referencia en Mètodo DLL

Estoy invocando desde ASP un mètodo creado en una dll en visual, estoy pasando un paràmetro por referencia (en el mètodo) pero el valor devuelto no viene cambiado, ¿como puedo hacer que el paràmetro si cambie dentro del mètodo en la clase de la dll en Visual?. El còdigo es:

dim a,b
set a = Server.CreateObject("Project1.Class1")
a.Cambia(b)
Response.Write b
Response.End

El mètodo a.Cambia(b) dentro de la dll tiene el siguiente còdigo:

Public Sub Cambia(ByRef b As Integer)
b = 2
End Sub

PERO EL VALOR DEL PARAMETRO NO CAMBIA, b SIGUE CON VALOR DE 1 Y NECESITO QUE CAMBIE A 2.

GRACIAS

No se, quizas se deba a que no le has asignado ningun valor a la variable b. Al declararse la variable lo hace como variant. Esto te daría un error en la dll de "no coinciden los tipos". Este error no te saldría en pantalla pro anularia el proceso. Prueba a darle primero un valor que se ajuste al que solicita la dll o bien, pon byref b as variant.
Por otra parete el response.end no hace falta para nada.