Как имя файла отобразить в textbox

Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            MsgBox(OFD.FileName)
        End If

TextBox1.Text = OFD.FileName

  Private Sub ButtonBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBrowse.Click
        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            NameFile.Text = (OFD.FileName)
        End If
    End Sub
End Class

Private Sub NameFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameFile.TextChanged
 
End Sub

Public Class Form1
    Private Sub RadioInput_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioInput.CheckedChanged
 
    End Sub
 
    Private Sub Fromfile_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fromfile.CheckedChanged
 
    End Sub
 
    Private Sub NameFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameFile.TextChanged
        If RadioInput.Checked = True And Fromfile.Checked = False Then
            NameFile.Text = ""
            NameFile.ReadOnly = True
        Else
            If Fromfile.Checked = True And RadioInput.Checked = False Then
                NameFile.ReadOnly = False
            End If
        End If
    End Sub
 
    Private Sub ButtonOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOn.Click
        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If Fromfile.Checked = True And RadioInput.Checked = False Then
            Form3.Show()
        Else
            If RadioInput.Checked = True And Fromfile.Checked = False Then
                Form3.Show()
            End If
        End If
 
        
    End Sub
 
    Private Sub ButtonBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBrowse.Click
        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            NameFile.Text = (OFD.FileName)
        End If
    End Sub
End Class
Public Class Form2
 
End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form
 
    'Форма переопределяет dispose для очистки списка компонентов.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Является обязательной для конструктора форм Windows Forms
    Private components As System.ComponentModel.IContainer
 
    'Примечание: следующая процедура является обязательной для конструктора форм Windows Forms
    'Для ее изменения используйте конструктор форм Windows Form.  
    'Не изменяйте ее в редакторе исходного кода.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
        Me.RadioInput = New System.Windows.Forms.RadioButton
        Me.Fromfile = New System.Windows.Forms.RadioButton
        Me.NameFile = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.ButtonOn = New System.Windows.Forms.Button
        Me.ButtonBrowse = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(9, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(232, 13)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Выберите с каким текстом будете работать"
        '
        'RadioInput
        '
        Me.RadioInput.AutoSize = True
        Me.RadioInput.Location = New System.Drawing.Point(12, 30)
        Me.RadioInput.Name = "RadioInput"
        Me.RadioInput.Size = New System.Drawing.Size(113, 17)
        Me.RadioInput.TabIndex = 1
        Me.RadioInput.TabStop = True
        Me.RadioInput.Text = "Введённый текст"
        Me.RadioInput.UseVisualStyleBackColor = True
        '
        'Fromfile
        '
        Me.Fromfile.AutoSize = True
        Me.Fromfile.Location = New System.Drawing.Point(12, 53)
        Me.Fromfile.Name = "Fromfile"
        Me.Fromfile.Size = New System.Drawing.Size(105, 17)
        Me.Fromfile.TabIndex = 2
        Me.Fromfile.TabStop = True
        Me.Fromfile.Text = "Текст из файла"
        Me.Fromfile.UseVisualStyleBackColor = True
        '
        'NameFile
        '
        Me.NameFile.Enabled = False
        Me.NameFile.Location = New System.Drawing.Point(12, 89)
        Me.NameFile.Multiline = True
        Me.NameFile.Name = "NameFile"
        Me.NameFile.ReadOnly = True
        Me.NameFile.Size = New System.Drawing.Size(170, 19)
        Me.NameFile.TabIndex = 3
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(9, 73)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 13)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "Имя файла"
        '
        'ButtonOn
        '
        Me.ButtonOn.Location = New System.Drawing.Point(12, 114)
        Me.ButtonOn.Name = "ButtonOn"
        Me.ButtonOn.Size = New System.Drawing.Size(100, 30)
        Me.ButtonOn.TabIndex = 5
        Me.ButtonOn.Text = "OK"
        Me.ButtonOn.UseVisualStyleBackColor = True
        '
        'ButtonBrowse
        '
        Me.ButtonBrowse.Location = New System.Drawing.Point(188, 83)
        Me.ButtonBrowse.Name = "ButtonBrowse"
        Me.ButtonBrowse.Size = New System.Drawing.Size(100, 30)
        Me.ButtonBrowse.TabIndex = 6
        Me.ButtonBrowse.Text = "Browse"
        Me.ButtonBrowse.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 151)
        Me.Controls.Add(Me.ButtonBrowse)
        Me.Controls.Add(Me.ButtonOn)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.NameFile)
        Me.Controls.Add(Me.Fromfile)
        Me.Controls.Add(Me.RadioInput)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "Search"
        Me.ResumeLayout(False)
        Me.PerformLayout()
 
    End Sub
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents RadioInput As System.Windows.Forms.RadioButton
    Friend WithEvents Fromfile As System.Windows.Forms.RadioButton
    Friend WithEvents NameFile As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents ButtonOn As System.Windows.Forms.Button
    Friend WithEvents ButtonBrowse As System.Windows.Forms.Button
 
End Class