Visual Basic - llamar dll

al llamar una dll escrita en c++ el interprete de visual basic me da el siguiente error:

run-time error '49'
bad dll calling convention

por que me da este error?

aqui esta el codigo del prog en VB:

Private Declare Function suma Lib _
"G:\_a.Temporales\_ProyDePrueba\pruebaDLL\Debug\pruebaDLL.dll" _
(var As Integer) As Integer

Private Sub Command1_Click()
Text1.Text = suma(10)
End Sub

aqui esta el codigo en visual c++:

extern "C" _declspec ( dllexport )
int suma ( int a = 3 )
{

return a * 23 ;

}