Pobieranie nazwy pliku przez OpenFileDialog

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim OFD As New OpenFileDialog
        Dim fullFile() As Byte
        Try
            OFD.Filter = "Binary files (*.bin)|*.bin"
            If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
                fullFile = File.ReadAllBytes(OFD.FileName)

**                Dim writer As New BinaryWriter(File.Open("plik.bin", FileMode.Open))**
                writer.Seek(&H5B0, SeekOrigin.Begin)
                writer.Write(CUShort(&HB1AA))
                writer.Close()
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error")
        End Try

                Dim writer As New BinaryWriter(fullFile)

          Dim writer As New BinaryWriter(OFD.OpenFile)

Dim writer As New BinaryWriter(File.Open(OFD.FileName, FileMode.Open, FileAccses.ReadWrite))

   Using fs As New FileStream(OFD.FileName, FileMode.Open, FileAccess.Write, FileShare.None)
                    Using writer As New BinaryWriter(fs)

If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Using fs As New FileStream(OFD.FileName, FileMode.Open, FileAccess.Write, FileShare.None)
                Using writer As New BinaryWriter(fs)
                    writer.Seek(&H5B0, SeekOrigin.Begin)
                    writer.Write(CUShort(&HB1AA))


                    Dim SaveFileDialog As New SaveFileDialog
                    SaveFileDialog.ShowDialog()



                End Using
            End Using
        End If

Dim path As String = OFD.FileName
                    Dim saveFileDialog1 As New SaveFileDialog()
                    saveFileDialog1.ShowDialog()
                    saveFileDialog1.FileName(OFD)
                    saveFileDialog1.Filter = "bin files (*.bin)|*.bin|All files (*.*)|*.*"

            Using fs As New FileStream(OFD.FileName, FileMode.Open, FileAccess.Write, FileShare.None)
                Using writer As New BinaryWriter(fs)
                    writer.Seek(&H20, SeekOrigin.Begin)
                    writer.Write(CUShort(&H29))

                    Using writer2 As New BinaryWriter(fs)
                        writer2.Seek(&H21, SeekOrigin.Begin)
                        writer2.Write(CUShort(&H03))

FF FF FF FF

29 03 FF FF

29 03 00 FF

writer.Write(CUShort(&H2903))