Public Function New( _
   ByVal stream As Stream, _
   ByVal mode As CryptoStreamMode _
)

public Safe64Stream( 
   Stream stream,
   CryptoStreamMode mode
)

byte[] data = new byte[222];
new Random().NextBytes(data);
using (Stream mem = new MemoryStream())
{
    using (Stream io = new Safe64Stream(new NonClosingStream(mem), CryptoStreamMode.Write))
        io.Write(data, 0, data.Length);


    Assert.AreEqual((long)Math.Ceiling((data.Length * 8) / 6d), mem.Position);
    mem.Position = 0;
    string test = new StreamReader(mem).ReadToEnd();
    Assert.AreEqual(Safe64Encoding.EncodeBytes(data), test);
}

Dim data As Byte() = New Byte(222) {}
New Random().NextBytes(data)
Using mem As Stream = New MemoryStream()
    Using io As Stream = New Safe64Stream(New NonClosingStream(mem), CryptoStreamMode.Write)
        io.Write(data, 0, data.Length)
    End Using


    Assert.AreEqual(DirectCast(Math.Ceiling((data.Length * 8) / 6.0), Long), mem.Position)
    mem.Position = 0
    Dim test As String = New StreamReader(mem).ReadToEnd()
    Assert.AreEqual(Safe64Encoding.EncodeBytes(data), test)
End Using