Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

        Dim writeStream As FileStream

        Try

writeStream = New FileStream("c:\testBinary.dat", FileMode.Create)

            Dim writeBinay As New BinaryWriter(writeStream)

            writeBinay.Write("This is a test for BinaryWriter !")

            writeBinay.Close()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class