VC编写的DLL怎么在VB里调用

VC编写的DLL如何在VB里调用
照书写了一个DLL，只有一个全局函数，如何在VB里调用？
我用API声明后好像不行哦。。。。

------解决方案--------------------
要做成规则DLL
------解决方案--------------------
VC:
extern __declspec(dllexport) int PASCAL MyFunc(LPSTR lpStr1, LPSTR lpStr2)
{
AfxMessageBox((CString)lpStr1 + " dlllll " + (CString)lpStr2 );
return 1;
}

VB:
Private Declare Function MyFunc Lib "DeposalXml.dll " (ByVal str1 As String, ByVal str2 As String) As Long

Private Sub Command1_Click()
Dim i As Integer
i = MyFunc( "aaaaa ", "bbbb ")
MsgBox i
End Sub


------解决方案--------------------
注意调用规范
------解决方案--------------------
用def文件导出函数是个不错的办法
------解决方案--------------------
使用 regular DLL
------解决方案--------------------
格式这样写
__declspec(dllexport) void __stdcall fun()
并在.def文件中声明各个函数，用VB调用的时候，参数要按值传ByVal