Visual Basic - Pasar Un vector Como Argumento A Una Dll

Mi Pregunta Es La Siguiente:

Estoy Creando Una Librería En Visual C++ Para Después Usarla En Visual Basic 6.0

double WINAPI Mean( double Vector[], int Tamanio )
{

double media = 0;

for ( int i = 0; i < Tamanio; i++ )
media = Vector[i] + media;

media /= Tamanio;

return temp;
}

Private Declare Function Mean Lib "Matematica.dll" (ByRef Vector() As Double, ByVal tamanio As Long) As Double

Dim media As Double
Dim mVector(5) As Double
media = Mean(mVector, 5)

Pero Me Da Puros Orrores

Lo Probe Haciendo
mVector(0) = 1
mVector(1) = 2
mVector(2) = 3
mVector(3) = 4
mVector(4) = 5

Y Comprobar Que Eran Los Mismos Valores Que Tenia En La Función Mean De La Dll Pero Naranjas Me Da Puros Valores Extraños O Ceros

¿Cómo Paso El Vector A Mi Funcion Y Una Vez Que Lo Pase Como Lo Leo?

Si me Pudieran Ayudar
Gracias!!!

Revisa el operador AddressOf si se aplica a este caso porque los vectores en C++ son punteros al primer elemento.