Прикрутить открытие файла - Visual Basic .NET

      

Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    Dim SaveAs As Object
    Dim klient As Object

 oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add

        'Добавить данные в ячейки первого листа новой книги 
        oSheet = oBook.Worksheets(1)
        oSheet.Range("A1:B1").Merge()
        oSheet.Range("A2:B2").Merge()
        oSheet.Range("C2:D2").Merge()
        oSheet.Range("C3:D3").Merge()
        oSheet.Range("C4:D4").Merge()
        oSheet.Range("C5:D5").Merge()
        oSheet.Range("A1:D1").Font.Bold = True
        oSheet.Range("A1").HorizontalAlignment = -4152
        oSheet.Range("C1").HorizontalAlignment = -4131
        oSheet.Range("A1").Value = "Договор №"
        oSheet.Range("C1").Value = KartaDataGridView.CurrentRow.Cells(0).Value
        oSheet.Range("A2").Value = "Вид договора:"
      
        oSheet.Range("A5").Value = "Дата заключения:"
        oSheet.Range("C5").Value = KartaDataGridView.CurrentRow.Cells(5).Value
 
        'Сохранить книгу и закрыть Excel 
 
        oBook.SaveAs("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")
        oExcel.Quit()
        Process.Start("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")