Почему то не понимает 0 значение ячейки - VB

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

и снова здрасти :) такая необычная проблема -

ActiveWorkbook
    i =   ActiveWorkbook.Sheets.count
    Sheets(i). <>  
         j =   count - 
            v =   
                 (Sheets(i).Range( + CStr(j *  +  + v * )).Value <> )  (Sheets(i).Range( + CStr(j *  +  + v * )).Value <> ) 
                    Sheets(i).Range( + CStr(j *  + )).Value = Sheets(i).Range( + CStr(j *  + )).Value - Sheets(i).Range( + CStr(j *  +  + v * )).Value
                   
                 (Sheets(i).Range( + CStr(j *  +  + v * )).Value <> )  (Val(Sheets(i).Range( + CStr(j *  +  + v * )).Value) <> ) 
                    Sheets(i).Range( + CStr(j *  + )).Value = Sheets(i).Range( + CStr(j *  + )).Value - Sheets(i).Range( + CStr(j *  +  + v * )).Value
                 
                 (Sheets(i).Range( + CStr(j *  +  + v * )).Value <> )  (Sheets(i).Range( + CStr(j *  +  + v * )).Value <> ) 
                   Sheets(i).Range( + CStr(j *  + )).Value = Sheets(i).Range( + CStr(j *  + )).Value - Sheets(i).Range( + CStr(j *  +  + v * )).Value
                 
            v
         j
      
    i
 

проблемма в том что если:
Sheets(i).Range("E(F)(G)" + CStr(j * 11 + 4 + v * 2)).Value = 0 то все равно происходит вычитание ...
подскажите в чем проблема

Решение задачи: «Почему то не понимает 0 значение ячейки»

textual
                            Листинг программы 
                        
                            <font color="blue">AND</font>