vb调试时能正常运行，为什么编译成dll就运行不正常了呢？

[dfg1478]

下面是去掉outlook警告框的一个函数代码，引用了Outlook Security Manager,dll的时候，总提示类型不正确，搞不明白。忘指教！
''''去掉提示框
Public Function ClearSecurityProc(ByRef OutLookApp As Variant) As Boolean
On Error GoTo errhandle
' Set OutLookApp = objOA
tmp.ConnectTo OutLookApp
tmp.DisableOOMWarnings = True
tmp.DisableCDOWarnings = True
tmp.DisableSMAPIWarnings = True
ClearSecurityProc = True
Exit Function
errhandle:
ClearSecurityProc = False
MsgBox err.Description
End Function