Declare dll function error

[XonsArgi]

Hello guys. I'm having trouble tryin to declare a function from a dll, in a test case I'm not bein' able to use a function that i made using visual basic in a dll.
Error 453 gets on my way no matter what i do.


The code in the VBA on excel is:

Declare Function TestReturn Lib "[I](Path to dll folder)\JMSys.dll[/I]" () As Double

Sub teste()
    MsgBox TestReturn
End Sub

The code usin' in the dll is:

Public Module LinearAlgebra
    Public Function ModulusOfVector(ByRef x As Double()) As Double


        Dim sum As Double
        Dim i As Long


        For i = LBound(x) To UBound(x)
            sum = sum + x(i) ^ 2
        Next i


        Return sum ^ (0.5)


    End Function
    Public Function TestReturn(x As Double) As Double
        TestReturn = 3
    End Function
End Module

The code on Visual Basic works for sure cause I tested on other application created in VB

Any lights?

 

[Kenneth Hobson]

Did this not help?

Option Compare Text 
Option Strict Off 
 'Imports WP = WordPerfect.PerfectScript
Imports System 
Imports System.Runtime.InteropServices 
Imports WIN32 = Microsoft.Win32 
 
 
<ClassInterface(ClassInterfaceType.AutoDual), ComVisible(True)> _ 
Public Class Multiply 
 
Public Function MultiplyBy2(ByVal D As Double) As Double 
    Return D * 2 
End Function 
 
Public Function MultiplyBy4(ByVal D As Double) As Double 
    Return D * 4 
End Function 
 
 
<ComRegisterFunctionAttribute()> _ 
Public Shared Sub RegisterFunction(ByVal type As Type) 
WIN32.Registry.ClassesRoot.CreateSubKey(GetSubkeyName(type)) 
End Sub 
 
<ComUnregisterFunctionAttribute()> _ 
Public Shared Sub UnregisterFunction(ByVal type As Type) 
WIN32.Registry.ClassesRoot.DeleteSubKey(GetSubkeyName(type), False) 
End Sub 
 
Private Shared Function GetSubkeyName(ByVal type As Type) As String 
Dim S As New System.Text.StringBuilder() 
S.Append("CLSID\{") 
S.Append(type.GUID.ToString().ToUpper()) 
S.Append("}\Programmable") 
Return S.ToString() 
End Function 
 
End Class