' Read the first 20 bytes from the stream.
byteArray = _
    New Byte(CType(memStream.Length, Integer)){}
count = memStream.Read(byteArray, 0, 20)

' 导入命名空间
Imports System.Data
Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Text
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters
Imports System.Runtime.Serialization.Formatters.Soap
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Windows.Forms

Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim s As String = "111"
        Dim n As Integer = 452
        Dim mstream As Stream = New MemoryStream()
        ' Write to the stream
        Dim bytes1() As Byte = UnicodeEncoding.Unicode.GetBytes(s)
        Dim bytes2() As Byte = BitConverter.GetBytes(n)
        mstream.Write(bytes1, 0, bytes1.Length)
        mstream.Write(bytes2, 0, bytes2.Length)

        ' Reset the stream to the beginning
        mstream.Seek(0, SeekOrigin.Begin)

        ' Read from the stream
        Dim bytes3(mstream.Length - 4) As Byte
        Dim bytes4(4) As Byte
        mstream.Read(bytes3, 0, bytes3.Length)
        mstream.Read(bytes4, 0, bytes4.Length)

        ' Do something with the data
        Console.WriteLine(UnicodeEncoding.Unicode.GetString(bytes3) + " " + BitConverter.ToInt32(bytes4, 0))
    End Sub
End Class