Calling to a VB6 function pointer from a c++ thread

See more:

VB6

C++

multi-threading

I'm trying to call from a thread to a pointer.
Here is my code:

myDll.dll c++ :

long cbAddrAsync;
void _asyncer(void* data)
{
        typedef void (__stdcall *FUNCPTR)();
    FUNCPTR vbFunc;
    vbFunc = (FUNCPTR)cbAddrAsync;
    vbFunc();
}
extern "C" __declspec(dllexport) void async(long addr)
{
    cbAddrAsync = addr;
    HANDLE hHandle = (HANDLE)_beginthread(_asyncer,0,NULL);
}

calling to this extern with vb6:
In Module1:

Declare Sub async Lib "myDll.dll" (ByVal addr As Long)
Sub onAsync()
MsgBox "ASYNC"
End Sub

In Form1:

Private Sub Command_Click()
Call async(AddressOf Module1.onAsync)
End Sub

when i click at command button , The problem occurs in dll:
Unhandled exception at 0x734f9232 in Project1.exe: 0xC0000005: Access violation reading location 0x00000076.
in vbFunc();

How can I fix it?
Thanks.