<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes("This is a string")
Dim ms As New MemoryStream()
ms.Write(data, 0, data.Length)
ms.Close()
End Sub
Untitled Page