Imports System
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim aFileStream As FileStream
        Try
            aFileStream = New FileStream("test.dat", FileMode.Create, _
              FileAccess.Write)
            Dim myBinaryWriter As New BinaryWriter(aFileStream)
 
            myBinaryWriter.Write("aasasf")
 
        Catch e1 As Exception
            Console.WriteLine(e1.StackTrace)
        Finally
            If Not (aFileStream Is Nothing) Then aFileStream.Close()
        End Try
 
 
    End Sub
End Class