Где ошибка? - VB

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

Worksheet_Change( Target  Range)

 g
 mnoz, pik1, pik2, pik3, pik4, pik5  
 stroka  
stroka = 
kolvo1 = 
kolvo2 = 
kolvo3 = 
kolvo4 = 
kolvo5 = 
        g = Cells(, ).Value
        chas = Cells(, ).Value
         Left(chas, ) =   mnoz = 
             Left(chas, ) =   mnoz = 
                 Left(chas, ) =   mnoz = 

        pik1 =  * mnoz
        pik2 =  * mnoz
        pik3 =  * mnoz
        pik4 =  * mnoz
        pik5 =  * mnoz

         g > pik1 -  
        kolvo1 = g \ pik1
        g = g  pik1
         
             g > pik2 -  
            kolvo2 = g \ pik2
            g = g  pik2
             
                 g > pik3 -  
                kolvo3 = g \ pik3
                g = g  pik3
                 
                     g > pik4 -  
                    kolvo4 = g \ pik4
                    g = g  pik4
                     
                         g > pik5 -  
                        kolvo5 = g \ pik5
                        g = g  pik5

         kolvo1 <>   stroka = stroka &  & kolvo1 & Chr()
         kolvo2 <>   stroka = stroka &  & kolvo2 & Chr()
         kolvo3 <>   stroka = stroka &  & kolvo3 & Chr()
         kolvo4 <>   stroka = stroka &  & kolvo4 & Chr()
         kolvo5 <>   stroka = stroka &  & kolvo5 & Chr()

        stroka = stroka &  & g

       Cells(, ) = stroka

если mnoz = 2 или 3 то строчка Cells(23, 5) = stroka вызывает ошибку, пишет что недостаточно системных ресурсов для отображения всей информации.

Решение задачи: «Где ошибка?»

textual
                            Листинг программы 
                        
                            <font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_Change(<font color="blue">ByVal</font> Target <font color="blue">As</font> Range)
  Application.EnableEvents = False

  <font color="#00AA00">' Код обработки</font>
 
 Application.EnableEvents = True
<font color="blue">End</font> <font color="blue">Sub</font>