Can't get BuildExplicitAccessWithName API to work in 64-bit VB.Net

Imports System.Runtime.InteropServices
 
Module Module1
 
    Private Const CONTAINER_INHERIT_ACE As Integer = &H2
    Private Const OBJECT_INHERIT_ACE As Integer = &H1
    Private Const SET_ACCESS As Integer = &H2
 
    Private Const SYNCHRONIZE As Integer = &H100000
    Private Const READ_CONTROL As Integer = &H20000
    Private Const WRITE_DAC As Integer = &H40000
    Private Const WRITE_OWNER As Integer = &H80000
    Private Const STANDARD_RIGHTS_READ As Integer = (READ_CONTROL)
    Private Const STANDARD_RIGHTS_WRITE As Integer = (READ_CONTROL)
    Private Const DELETE As Integer = &H10000
    Private Const FILE_DELETE_CHILD As Integer = &H40
    Private Const FILE_ALL_ACCESS As Integer = &HF0000 Or SYNCHRONIZE Or &H1FF
 
    'typedef struct _TRUSTEE {
    '  PTRUSTEE pMultipleTrustee;
    '  MULTIPLE_TRUSTEE_OPERATION MultipleTrusteeOperation;
    '  TRUSTEE_FORM TrusteeForm;
    '  TRUSTEE_TYPE TrusteeType;
    '  LPTSTR ptstrName;
    '} TRUSTEE, *PTRUSTEE;
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
    Public Structure TRUSTEE
        Dim pMultipleTrustee As IntPtr
        Dim MultipleTrusteeOperation As Integer
        Dim TrusteeForm As Integer
        Dim TrusteeType As Integer
        Dim ptstrName As String
    End Structure
 
    'typedef struct _EXPLICIT_ACCESS {
    '  DWORD grfAccessPermissions;
    '  ACCESS_MODE grfAccessMode;
    '  DWORD grfInheritance;
    '  TRUSTEE Trustee;
    '} EXPLICIT_ACCESS, *PEXPLICIT_ACCESS;
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
    Public Structure EXPLICIT_ACCESS
        Dim grfAccessPermissions As Integer
        Dim grfAccessMode As Integer
        Dim grfInheritance As Integer
        Dim Trustee As TRUSTEE
    End Structure
 
    'VOID BuildExplicitAccessWithName(
    '  PEXPLICIT_ACCESS pExplicitAccess,
    '  LPTSTR pTrusteeName,
    '  DWORD AccessPermissions,
    '  ACCESS_MODE AccessMode,
    '  DWORD Inheritance
    ');
    Declare Auto Sub BuildExplicitAccessWithName Lib "AdvAPI32.DLL" ( _
        ByRef pExplicitAccess As EXPLICIT_ACCESS, _
        ByVal pTrusteeName As String, _
        ByVal AccessPermissions As Integer, _
        ByVal AccessMode As Integer, _
        ByVal Inheritance As Integer _
    )
 
    Sub Main()
        Dim ea As New EXPLICIT_ACCESS
 
        Console.WriteLine("starting")
        BuildExplicitAccessWithName(ea, "Users", FILE_ALL_ACCESS, SET_ACCESS, CONTAINER_INHERIT_ACE Or OBJECT_INHERIT_ACE)
        Console.WriteLine("finished")
        Console.WriteLine("ea.Trustee.ptstrName='" & ea.Trustee.ptstrName & "'")
 
        Console.ReadLine()
    End Sub
 
End Module