Не прописываются данные из VB6 в xl 2010

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

Доброго всем дня! подскажите где у меня ошибка, данный код не прописывает в ячейку книги, данные. заранее спасибо!

Private Sub Command2_Click() 
Dim Exc As Object
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open "D:\Мои документы\Desktop\РАБОЧАЯ\ПРОЕКТ\ПРОЕКТ\ПКО_РКО" & xlsx 
oExcel.Visible = True
Exc = CreateObject("Excel.Application") 
Exc.Range("I23").Value = Text2.Text 
' запись в отчет
 
Exc.Rows("5:5").Insert xlDown, xlFormatFromLeftOrAbove
Exc.Range("A5").Value = Text2.Text 
Exc.Rows("5:5").HorizontalAlignment = xlLeft
End Sub

Решение задачи: «Не прописываются данные из VB6 в xl 2010»

textual
                            Листинг программы 
                        
                            Set oExcel = CreateObject("Excel.Application")
          Exc = CreateObject("Excel.Application")