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