in questo caso come devo modificare ?

Dim AppExcel As New excel.Application
Dim cartExcel As excel.Workbook
Dim foglioExcel As excel.Worksheet

Set AppExcel = New excel.Application
Set cartExcel = excel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioExcel = excel.Worksheets.Item(1)