shu様アドバイスを頂きまして誠にありがとう御座います。
早速、ご指摘頂きましたようにForm1にTextBox1を設置してプログラムを下記のように
修正したのですが、「wb = app.Workbooks.Open(fn)」のところで”COMExceptionはハンドル
されていませんでした”とエラー表示されて動作出来ませんでした。
誠に申し訳ありませんが、アドバイスを頂けると助かります。
～～プログラム～～
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' OpenFileDialog の新しいインスタンスを生成する (デザイナから追加している場合は必要ない)
        Dim OpenFileDialog1 As New OpenFileDialog()

        ' ダイアログのタイトルを設定する
        'OpenFileDialog1.Title = "ダイアログのタイトルをココに書く"

        ' 初期表示するディレクトリを設定する
        OpenFileDialog1.InitialDirectory = "C:\"

        ' 初期表示するファイル名を設定する
        OpenFileDialog1.FileName = "初期表示するファイル名をココに書く"

        ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイルを表示する
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            'MessageBox.Show(OpenFileDialog1.FileName)
            TextBox1.Text = OpenFileDialog1.FileName

            ' Multiselect が True の場合はこのように列挙する
            'For Each nFileName As String In OpenFileDialog1.FileNames
            'MessageBox.Show(nFileName)
            'Next nFileName
        End If

        ' 不要になった時点で破棄する (正しくは オブジェクトの破棄を保証する を参照)
        'OpenFileDialog1.Dispose()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim app As New Excel.Application
        Dim wb As Excel.Workbook
        Dim wsh As Excel.Worksheet
        Dim fn As String = "TextBox1.Text"
        Dim rin, rout, tan As Excel.Range

        wb = app.Workbooks.Open(fn)
        'シート1をセット
        wsh = wb.Sheets(1)
        Try
            app.Visible = True
            With wsh

                rin = .Range(.Cells(1, 1), .Cells(3, 3))

            End With
            wb.Close()
            app.Quit()
            app = Nothing
        Catch ex As Exception
            wb.Close()
            app.Quit()
            app = Nothing
        End Try

    End Sub
End Class