Проверить название листов в книги Excel - Visual Basic .NET

Формулировка задачи:

Необходимо проверить название листов в книги Excel. листы должны называться Лист1 и Лист2. В книге только 2 листа (больше быть не может) на форме кнопка, и при нажатии на кнопку необходимо проверить имена листов в выбранной книге. если имена листов разные, то есть, например Март и Апрель, то их необходимо переименовать в Лист1 и Лист2 соответственно.выдав пользователю при этом сообщение: "Имена листов в книге не верны!, Переименовать листы?", если пользователь нажимает, "Да", то листы переименовываются, а если "Нет", то просто выход из процедуры. Очень прошу помощи. заранее большое спасибо!

Решение задачи: «Проверить название листов в книги Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Exc As Object
        Exc = CreateObject("Excel.Application")
        Exc.Workbooks.Open("D:\111.xlsx").Activate()
        If Exc.worksheets(1).name <> "Лист 1" And Exc.worksheets(2).name <> "Лист 2" Then
            Dim msg = MsgBox("Имена листов неверны, переименовать?", MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                Exc.worksheets(1).name = "Лист 1"
                Exc.worksheets(2).name = "Лист 2"
            Else
                Exit Sub
            End If
 
        End If
        Exc.ActiveWorkbook.Save()
        Exc.ActiveWorkbook.Close()
        Exc.Quit()
        Exc = Nothing
        MsgBox("Листы успешно переименованы", MsgBoxStyle.Information)
    End Sub