Imports System
Imports System.IO

Class Sample
  Shared Sub Copy(ByVal fromStream As Stream, ByVal toStream As Stream, ByVal bufferSize As Integer)
    ' 読み込みに使用するバッファを確保
    Dim buffer(bufferSize - 1) As Byte

    Do
      ' コピー元のStreamからバッファのサイズ分だけデータを読み込む
      Dim len As Integer = fromStream.Read(buffer, 0, bufferSize)

      If len = 0 Then Exit Do ' コピー元のStreamの終端まで読み込んだらコピー終了

      ' 読み込んだデータをコピー先のStreamに書き込む
      toStream.Write(buffer, 0, len)
    Loop
  End Sub

  Shared Sub Main()
    Using fromStream As Stream = File.OpenRead("sample.dat")
      Using toStream As New MemoryStream()
        ' ファイルの内容をMemoryStreamにコピー (バッファサイズとして64[バイト]を指定)
        Copy(fromStream, toStream, 64)

        ' コピーした内容をバイト配列に変換して表示
        Console.WriteLine(BitConverter.ToString(toStream.ToArray()))
      End Using
    End Using
  End Sub
End Class