Visual Basic.NET - No abre archivo Excel

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim Aplicacion As Excel.Application

        Dim Libro As Excel.Workbook

        Aplicacion = New Excel.Application

        Libro = Aplicacion.Workbooks.Open("C:\Users\restoderuta\archivo.xlsx")

    End Sub

End Class

Dim XLSAPP As Excel.Application = Nothing

    Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click

        XLSAPP = New Excel.Application

        XLSAPP.Visible = True

        XLSAPP.Workbooks.Open("C:\Users\restoderuta\archivo.xlsx")

'  ... ... ..; Aqui, tienes acceso a todos los datos de la carpeta XLS

Aplicacion.Visible = True