Arrays can be passed as variants:

VB module code:
Attribute VB_Name = "Module "
Declare Function TestMin Lib "c:\windows\system\NoelSArr" 
   (Nums As Variant) As Integer
VB form code:
Dim A As Variant
Private Sub Command _Click()
  A = Array(4, 3)
  MsgBox (TestMin(A))
End Sub
Delphi DLL code:
library NoelSArray;
.
.
function TestMin(const Nums: Variant): integer; export; stdcall;
var
 p : Variant;
begin
 p  := VarArrayCreate([0,  ], VT_I4);
 p := Nums;
  if (p [0] < p [ ]) then
   result:= p [0]
 else
   Result:= p [ ];
end;