VB.net Exsel最終行を取得

◎Exsel最終行を取得
'ダイアログ ボックスを表示 [開く]ボタンが押されたら
If FDlg.ShowDialog() = DialogResult.OK Then

' ファイルパスからファイル名を取得する
RichTextBox1.Text = System.IO.Path.GetFileName(.FileName)

'エクセルの箱を作る
Dim xlApp As New Excel.Application

'エクセルを表示
'xlApp.Visible = True

'エクセルのファイルを開く
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(.FileName)

'開いたシートを見る
Dim xlSheet As Excel.Worksheet =
CType(xlBook.Worksheets("Sheet1"), Excel.Worksheet)

'最終行までを取得
Dim xlLog As Excel.Range =
xlSheet.Range("A" & xlSheet.Rows.Count).End(Excel.XlDirection.xlUp)