VB6 Работа с объектом Chart. Run-Time Error 91 Object varible or With block varible not set - VBA

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

В колледже делаю дипломную работу на VB6. И одна из решаемых мною задач это построение диаграмм в книге Excel по нажатию кнопки на форме моего приложения. Проблема заключается в том, что кнопка срабатывает и строит диаграмму и охраняет результат только 1 раз на повторное нажатие выдается ошибка и отправляют меня дебажить. Но когда я снова отправляю на запуск все повторяется... Помогите пожалуйста, направьте на путь истинный!

Private Sub Command4_Click()
Set apps = CreateObject("Excel.Application")
 apps.Visible = True 
 apps.Workbooks.Open App.Path & "\base\base.xls", ignoreReadOnlyrecommended = True 'открываю базу
 
Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet) '<-при повторном нажатии проблема тут
oChart.SetSourceData (Sheets("Лист2").Range("C3:C7", "a3:C7"))
oChart.ChartType = xlColumnClustered
oChart.HasTitle = True
 
With oChart.ChartTitle
    .Characters.Font.Italic = True
    .Characters.Font.Size = 18
    .Text = "Средняя удовлетворенность по группам"
End With
Set oChart = Nothing
 
apps.ActiveWorkbook.Save
apps.ActiveWorkbook.Close
apps.Quit
 
Set apps = Nothing
End Sub

Пытался упрощать код. Создавал просто пустой Chart объект по нажатию кнопки - все проходило как надо, но когда усложнял опять та же история.

Решение задачи: «VB6 Работа с объектом Chart. Run-Time Error 91 Object varible or With block varible not set»

textual
                            Листинг программы 
                        

                            Private Sub Command4_Click()
Set apps = CreateObject("Excel.Application")
 apps.Visible = True 'Г§Г*ГЇГіГ±ГЄГ*ГҐГ¬ ГЇГ°ГЁГ«Г®Г¦ГҐГ*ГЁГҐ Excel
 apps.Workbooks.Open App.Path & "\base\base.xls", ignoreReadOnlyrecommended = True 'Г®ГІГЄГ°Г»ГўГ*ГҐГ¬ ГЎГ*Г§Гі
On Error GoTo m
   ActiveWorkbook.ActiveSheet.ChartObjects.Delete
    For Each temp In ActiveWorkbook.ActiveSheet.ChartObjects
             temp.Cut
    Next
m:
Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart.SetSourceData (Sheets("Г‹ГЁГ±ГІ2").Range("C3:C7", "a3:C7"))
oChart.ChartType = xlColumnClustered
oChart.HasTitle = True
 
With oChart.ChartTitle
    .Characters.Font.Italic = True
    .Characters.Font.Size = 18
    .Text = "Г‘Г°ГҐГ¤Г*ГїГї ГіГ¤Г®ГўГ«ГҐГІГўГ®Г°ГҐГ*Г*Г®Г±ГІГј ГЇГ® ГЈГ°ГіГЇГЇГ*Г¬"
End With
Set oChart = Nothing
 
apps.ActiveWorkbook.Save
apps.ActiveWorkbook.Close
apps.Quit
 
Set apps = Nothing
End Sub
                        