お世話になります。VisalBasic2005でExcelのファイルを選択して処理するプログラムを作りたいのですが、ご親切な方アドバイスをお願い致します。 

Form1にはボタン１とボタン2を設置しています。ボタン１で開いたファイルをアクティブにして
ボタン2でExcelの計算処理を行いたいと思います。初心者で詳しい事はあまり判りませんので
具体的にアドバイスを頂けると助かります。
誠に申し訳ありませんが、宜しくお願い致します。

Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 Dim OpenFileDialog1 As New OpenFileDialog()

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

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

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

 ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイルを表示する
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
 MessageBox.Show(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 = "nFileName"
 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