Private Const MAX_LANA As Integer = 254

   <MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAX_LANA + 1)> Dim lana() As Byte

   UCHAR   lana[MAX_LANA+1];

Private Const MAX_LANA As Integer = 254

Private Const MAX_LANA As Integer = 254