Открыть файл xl как app

Module Module1
    Public xl As Object, xlp As Object
    Public Sub open_xl()
        xl = CreateObject("ExCel.Application")
    End Sub
   
End Module
 
    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
.......
 
Call open_xl()
        xlp.Workbooks.Open(App.Path & "\клиенты.xlsx") 
        xl.Visible = True '[B][COLOR="Red"] 'РУГАЕТСЯ НА ЭТУ СТРОКУ , СТРАННО![/COLOR][/B]
 End Sub

......
open_xl.Path & "\клиенты.xlsx" 'открываем книгу
        xl.Visible = True 'скрываем книгу

Call open_xl()
        xl.Workbooks.Open(Application.StartupPath & "\клиенты.xlsx") 'открываем книгу

 
Dim AppExcel As New Microsoft.Office.Interop.Excel.Application
Dim BookEx As Microsoft.Office.Interop.Excel.Workbook = AppExcel.Workbooks.Open(File) 'Открываем книгу
Dim ListEx As Microsoft.Office.Interop.Excel.Worksheet = CType(BookEx.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)'Лист Excel