.NET 4.x Как из DLL на Delphi получить значения - Visual Basic .NET

Library NativeDll;
 
uses
  SysUtils,
  Windows;
 
type
 
  PImageSet = ^TImageSet;
  TImageSet = packed record
    Size     : Word;
    FileName : Array[0..200] of Char;
  end;
 
  MsgSet = ^TMsgSet;
  TMsgSet = packed record
    Size     : Word;
    Msg      : Array[0..200] of Char;
  end;
 
function GetImage( Card: DWORD; Info: PImageSet ): Integer; stdcall; export;
begin
  Result := 1;
  if Card = 5 then begin
    Result := 0;
    Info^.FileName := 'BOOBLE.BMP';
  end;
end;
 
function GetMessage( Card: DWORD; Info: MsgSet ): Integer; stdcall; export;
begin
  Result := 1;
  if Card in [1..100] then begin
    Result := 0;
    Info^.Msg := 'Привет Васек!';
  end;
end;
 
exports
  GetMessage,
  GetImage;
 
begin
end.

Imports System
Imports System.Text
Imports System.Runtime.InteropServices
 
Public Class NativeDelphi
 
    Public Structure PImageSet
        Dim Size As Int16
        Dim FFile() As Char ' пробовал всякое
    End Structure
 
    Public Structure MsgSet
        Dim Size As Int16
        Dim Foto() As Char ' пробовал всякое
    End Structure
 
    <DllImport("NativeDll.dll", EntryPoint:="GetImage", _
        CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function GetImage(ByRef Results As PImageSet) As Integer
    End Function
 
    ' и пробовал так
 
    <DllImport("NativeDll.dll", EntryPoint:="GetMessage", CharSet:=CharSet.Auto)> _
    Public Shared Function GetMessage(<MarshalAs(UnmanagedType.LPStr)> ByRef Result As MsgSet)
    End Function
 
End Class