Stringübergabe Delphi--> VB 6.0 in DLL

[DelphiManiac]

Hallo,

folgendes Anliegen habe ich:

ich habe eine DLL geschrieben (in Delphi), eine Funktion übernimmt einen String (bzw einen Zeiger auf das 1. Byte) C-konform, schreibt diesen in ein Gerät, das zurücklesen zeigt, dass der String nicht richtig übergeben wurde, da nur irgendwelche Sonderzeichen, (irgendwas aus dem RAM) drin stehen.

Meine Funktion sieht so aus:

Delphi-Quellcode:

function Set_Seriennummer(DataPointer:PChar):Cardinal;stdcall;
var
  Text:string;
  aPointer:PString;
  I:Integer;
begin
  SetLength(Text,17);
  StrCopy(pchar(Text),DataPointer);
  Result:=aObj.Set_Seriennummer(Text);
end;

Meine Frage ist nun wenn ich eine Zeiger auf einen String (PChar) übergeben lasse, wie muss die Deklaration in Visual Basic 6
dann aussehen??

Gruß
DelphiManiac