<MarshalAs(UnmanagedType.ByValArray, SizeConst:=1440)>

Option Strict On

Imports System.Text
Imports System.Text.Encoding
Imports System.Runtime.InteropServices

Public Class Form1

    <StructLayout(LayoutKind.Sequential)> _
    Structure SPort

        Public High As Byte
        Public Low As Byte
        Public Gravity As Byte
        Public FreezeZonks As Byte
        Public FreezeEnemyes As Byte
        Public Unused As Byte

    End Structure

    <StructLayout(LayoutKind.Sequential)> _
    Structure Level

        Sub New(ByVal Initialize As Boolean)
            If Initialize Then
                ReDim Me.Data(59, 23)
                ReDim Me.Title(22)
                ReDim Me.SPorts(9)
            End If
        End Sub

        <MarshalAs(UnmanagedType.SafeArray)> _
        Public Data(,) As Byte                '1440
        Public Unused1 As Int32               '4
        Public Gravitation As Byte            '1
        Public Unused2 As Byte                '1
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=23)> _
        Public Title() As Byte                '23
        Public FreezeZonks As Byte            '1
        Public InfotronsNeeded As Byte        '1
        Public SPortsNumber As Byte           '1
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> _
        Public SPorts() As SPort              '10*6=60
        Public Unused3 As Int32               '4

        Public Shared Length As Int32 = 1536
    End Structure

    '// ЗАГЛУШКА
    '// Реальный массив байт будешь читать из Stream файла
    Dim bytesStructure(Level.Length - 1) As Byte

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '// Создаем заглушку

        '// Создаем экземляр структуры заполняем его данными
        Dim tempLevel As New Level(True)

        '// Байтовое представление строки
        Dim bytesTitle() As Byte = UTF8.GetBytes("Test structure Level" '// <= 23 bytes
        With tempLevel
            '// Копируем в структуру. (через присвоение нельзя, иначе изменится размер)
            Array.Copy(bytesTitle, .Title, bytesTitle.Length)
            .Gravitation = 7
            .InfotronsNeeded = 3
            .Unused1 = 12345
            .Data(12, 12) = 222
        End With

        '// Выделяем блок памяти нужного размера и получаем Handle
        Dim memoryHandle As IntPtr = Marshal.AllocCoTaskMem(Level.Length)
        '// Копируем структуру в память
        Marshal.StructureToPtr(tempLevel, memoryHandle, True)
        '// Берем из памяти блок байт и переносим его в наш массив-заглушку
        Marshal.Copy(memoryHandle, bytesStructure, 0, Level.Length)
        '// Освобождаем память
        Marshal.FreeCoTaskMem(memoryHandle)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '// Выделяем блок памяти нужного размера и полyчaем Handle
        Dim memoryHandle As IntPtr = Marshal.AllocCoTaskMem(Level.Length)

        '// Копируем массив-заглушку по указанному адресу
        Marshal.Copy(bytesStructure, 0, memoryHandle, Level.Length)

        '// Заполняем нашу структуру
        Dim myLevel As Level = CType(Marshal.PtrToStructure(memoryHandle, GetType(Level)), Level)

        '// Освобождаем память
        Marshal.FreeCoTaskMem(memoryHandle)

        '// Check & Show Results
        Dim stringTitle As String = UTF8.GetString(myLevel.Title)
        '// Обрезаем до нужной длинны
        Dim NullCharPos As Int32 = stringTitle.IndexOf(vbNullChar)
        If NullCharPos <> -1 Then stringTitle = stringTitle.Substring(0, NullCharPos)
        '// Формируем строку
        Dim stringBuilder As New StringBuilder
        With stringBuilder
            .AppendLine(String.Format("Title: {0}", stringTitle))
            .AppendLine(String.Format("Gravitation: {0}", myLevel.Gravitation))
            .AppendLine(String.Format("InfotronsNeeded: {0}", myLevel.InfotronsNeeded))
            .AppendLine(String.Format("Unused1: {0}", myLevel.Unused1))
            .AppendLine(String.Format("ata(12, 12): {0}", myLevel.Data(12, 12)))
        End With

        MessageBox.Show(stringBuilder.ToString, "Check & Show Results", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

End Class

двумерный массив можно заменить одномерным как Data(1439) As Byte

<MarshalAs(UnmanagedType.ByValArray, SizeConst:=1440)> _
        Public Data() As Byte

ReDim Me.Data(1439)

.Data(12, 12) = 222
.AppendLine(String.Format("ata(12, 12): {0}", myLevel.Data(12, 12)))