How to Pass Input Array from VB?

See more:

ATL

COM

I have Created ATL Project in VS2010.
I am having my ATL Control.
I have added Method given below.

Code in IDL File:
[id(1)] HRESULT GetInput([in] LONG* lnInput);

Code in Header File:
STDMETHOD(GetInput)(LONG* lnInput);

Code in CPP File:
STDMETHODIMP CATLSampleCtrl::GetInput(LONG* lnInput)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());
CString s1, s2;
for(int i = 0; i < 5; i++)
{
s2.Format(_T("%d\n"),lnInput[i]);
s1 += s2;
}
AfxMessageBox(s1);
return S_OK;
}


I want to pass input array from VB Sample having 5 values.
It is giving me "Data Type Mismatch" Error Message.