Изменение и сохранение файла eeprom

Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
 
        Dim ofd As New OpenFileDialog
 
        If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Return
        Dim path As String = ofd.FileName
 
        Try
            Dim myFileStream As System.IO.FileStream
            myFileStream = New System.IO.FileStream(path, IO.FileMode.Open)
            Dim myBinaryReader As New System.IO.BinaryReader(myFileStream)
 
 
            Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 
 
            Dim str1 As String = ""
 
            Dim n As Integer = 0
 
            Dim Temp As String
 
            For i As Integer = 264 To 267
 
                Temp = Hex(bData(i).ToString)
                If Len(Temp) = 1 Then Temp = "0" & Temp
                Select Case n
                    Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
                        str1 = str1 & Temp & "  "
                    Case 15
                        str1 = str1 & Temp & vbCrLf
                        n = -1
                End Select
                n += 1
            Next
 
            TextBox1.Text = str1
 
 
 
            Dim str2 As String = ""
            For i As Integer = 256 To 259
 
                Temp = Hex(bData(i).ToString)
                If Len(Temp) = 1 Then Temp = "0" & Temp
                Select Case n
                    Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
                        str2 = str2 & Temp & "  "
                    Case 15
                        str2 = str2 & Temp & vbCrLf
                        n = -1
                End Select
                n += 1
            Next
            TextBox2.Text = str2
            myBinaryReader.Close()
            myFileStream.Close()
 
        Catch err As Exception
            MsgBox(err.ToString)
 
        End Try
 
    End Sub