次の例は、ストリームの末尾に追記を行うものです。　ストリームを開き、ストリームの末尾にシークしてから書き込みを行うことで、既存の内容の後ろに新たな内容を追記しています。

Seekメソッドを使ってStreamの末尾にシークしてから内容を追記する
Imports System
Imports System.IO

Class Sample
  Shared Sub Main()
    Using stream As Stream = File.OpenWrite("sample.dat")
      ' ストリームの末尾までシーク
      stream.Seek(0, SeekOrigin.End)

      ' 書き込むデータが格納されているバイト配列
      Dim buffer() As Byte = New Byte(7) {&h41, &h42, &h43, &h44, &h45, &h46, &h47, &h48}

      ' bufferの8バイト分をstreamに書き込む
      stream.Write(buffer, 0, 8)
    End Using
  End Sub
End Class