Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fstream As New FileStream("E:/textdata2.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim sw As New StreamWriter(fstream)
        sw.WriteLine(TextBox1.Text)
        sw.Close()
        MsgBox("Data converted in File")
        fstream.Close()
        Dim arr() As Char = TextBox1.Text.ToCharArray
        Dim fsbw As New FileStream("E:/textdata3.txt", FileMode.OpenOrCreate, FileAccess.Write)
        Dim bw As New BinaryWriter(fsbw)
        bw.BaseStream.Seek(0, SeekOrigin.End)
        For i As Integer = 1 To TextBox1.Text.Length - 1
            bw.Write(CStr(arr(i)))
        Next
        bw.Close()
        fsbw.Close()

        Dim fs As New FileStream("E:/textdata3.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim sr As New StreamReader(fs)
        Dim str As String
        str = sr.ReadLine()
        While str <> ""
            TextBox2.Text += str + vbCrLf
            str = sr.ReadLine()
        End While
        sr.Close()
        TextBox2.ReadOnly = True
        fs.Close()

    End Sub