crear una dll

[chete]

Reconozco mi torpeza pero aún no entiendo bien cómo va.
El problema creo que viene porque quiero llamar la dll tanto desde delphi como desde vbasic

es algo tan sencillo como
(delphi)
procedure SetLastCode(newcode :LongInt);stdcall;export;
begin
code:=newcode; //donde code es una vbl. de la dll
end;

vbasic
...
Dim code As Long
If IsNumeric(Text2.Text) Then
code = CLng(Text2.Text)
SetLastCode code
End If
...
Aparentemente funciona (no da error) pero cuando recupero el valor me devuelve 1242776, cuando le dije 69. Y siempre me devuelve ese valor. No se si es que tiene que ser un LongInt, un integer (tb lo probé) o lo que.