Dim reader As New BinaryReader(File.Open(filepath, FileMode.Open))
reader.BaseStream.Position = &H14043 ' Move reader to position 0x14043
For i As Integer = 0 To 2000 - 1
   Dim object_reader As New BinaryReader(New MemoryStream(reader.ReadBytes(55))) ' Read 55 bytes
   Dim Model_Type = CType(object_reader.ReadByte, Models.Model_Type) ' Read the first byte (01)
   Dim Type_Num = object_reader.ReadByte ' Read the second byte (02)
   Dim Owner As Models.Tribe = object_reader.ReadSByte ' Read SBYTE (03)
   Dim X = object_reader.ReadInt16 ' Read SWORD
   Dim Y = object_reader.ReadInt16 ' Read SWORD
Next