なおFileStreamでは、コンストラクタにFileMode.Appendを指定してインスタンスを作成すれば、ファイルを開いたあと自動的にストリームの末尾にシークされます。　従って、次の例は上記の例と同等の動作となります。

FileStreamを作成する際に末尾にシークしてから内容を追記する
Imports System
Imports System.IO

Class Sample
  Shared Sub Main()
    ' FileMode.Appendを指定してFileStreamを作成
    Using stream As Stream = New FileStream("sample.dat", FileMode.Append, FileAccess.Write)
      ' 書き込むデータが格納されているバイト配列
      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

シーケンシャルアクセスのみをサポートするストリームに対してSeekメソッドを呼び出したり、Positionプロパティに値を設定しようとした場合には、例外NotSupportedExceptionがスローされます。　例えば、NetworkStreamや標準入出力のストリームはシークがサポートされないストリームです。