Public Class Test
 
    Public Shared Function addieren(ByVal x As Double,
                             ByVal y As Double) As Double
        Dim summe
        summe = x + y
        Return summe
 
    End Function
 
End Class

Option Explicit On
Module Module1
    Declare Function addieren Lib "TestDll.dll" (ByVal a As Double, ByVal b As _
      Double) As Double
    Sub Main()
        Dim sum
        sum = addieren(1, 2)
        MsgBox(sum)
    End Sub
 
End Module