2016 Update

Task/Call-a-function-in-a-shared-library/VBA/call-a-function-in-a-shared-library-1.vba

@@ -0,0 +1,6 @@
+function ffun(x, y)
+    implicit none
+    !DEC$ ATTRIBUTES DLLEXPORT, STDCALL, REFERENCE :: ffun
+    double precision :: x, y, ffun
+    ffun = x + y * y
+end function

Task/Call-a-function-in-a-shared-library/VBA/call-a-function-in-a-shared-library-2.vba

@@ -0,0 +1,8 @@
+Option Explicit
+Declare Function ffun Lib "vbafun" (ByRef x As Double, ByRef y As Double) As Double
+Sub Test()
+    Dim x As Double, y As Double
+    x = 2#
+    y = 10#
+    Debug.Print ffun(x, y)
+End Sub