我把我做的步骤以及代码写出来，请斑竹指教，谢谢！
1、新建一个activex dll
2、代码如下
   Function Add(ByVal AAA As String) As String
       MsgBox AAA
   End Function
3、编译生成D:\vbtest\TestAdd.dll
4、新建一个标准 exe，一个按钮
5、代码如下
   Private Declare Function Add Lib "D:\vbtest\TestAdd.dll" (ByVal AAA As String) As String

   Private Sub Command1_Click()
       Add ("123")
   End Sub
6、点击Command1
出现下列情况：
实时错误'453'：
找不到DLL入口点 Add in D:\vbtest\TestAdd.dll

找不到入口点可能是你的定义书写有误。
activex dll？有没有其他DLL工程？