Criação de DLL no Delphi para usar no Visual Basic 6

No Delphi, vá em File > New> Other> Delphi Projects> Dinamic-Link Library.

Insira a seguinte função:

function Max(a, b : double):double;export;stdcall;
begin
if (a > b) then result:= a else result := b;
end;
exports Max;

Observações:
Export = indica que a função poderá ser chamada por outros aplicativos.
Stdcall = permite que aplicativos desenvolvidos em outras linguagens façam chamadas à função.

Código fonte completo:

library prjdll;
uses
SysUtils,
Classes;
function Max(a, b : double):double;export;stdcall;
begin
if (a > b) then
result := a
else
result := b;
end;
exports Max;
begin
end.

Agora, no Visual Basic 6  adicione a assinatura de método a seguir em um módulo:

Public Declare Function Max Lib "c:\fontes\dll\prjdll.dll" (ByVal n1 As Double, ByVal n2 As Double) As Double