Untitled

 Dim _MemoryStream As New IO.MemoryStream(1024)
        Dim BinaryWriter As New IO.BinaryWriter(_MemoryStream)
        BinaryWriter.Write(UInt16.Parse(1))
        BinaryWriter.Write("CAR_HUMVEE_CAL50")
        BinaryWriter.Write("ED01")
        BinaryWriter.Write(UInt16.Parse(100))
        BinaryWriter.Write(UInt16.Parse(3500))
        BinaryWriter.Write(Byte.Parse(3))
        BinaryWriter.Write("FA01")
        BinaryWriter.Write(Byte.Parse(0))
        BinaryWriter.Write(UInt16.Parse(0))
        BinaryWriter.Write(UInt16.Parse(0))
        BinaryWriter.Write("FA01")
        BinaryWriter.Write(Byte.Parse(0))
        BinaryWriter.Write(UInt16.Parse(1))
        BinaryWriter.Write(UInt16.Parse(0))
        BinaryWriter.Write("FB01")
        BinaryWriter.Write(Byte.Parse(0))
        BinaryWriter.Write(UInt16.Parse(2))
        BinaryWriter.Write(UInt16.Parse(30000))

        Dim newData As Byte() = New Byte(_MemoryStream.Length) {}
        Array.Copy(_MemoryStream.GetBuffer(), newData, _MemoryStream.Length)
        Console.Write(System.Text.Encoding.Default.GetString(newData)) 'print result