How to Write Data to a Text File using BinaryWriter in VB.NET

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'initialize an openfiledialog for browsing text files
        Dim OpenFileDialog1 As New OpenFileDialog
        'filter text files only
        OpenFileDialog1.Filter = "Text Files (*)|*.txt"
        'after choosing a desired text files, it will display its path on textbox1
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'initialize filestream and binarywriter
        Dim fs As System.IO.FileStream
        Dim bw As System.IO.BinaryWriter
 
        'finding and accessing the filepath displayed in textbox1
        fs = New System.IO.FileStream(TextBox1.Text, IO.FileMode.OpenOrCreate)
        'the binarywriter holds the filestream after accessing the path
        bw = New System.IO.BinaryWriter(fs)
        ' the binarywriter seeks the origin of the text file
        bw.Seek(0, System.IO.SeekOrigin.Begin)
        ' the binary writer writes the inputted string in textbox2
        bw.Write(TextBox2.Text)
        ' prompts the user that the writing of data has been done
        MessageBox.Show("Done writing data to the text file.")
        'close the filestream and binarywriter
        bw.Close()
        fs.Close()
    End Sub