Imports System.IO
Imports System.Text
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim wFile As System.IO.FileStream
            Dim byteData() As Byte
            byteData = Encoding.ASCII.GetBytes("FileStream Test1")
            wFile = New FileStream("streamtest.txt", FileMode.Append)
            wFile.Write(byteData, 0, byteData.Length)
            wFile.Close()
        Catch ex As IOException
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class