File Directory VB.Net

Imports System
Imports System.IO
Public Class BinaryRW
    Shared Sub Main()
        Const upperBound As Integer = 100
        Dim dataArray(upperBound) As Byte
        Dim randomGenerator As New Random
        randomGenerator.NextBytes(dataArray)
        Dim binWriter As New BinaryWriter(New MemoryStream())
        binWriter.Write(dataArray, 0, dataArray.Length)
        Dim binReader As New BinaryReader(binWriter.BaseStream)
        binReader.BaseStream.Position = 0
        Dim verifyArray(upperBound) As Byte
        If binReader.Read(verifyArray, 0, dataArray.Length) <> dataArray.Length Then
            Console.WriteLine("Error writing the data.")
            Return
        End If
    End Sub
End Class