VB 如何动态加载DLL

VB如何像VC那样通过获取函数指针的方式（GetProcAddress）来动态加载DLL资源？
问题出处
VC中声明的函数如下int __stdcall VBQuerySI(BYTE * B,int bufferSize)
如何在VB中实现如下VC中的功能？
VC++代码：（实现调用上面动态库函数）
typedef int (__stdcall* pVBQuerySI)(BYTE *,int);
#define DLLF_VBQUERYSI "VBQuerySI"
HINSTANCE hInstance;
hInstance = ::LoadLibrary("e:\\CDDE\\chardll\\strdll\\Debug\\strdll.dll");
pVBQuerySI vbi = (pVBQuerySI)GetProcAddress(hInstance,DLLF_VBQUERYSI);
BYTE bbb[100];
BYTE * B;
B = &bbb[0];
i = vbi(B,100);